共享x轴的图表

Question

我有一个包含列T，V1，V2，V3和V4的数据框df。 我想制作一个ggplot，其中包含两个图，以T作为共同的x轴。 第一个图包含V1，第二个图包含V2，V3和V4。

我尝试了：

m1 <- melt(df, id = "T") 

chart1<-qplot(T, value, data = m1, geom = "line", group = variable) +
stat_smooth() +
facet_grid(variable ~ ., scale = "free_y") 

但这样会得到四个常见情节，而我只想要两个。有没有办法做到这一点？

- adam.888

---

在m1中创建一个新因子：m1$sepfac <- (m1$variable=="V1")，并将其用作分面变量。 - Ben Bolker

非常感谢。太好了。facet_grid(sepfac~., scale = "free_y") - adam.888

如果您能将解决方案写成答案并发布，那将非常有帮助……这样未来的读者就更容易看到问题已经得到了成功回答。 - Ben Bolker

Answer 1

library(ggplot2)
library("reshape")

df <- data.frame(T,V1,V2,V3,V4)
m1 <- melt(df, id = "T") 

m1$sepfac <- (m1$variable=="V1")

chart1<-qplot(T, value, data = m1, geom = "line", group = variable) +
stat_smooth() +
facet_grid(sepfac~., scale = "free_y") 

- adam.888