r - geom_text 没有标记闪避的 geom_bar

Question

我似乎无法让 geom_label 通过 CLASS(该图被“躲避”的因素)来标记躲避条形图。相反，我得到了每个 PROC 的总 count(Y 轴):

ggplot(data = df, mapping = aes(x = PROC)) +
geom_bar(mapping = aes(fill = CLASS), position = "dodge") +
geom_text(stat = "count", aes(x = PROC, label = ..count..)) +
theme(axis.title.y = element_blank(),
    axis.title.x = element_blank(),
    axis.ticks.y = element_blank(),
    axis.ticks.x = element_blank(),
    axis.text.x =  element_blank()) + 
scale_x_discrete(labels = function(x) str_wrap( 
    PROC.Labels, 
    width = 10)) +
coord_flip() 

此外，我不知道为什么 105 geom_text 标 checkout 现在这个条形图的右边这么远。

Answer 1

您需要更新 geom_text 才能使用 position_dodge() 函数。这是一个示例，与您的非常相似，使用内置钻石数据集。我还使用 ggplot 3.0 的 stat() 函数，而不是已弃用的 ..count.. 变量。

您的标签显示在最右边，因为它们代表每个组的总 计数，因此放置在相应的较高(更右边)的 y 位置。

请注意，为 position_dodge() 提供 0.9 的宽度值对应于这样一个事实，即默认情况下，一个分类条(或一组闪避条)占据其可用空间的 90%轴，其余 10% 用于条形分组之间的边距。

g <- ggplot(data = diamonds, aes(x = cut, fill = color)) +
  geom_bar(position = 'dodge') +
  geom_text(stat = 'count', hjust = 0, position = position_dodge(0.9), aes(x = cut, label = stat(count))) +
  coord_flip()
print(g)