在箱线图上绘制矩形（R 中的 ggplot2）

Question

以mtcars数据为例，我生成了一个箱线图，想添加矩形。这是我的完整代码。

 library(ggplot2)
 d=data.frame(x1=c(1,3,1,5,4), x2=c(2,4,3,6,6), y1=c(10,10,20,14,30), y2=c(15,20,25,18,35), t=c('a','a','a','b','b'))
 ggplot(mtcars, aes(x = as.factor(mtcars$carb), y = mpg)) + geom_boxplot() + geom_rect(data=d, mapping=aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2, fill=t), color="black", alpha=0.5)

但是，由于美学问题，这不起作用。我不明白为什么，因为上面两个部分是分开工作的，所以：

 #part 1 (works)
 ggplot(mtcars, aes(x = as.factor(mtcars$carb), y = mpg)) + geom_boxplot()

 #part 2 (works)
 ggplot() + geom_rect(data=d, mapping=aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2, fill=t), color="black", alpha=0.5)

如果有任何建议，我将不胜感激。谢谢。

Answer 1

这是一个如何工作的例子。重要的是 ggplot 期望所有层的 x-axes 是连续的或离散的，而不是混合的。（y-axes 也一样。）

在您的示例中，箱线图 x 轴采用离散（又名序数）标度，就像您有一个位置用于“橙色”，另一个位置用于“菠萝”。但是 rect 是在连续尺度上定义的，例如 1、2、3。ggplot 通常要求您选择一种或另一种；如有必要，您可以将一个强制转换为另一个，但您需要定义如何操作。即“2”是在“菠萝”的左边还是右边？

因此，要使其正常工作，您不能为 geom_boxplot 层提供 x-axis 的因子，至少不能以某种方式将其转换为数字。在这里，我只是将它保留为它开始的原始数字，并添加一个 group = carb 项，以便我们得到每个碳水化合物值的箱线图，而不是所有碳水化合物值都在一组中。

ggplot(mtcars) + 
  geom_boxplot(aes(x = carb, y = mpg, group = carb)) +
  geom_rect(data=d, aes(xmin=x1, xmax=x2, ymin=y1, ymax=y2, fill=t), color="black", alpha=0.5)

在箱线图上绘制矩形（R 中的 ggplot2）

Drawing rectangles on boxplot (ggplot2 in R)

r

rectangles

ggplot2