如何在闪避的 geom_col 上方对齐 geom_text 标签答案

【问题标题】：How to align geom_text labels above dodged geom_col如何在闪避的 geom_col 上方对齐 geom_text 标签
【发布时间】：2018-06-07 13:26:05
【问题描述】：

我似乎无法找到一种方法来让这个（躲避的）geom_col 上的文本标签根据它们各自的列排列。

我在 SO 和其他网站上尝试了许多建议解决方案，这是我能得到的最接近的解决方案：

我该如何解决这个问题？

代码：

ggplot(leads[leads$key_as_string <= max(leads$key_as_string) - 1, ], aes(fill = type)) +
  geom_col(aes(x = key_as_string, y = doc_count),
           colour = "black",
           position = position_dodge(1)) +
  scale_y_continuous(limits = c(0, max(leads$doc_count))) +
  geom_text(aes(x = key_as_string, y = doc_count, label = doc_count, group = key_as_string),
            hjust = 0.5,
            vjust = -0.5,
            size = 3,
            colour = "black",
            position = position_dodge(1)) +
  theme(panel.grid.minor.x = element_blank(),
        panel.grid.major.x = element_blank(),
        axis.text = element_text(colour = "black"))

【问题讨论】：

尝试从geom_text(aes())中删除group = key_as_string？
就是这样！我想我根据我在某处读到的建议之一补充了这一点。将其添加为答案，我会接受。

标签： r ggplot2 geom-text geom-col

【解决方案1】：

根据我的评论，group = key_as_string 是这里的罪魁祸首。该代码本质上是告诉 ggplot 将两个标签的 key_as_string 值保持在同一组中，否定 dodge 命令。

下面的钻石数据集插图。我们可以看到删除group 美学映射会改变标签的位置：

p <- ggplot(diamonds %>%
              filter(cut %in% c("Fair", "Good")) %>%
              group_by(cut, clarity) %>%
              summarise(carat = mean(carat)), 
            aes(clarity, carat, fill = cut, label = round(carat, 2))) + 
  geom_col(position = position_dodge(1))

gridExtra::grid.arrange(
  p + geom_text(position = position_dodge(1), aes(group = clarity)),
  p + geom_text(position = position_dodge(1)),
  ncol = 1
)

【讨论】：