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() 的变体 - 没有。

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')

输出: