geom_text 未标记躲避的 geom_bar

我似乎无法让 geom_label 来标记躲避条形图CLASS（情节被“躲避”的因素）。相反，我得到的是总数count per PROC (the Y axis):

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

另外，我不知道为什么105geom_text到目前为止，标签出现在该条形图的右侧。

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

您的标签显示在最右侧，因为它们代表total为每个组计数，因此被放置在相应的较高（最右侧）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)