x軸ラベル「A0」と「A1」を、「A0」と「A1」の真ん中に配置できる「A」に置き換えようとしています。次の質問のように機能する方法があればより良いでしょう: 軸ラベルのグループ化 ggplot2
つまり、グループごとにのみ x 軸を再描画し、グループ間は空白にするということです。
ここに私が取り組んでいるコードがあります:
y = 1*round(runif(20)*10,1)
x1 = c("A","B")
x2 = c(0,1)
x = expand.grid(x1,x2)
xy = cbind(x,y)
xy$z = paste(xy$Var1,xy$Var2,sep="")
p <- ggplot(xy, aes(x=factor(z), y=y,fill=factor(Var2)))
p + geom_boxplot() + geom_jitter(position=position_jitter(width=.2)) + theme_bw() + xlab("X") + ylab("Y") + scale_fill_discrete(name="Var2",breaks=c(0, 1),labels=c("T", "C"))