ggplot 在 X 轴下方添加跟踪颜色

我想在 x 轴下方添加一条线，其颜色取决于未绘制的因素。

在此示例中，我正在创建一个箱形图，并希望添加一条指示另一个变量的线。

以汽车数据集为例，然后实际思考我正在尝试做的事情：

ggplot(mtcars, aes(factor(cyl), mpg, fill=factor(am))) + 
geom_boxplot()

我的想法是创建一个条形图、柱形图或 geom_tile 图，然后将其排列在箱线图下方。这就是我在基本 R 中的做法。有没有办法在 ggplot2 中添加这些类型的颜色标签？

自然的方式ggplot2要做这种事情需要在分类变量上进行刻面以创建子图。但是，如果您想将所有内容保留在同一个图表上，您可以尝试使用geom_tile()分层是这样的：

df <-data.frame(x = factor(c(4,6,8)), colour = factor(c(1,2,1)))

ggplot(mtcars, aes(factor(cyl), mpg, fill=factor(am))) + 
  geom_boxplot()  +
  geom_tile(data=df, aes(x = x, y = 8, fill = colour)) 

或者，正如您所建议的，您可以在其下方对齐一个附加图。你可以使用ggarrange() in the ggpubr为此的包：

plot1 <- ggplot(mtcars, aes(factor(cyl), mpg, fill=factor(am))) + 
  geom_boxplot()  +
  geom_tile(data=df, aes(x = x, y = 10, fill = colour))
  theme(legend.position = 'none')

plot2 <- ggplot(df, aes(x=x, y=1, fill = colour)) +
  geom_tile() +
  theme_void() +
  scale_fill_manual(values=c('orange', 'green', 'orange')) +
  theme(legend.position = 'none')

library(ggpubr)

ggarrange(plot1, plot2, nrow = 2, heights = c(10, 1), align = 'h')