Hello,
I have been struggling with this for a while, tried a few things, but no
clean solution so far. Here is an example from the documentation for
geom_line:
==========================================
# Summarise number of movie ratings by year of movie
mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
nums <- tapply(df$length, df$year, length)
data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)),
number=as.vector(nums))
}))
p <- ggplot(mry, aes(x=year, y=number, group=rating))
p + geom_line()
# Add aesthetic mappings
p + geom_line(aes(size = rating))
p + geom_line(aes(colour = rating))
==========================================
Notice the last two lines, "size = rating" and "colour = rating", this has
knowledge of the structure of the data frame. My goal is to write a generic
function, which takes a few vectors and a few strings (column names) as
arguments, builds the data frame and then produces a chart. Building the
data frame is easy, but how should this function look like in the geom_line
code? The only solution which I found is something along the lines:
for( ii in indicatorNames ) {
gg = gg + geom_line( aes_string( x="DATE", y=ii, color=paste( sep="",
"\"", ii, "\"" ) ), size=0.75 )
}
Where indicatorNames is the name of the columns and DATE is the first
column of the data frame. What I don't like, not to mention I understand
completely, is the color=paste( sep="", "\"", ii, "\"" ) - is this the
right solution for this purpose? Am I missing something?
Thanks in advance,
Ivan
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
