ggplot：ボックスプロットとグループと時間の相互作用（2x2）を表示

Question

私はggplot2とreshapreライブラリでいくつかの例を見てきました。しかし、私の最終結果はまだ私のボックスプロットを覆います。私はまだ2x2 boxplot-design（グループと時間のやりとり）の簡単な例は見ていません。私は1つのデータフレームしか持たない。

ggplot(aes(y = DV, x = "Group and Time", col = df$group), data = df) + 
    geom_boxplot(aes(y = df$y1, x=df$group, col="T1")) + 
    geom_boxplot(aes(y = df$y2, x=df$group, col="T2")) 

T2の色（青）T1-色（赤）をオーバーレイします。私は、最小限の例では、クラスの変換のいくつかの種類を（DFが要因であるが、数値列が含まれている必要があります）不足していることを知っている

set.seed(1234) 
x<- sample(c("exp", "con"), 100, replace = TRUE) 
yT1<-rnorm(100) 
yT2<-rnorm(100) 
df<- (as.data.frame(cbind(x,yT1,yT2))) 
head(df) 

    x    yT1     yT2 
1 exp 0.405002805433516  1.94871306497599 
2 exp 0.97580332180945 0.933816332207727 
3 con -0.348876736539909  1.91305942169705 
4 con 0.158625439491262 -0.00523405793193957 
5 exp -1.76325506654115 -0.152260048921635 
6 exp 0.338596047099905 -0.509631657179118 

ggplot(aes(y = DV, x = "group and time", col = df$x), data = df) + 
    geom_boxplot(aes(y = df$yT1, x=df$x, col="T1")) + 
    geom_boxplot(aes(y = df$yT2, x=df$x, col="T2")) 

：私の最小限の例では、このように何とか見えます。申し訳ありませんが、今これを修正する方法はわかりません。私はあなたがそのアイデアを得ることを望みます。ありがとうございました

Answer 1

私はあなたが正確に何を意味するかはわかりません - 私は、exp/conとT1/T2の間の相互作用と思いますか？

は、たぶんこの1は（関数呼び出しのinteraction AESに注意してください）あなたが探しているプロットである：

library(ggplot2) 
library(tidyr) 

set.seed(1234) 
x<- sample(c("exp", "con"), 100, replace = TRUE) 
yT1<-rnorm(100) 
yT2<-rnorm(100) 
df1 <- as.data.frame(cbind(x,yT1,yT2)) 

df2 <- gather(df1, "grp", "val", yT1, yT2) 
df2$val <- as.numeric(df2$val) 

ggplot(df2, aes(x = grp, y = val, interaction = x, colour = grp)) + 
    geom_boxplot() 

または代替として、各グループに独自の色を与えるために：

df2$newx <- sprintf("%s.%s", as.character(df2$x), df2$grp) 

ggplot(df2, aes(x = newx, y = val, colour = newx)) + 
    geom_boxplot()