r - 具有公共 x 轴的绘图

Question

我有一个 data.frame df，其中包含 , , , 列，我想T制作 一个包含两个图的 ggplot，其中x 轴作为公共图 第一个图包含 第二个图包含, ,V1V2V3V4TV1V2V3V4

我试过：

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

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

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

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")