如何在ggplot2中控制箱线图的x位置？

Question

首先，设置阶段的快速示例：

set.seed(123)
dat <- data.frame( 
  x=rep( c(1, 2, 4, 7), times=25 ), 
  y=rnorm(100), 
  gp=rep(1:2, each=50) 
)

p <- ggplot(dat, aes(x=factor(x), y=y))
p + geom_boxplot(aes(fill = factor(gp)))

我想制作一个类似的情节，除了控制每组箱图的x位置。我的第一个猜测是使用非因子x美学来控制沿着这些箱形图的x轴的位置。然而，一旦我尝试这样做，似乎geom_boxplot并没有像我希望的那样解释美学。

p + geom_boxplot( aes(x=x, y=y, fill=factor(gp)) )

特别是，当geom_boxplot非因素时，x似乎以某种方式崩溃了所有x值。

有没有办法用ggplot2控制箱形图的{{1}}位置？要么通过指定每个级别的因子美学之间的距离，更巧妙地使用非要素美学，还是其他？

Answer 1

您可以使用scale_x_discrete()设置x轴的位置（刻度）。

p <- ggplot(dat, aes(x=factor(x), y=y))
p + geom_boxplot(aes(fill = factor(gp))) + 
    scale_x_discrete(limits=1:7)

Answer 2

您也可以使用group美学来完成此操作。但是，我不确定为什么你不能将x传递给group。这不起作用：

ggplot() + 
  geom_boxplot(data=dat, aes(x=x, y=y, fill=factor(gp), group=x))

但这样做：

ggplot() + 
  geom_boxplot(data=dat, aes(x=x, y=y, fill=factor(gp), group=paste(x, gp)))