как добавить метки geom_text внизу каждой группы в ggplot2 - PullRequest
Новая
       55

как добавить метки geom_text внизу каждой группы в ggplot2

0 голосов
/ 01 мая 2020

Я пытаюсь добавить даты под каждым сгруппированным столбцом, т. Е. Между 0 оси Y и метками товара на оси X. В списке приведены следующие. 

df1 <- data.frame(product = c("A","A","A","A","A","A","A","B","B","B","B","B","B","B","C","C","C","C","C","C","C","D","D","D","D","D","D","D"), 
                  start_date =as.Date(c('2020-02-01', '2020-02-02', '2020-02-03', '2020-02-04', '2020-02-05', '2020-02-06', '2020-02-07')),
                  value = c(15.71,17.37,19.93,14.28,15.85,10.5,8.58,5.62,5.19,5.44,4.6,7.04,6.29,3.3,20.35,27.92,23.07,12.83,22.28,21.32,31.46,34.82,23.68,29.11,14.48,25.2,16.91,27.79))

graph <- ggplot(df1, aes(y = value, x = product, fill = product, group = factor(start_date))) +
  geom_col(data = df1, stat = "identity",position = position_dodge(width = 0.8), width = 0.7, inherit.aes = TRUE, size = 0) + 
  geom_text(aes(label= format(as.Date(start_date,format="%Y-%m-%d"), format = "%d")), vjust = "bottom", position = position_dodge(width = 0.8), inherit.aes = TRUE) +
  xlab("Product") + ylab("Values")

Даже если я откорректирую значения vjust или hjust, я получаю приведенный ниже график enter image description here

Мне бы хотелось, чтобы даты были похожи на график ниже enter image description here

1 Ответ

0 голосов
/ 01 мая 2020

Это почти что у вас есть, но главное - понять, что весь текст имеет одинаковое значение y: в данном случае это чуть ниже 0. Это работает: 

graph <- ggplot(df1, aes(y = value, x = product, fill = product, group = factor(start_date))) +
    geom_col(position = position_dodge(width = 0.8),
        width = 0.7, inherit.aes = TRUE, size = 0) +
    geom_text(aes(
            label= format(as.Date(start_date,format="%Y-%m-%d"), format = "%d"),
            y=-0.5
        ),
        position = position_dodge(width = 0.8), size=2) +
    xlab("Product") + ylab("Values")

enter image description here

Также обратите внимание, что я удалил кое-где ненужные биты, поскольку они были унаследованы: (1) data= вызов для geom_col и (2) stat= вызов для geom_col.

...