使用 ggplot 在轴标签下方添加文本答案

【问题标题】：Add text below axis labels with ggplot使用 ggplot 在轴标签下方添加文本
【发布时间】：2019-03-29 01:49:20
【问题描述】：

我有一个geom_boxplot，我想为该轴下方的每个轴标签添加第二组标签。在普通图条形图（使用plot）中，我会使用参数：

par(xpd=T)
text(c("a", "b", "c", "d"), x=c(0.7, 1.9, 3.1, 4.3), 
        y=0, pos=1, offset=0.13)

这是一个使用 mgp 数据的示例图，显示了我可能想要在轴标签下方添加的标签（但它目前在图中）：

p <- ggplot(mpg, aes(class, hwy))
p + geom_boxplot()+
annotate("text", x = c(1:7), y=-10, label = paste(1:7*10, "mpg"), cex=3)

【问题讨论】：

您能否通过共享您的数据样本来重现您的问题，以便其他人可以提供帮助（请不要使用str()、head() 或屏幕截图）？您可以使用 reprex 和 datapasta 包来帮助您。另见Help me Help you & How to make a great R reproducible example?

标签： r ggplot2 plot

【解决方案1】：

实现这一点的一种简单方法可能是创建一个新因子，其级别包含两个标签集的信息。

library(ggplot2)

mpg %>%
  mutate(class = factor(class),
         newclass = factor(class, labels = paste0(levels(class), "\n", 1:7*10, " mpg" ))) %>%
  ggplot(aes(newclass, hwy))  +
  geom_boxplot()

【讨论】：