如何在R ggplot分组填充条形图内显示分组标签并移除图例

直接修改代码，通过geom_text在条形内部添加分组标签，同时移除图例，具体代码如下：

ggplot(data = interviews_plotting, aes(x = respondent_wall_type, fill = village)) +
  geom_bar(position = "fill") +
  # 添加分组标签到条形内部
  geom_text(
    stat = "count",
    aes(label = village, y = ..prop.., group = respondent_wall_type),
    position = position_fill(vjust = 0.5),
    color = "white"  # 设置标签颜色为白色，提升可读性
  ) +
  # 移除fill对应的图例
  guides(fill = FALSE)

关键说明： #

• stat="count"：让文本层基于计数统计计算比例，和填充条形图的逻辑匹配
• y=..prop.., group=respondent_wall_type：计算每个respondent_wall_type分组下各村庄的占比，以此确定标签的垂直位置
• position_fill(vjust=0.5)：让标签在每个填充分段的垂直居中位置显示
• guides(fill=FALSE)：移除原本的填充图例

内容的提问来源于stack exchange，提问作者lo lo