2015-01-11 61 views
-3

我有以下代碼,它會生成單獨的情節。我想把所有這些地塊都放在一個網格中。如何做到這一點。?格子中是否有替代方法來獲得相似的地塊?在ggplot2中的一個窗口上的情節

v1 <- rep(c(2,4,6,8,10), each = 6) 
v2 <- rep(1:3,10) 
v3 <-runif(30,0.01,0.3) 
combined_data <- data.frame(v1,v2,v3) 
library(ggplot2) 
ggplot(combined_data,aes(x=v2,y=v3))+ 
stat_summary(fun.y=mean,geom="line",color="blue",linetype=2)+ 
stat_summary(fun.y=mean,geom="point", pch=1,size=3)+ 
scale_x_continuous(breaks=combined_data$v2)+ 
facet_grid(~v1)+ 
theme_bw() 
+0

目前尚不清楚你想要達到的目標。將'geom_point()'添加到'ggplot'命令中? – Roland

+0

我編輯了一下我的代碼......它提供了5個地塊......我想在一個窗口中獲得所有這些地塊 – user3275911

+0

我不明白。他們在一個窗口。 – Roland

回答

0

我想這可能是你想要的。您需要使用ggplot2處理很多因素。你也可以嘗試在第二個stat_summary中使用geom =「line」。

v1 <- rep(c(2,4,6,8,10), each = 6) 
v2 <- rep(1:3,10) 
v3 <-runif(30,0.01,0.3) 
combined_data <- data.frame(v1,v2,v3) 
combined_data$f1 = as.factor(v1) 
library(ggplot2) 
ggplot(combined_data,aes(x=v2,y=v3,color=f1))+ 
    stat_summary(fun.y=mean,geom="line",color="blue",linetype=2)+ 
    stat_summary(fun.y=mean,geom="point", pch=1,size=3)+ 
    scale_x_continuous(breaks=combined_data$v2)+ 
    #facet_grid(~v1)+ 
    theme_bw() 

產量: enter image description here

+0

有五個地塊......如果我刪除最後一行......它會顯示只有一個陰謀 – user3275911

+1

所以我編輯了我的答案。我實際上在幾分鐘之內擊敗了CMichael(我想),但他包含了一個不錯的情節,我不知道你可以做些什麼。 –

1
v1 <- rep(c(2,4,6,8,10), each = 6) 
v2 <- rep(1:3,10) 
v3 <-runif(30,0.01,0.3) 
combined_data <- data.frame(v1,v2,v3) 
library(ggplot2) 
ggplot(combined_data,aes(x=v2,y=v3))+ 
stat_summary(fun.y=mean,geom="line",aes(color=as.factor(v1)),linetype=2)+ 
stat_summary(fun.y=mean,geom="point",pch=1,size=3,aes(color=as.factor(v1)))+ 
scale_x_continuous(breaks=combined_data$v2)+ 
#facet_grid(~v1)+ 
theme_bw() 

enter image description here

+0

,但它顯示了圖中的一條線......但有5條線(每個類別的v1 ......其中每條單獨的線實際上是針對v2的每個類別的v3的平均值的圖)。我想在一個圖中得到所有這5行 – user3275911

+0

我得到了五行代碼。 – CMichael

+0

謝謝親愛的......那正是我想要的 – user3275911

1

您必須添加aes(group = v1)stat_summary

library(ggplot2) 
ggplot(combined_data,aes(x = v2, y = v3))+ 
    stat_summary(fun.y = mean, geom = "line", color = "blue", linetype = 2, 
       aes(group = v1))+ 
    stat_summary(fun.y = mean, geom = "point", pch = 1, size = 3, 
       aes(group = v1))+ 
    scale_x_continuous(breaks = v2)+ 
    theme_bw()