R 如何将几何图形文字标签与减淡几何图形上方对齐

我似乎找不到办法让这个（道奇）

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

---

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

下图为菱形数据集。我们可以看到，删除
组
美学贴图会更改标签的位置：

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
)

p%
过滤器（在%c（“一般”、“良好”）中削减%）%>%
分组依据（切割、清晰度）%>%
汇总（克拉=平均值（克拉）），
aes（透明度、克拉、填充=切割、标签=圆形（克拉、2））+
几何坐标（位置=位置减淡（1））
gridExtra:：grid.arrange(
p+几何图形文字（位置=位置减淡（1），aes（组=清晰度）），
p+几何图形文字（位置=位置减淡（1）），
ncol=1
)

试着从
geom\u text（aes（））
中删除
group=key\u as\u string
？就是这样！我想我是根据我在某个地方读到的一条建议添加的。添加它作为答案，我会接受的。