Question

I am trying to do the comparison of my observed and modeled data sets for two stations. One station is called station “red” and another is called “blue”. I was able to create the facets but when I tried to add two series in one facet, only one facet got updated while other didn’t.

This means for blue only one series is plotted and for red two series are plotted.

The code I used is as follows:

    # install.packages("RCurl", dependencies = TRUE)
require(RCurl)
out <- postForm("https://dl.dropbox.com/s/ainioj2nn47sis4/watersurf1.csv?dl=1", format="csv")
watersurf <-  read.csv(textConnection(out))
watersurf[1:100,]

watersurf$coupleid <- factor(rep(unlist(by(watersurf$id,watersurf$group1,
                                           function(x) {ave(as.numeric(unique(x)),FUN=seq_along)}
                                           )),each=6239))


p <- ggplot(data=watersurf,aes(x=time,y=data,group=id))+geom_line(aes(linetype=group1),size=1)+facet_wrap(~coupleid)
p

Is it also possible to add a third series in the graph but of unequal length (i.e not same interval)?

The output is
I followed the example on this page to create the graphs.
http://www.ats.ucla.edu/stat/r/faq/growth.htm

Answer 1

Is this what you are looking for,

ggplot(data = watersurf, aes( x = time, y = data))
       + geom_line(aes(linetype = group1, colour = group1), size = 0.2) 
       + facet_wrap(~ id)