在R中使用ggplot faceting函数时绘制错误

Question

我正在尝试对两个工作站的观察和建模数据集进行比较。一个站称为“红色”站，另一个站称为“蓝色”。我能够创建方面但是当我尝试在一个方面添加两个系列时，只有一个方面得到更新而其他方面没有更新。

这意味着蓝色仅绘制一个系列，绘制红色两个系列。

我使用的代码如下：

    # 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

是否也可以在图中添加第三个系列，但长度不等（即间隔不相同）？

输出为 我按照此页面上的示例创建了图表。 http://www.ats.ucla.edu/stat/r/faq/growth.htm

Answer 1

这就是你要找的东西，

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