Добавление меток внизу гистограммы

Question

Я добавил n = метки к следующему графику, используя код

  geom_text(angle = 0, nudge_y = -0.02, col = "#d3d3d3")

Я хотел бы иметь n = метки расположены внизу столбцов, чтобы они не мешали ошибкам. Когда я изменяю

 nudge_y = 

, он перемещает все метки на одну и ту же величину. Как сделать так, чтобы метки совпали в нижней части столбцов?

Answer 1

При использовании geom_col для рисования столбцов можно поместить метки внизу, установив y-aestheti c в geom_text равным (почти) нулю (+ необязательный сдвиг). Попробуйте сделать это на примере данных mtcars:

library(dplyr)
library(ggplot2)
mtcars %>% 
  # Add count
  count(cyl, gear) %>% 
  # Add label
  mutate(label = paste("n =", n)) %>% 
  # Plot
  ggplot(aes(x = factor(cyl), y = n, fill = factor(cyl))) +
  geom_col() +
  geom_text(aes(y = 0, label = label), vjust = 0, nudge_y = .2) + 
  facet_wrap(~gear, scales = "free_x")

^{Создано в 2020-03-10 пакетом Представление (v0. 3,0)}