r - ggplot2 标签不会与 geom_col 条一起闪避

Question

我已经解决了相关问题，但这些答案并没有解决我的标签不躲避以匹配geom_col条形的问题：

数据

x <- structure(
  list(capacity = c(0, 0, 0, 2.1, 3.1, 4, 4.6, 5.6, 6, 
                                 1.9, 2.3, 3.8),
       year = c("FY21", "FY21", "FY21", "FY21", "FY21",
                "FY20", "FY20", "FY20", "FY20", "FY19", "FY19", "FY19"),
       unified_date = structure(c(18536, 18567, 18597, 18628, 18659,
                                  18567, 18597, 18628, 18659, 18536,
                                  18567, 18597), class = "Date")),
  row.names = c(NA, -12L), class = c("tbl_df", "tbl", "data.frame"))                   

代码

ggplot2::ggplot(x, aes(x = unified_date, y = capacity, fill = year)) +
  geom_col(position = "dodge") +
  geom_text(aes(label = capacity),
            position = position_dodge(width = 1),
            vjust = -0.5, size = 4)

图表

我已经尝试添加fill = year到geom_text aes, 或group = year, 移动aes值，变体position_dodge()- 没有。

标签： rggplot2geom-text

Answer 1

试试这个：

#Code
ggplot2::ggplot(x, aes(x = factor(unified_date), y = capacity, fill = year)) +
  geom_bar(stat='identity',position = "dodge") +
  geom_text(aes(label = capacity),
            position=position_dodge(width=0.9), size = 4,vjust=-0.5)+
  xlab('Date')

输出：

如果您想正确处理月份，请尝试以下操作：

#Code 2
x %>% mutate(Month=format(unified_date,'%b')) %>%
  mutate(Month=factor(Month,levels = unique(Month),ordered = T)) %>%
  ggplot2::ggplot(aes(x = Month, y = capacity, fill = year)) +
  geom_bar(stat='identity',position = "dodge") +
  geom_text(aes(label = capacity),
            position=position_dodge(width=0.9), size = 4,vjust=-0.5)+
  xlab('Date')

输出：