r - 在 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)