圖解具有共同x軸

我有一個data.frame DF與列T，V1，V2，V3，V4 我想使含有兩個繪圖的ggplot與T作爲共同x軸第一個情節包含V1 第二幅圖中包含V2，V3，V4圖解具有共同x軸

我想：

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

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

但是，這給了我四個常見的情節，而我只是想要兩個。有沒有辦法做到這一點？

來源

2012-07-05 adam.888

在'm1'中創建一個新因子：'m1 $ sepfac < - （m1 $ variable ==「V1」）'並將其用作您的刻面變量。 – 2012-07-05 14:47:21

非常感謝。那很棒。 facet_grid（sepfac〜。，scale =「free_y」） – 2012-07-05 16:29:28

如果您可以寫出解決方案並將其作爲您自己問題的答案發布，這將對您有所幫助......這讓未來的讀者更容易瞭解問題所在已成功回答。 – 2012-07-05 17:40:00

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

來源

2012-07-05 20:10:13

圖解具有共同x軸

回答

相關問題