Добавьте текст под метками оси с помощью ggplot

Question

У меня есть 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)

Answer 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()