代码绘制交替阴影箱线图的问题（ggplot2，R）

Question

我想在箱线图中绘制交替的阴影/矩形，类似于本文中的第二张图片： Adding shading alternate areas for categorical variable in a bar plot in ggplot2

以下是我的代码，以 mtcars 为例。我将 carb 和 cyl 转换为 factor 以更好地匹配我的真实数据和代码

 library(ggplot2)
 odd_numbers <- seq(1,33,2)
 mtcars$carb <- as.factor(mtcars$carb)
 mtcars$cyl <- as.factor(mtcars$cyl)
 ggplot(mtcars) + 
   geom_boxplot(aes(x = carb, y = mpg, fill = cyl), position = position_dodge(0.9)) + 
   geom_rect(data = mtcars, aes(x = carb, y = mpg), 
             xmin= as.numeric(mtcars$carb[odd_numbers]) - 0.5, 
             xmax = as.numeric(mtcars$carb[odd_numbers]) + 0.5, 
             ymin = -Inf, 
             ymax = Inf, fill='grey', alpha=0.5)

我以为x轴为数值的问题在代码中已经解决了，但还是有问题：

警告：忽略未知的美学：x，y

错误：美学长度必须为1或与数据相同（32）：xmin，xmax

请问有人给点建议吗？谢谢。

编辑

在 cmets 之后，我编辑了代码，如下所示： - 删除了[odd_numbers] - 交换geom_boxplot和geom_rect的顺序

代码：

 library(ggplot2)
 odd_numbers <- seq(1,33,2)
 mtcars$carb <- as.factor(mtcars$carb)
 mtcars$cyl <- as.factor(mtcars$cyl)
 ggplot(mtcars) + 
   geom_rect(data = mtcars, aes(x = carb, y = mpg), 
         xmin= as.numeric(mtcars$carb) - 0.5, 
         xmax = as.numeric(mtcars$carb) + 0.5, 
         ymin = -Inf, 
         ymax = Inf, fill='grey', alpha=0.5) + 
   geom_boxplot(aes(x = carb, y = mpg, fill = cyl), position = position_dodge(0.9))

这会导致以下结果，所以还没有。谢谢。

想要的结果与此类似：

Answer 1

就像我在comment 中所说，data 参数和其他参数的大小必须匹配。因此，在对geom_rect 的调用中，仅从mtcars 中提取odd_numbers。并且不需要通过子集mtcars$carb来设置xmin和xmax，直接使用odd_numbers。
并交换两个几何图形以使框覆盖灰色矩形。
另请注意，我已将 odd_numbers 更改为 32，而不是 33。nrow(mtcars) 之后的一个值会引发错误。

library(ggplot2)

mtcars$carb <- as.factor(mtcars$carb)
mtcars$cyl <- as.factor(mtcars$cyl)

odd_numbers <- seq(1, 32, 2)

ggplot(mtcars) + 
   geom_rect(data = mtcars[odd_numbers, ], 
             xmin = odd_numbers - 0.5, 
             xmax = odd_numbers + 0.5, 
             ymin = -Inf,
             ymax = Inf, fill = 'grey', alpha = 0.5) +
   geom_boxplot(aes(x = carb, y = mpg, fill = cyl), 
                position = position_dodge(0.9))