r - 共通の x 軸を持つプロット

Question

T列, V1, V2,V3を持つ data.frame df があります。共通の x 軸を持つ 2 つのプロットを含む ggplotをV4 作成したいと思い ます。TV1V2V3V4

私は試した：

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

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

しかし、これにより 4 つの一般的なプロットが得られますが、私は 2 つだけが必要です。これを行う方法はありますか？

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