如何在ggplot2基于因子变量的饼图中添加百分比标签？

嘿，我来帮你排查这个报错的原因和解决办法～

你遇到的object 'value' not found错误，核心问题是你的ggplot代码里没有定义value这个变量：

• 你用geom_bar()的时候，默认会对gender的每个水平做计数统计（生成count变量），但你在geom_text里直接用了value，而你的原始数据框hc或者当前的美学映射里根本没有这个变量，所以R找不到它就报错了。

下面给你两种靠谱的解决方法，选哪种都可以：

方法一：先手动汇总数据，再绘图 #

先把每个gender的数量和百分比计算好，再用汇总后的数据集绘图，逻辑更清晰：

# 先加载dplyr包（如果没装先运行install.packages("dplyr")）
library(dplyr)
# 汇总每个gender的数量和百分比
hc_summary <- hc %>%
  count(gender) %>%
  mutate(percent = n / sum(n))

# 用汇总数据绘制饼图并添加标签
ggplot(hc_summary, aes(x = factor(1), y = n, fill = gender)) +
  geom_bar(stat = "identity", width = 1) +  # 因为已经有汇总的n，用stat="identity"
  coord_polar("y") +
  blank_theme +
  theme(axis.text.x = element_blank()) +
  # 把标签放在每个扇形的中间，用percent()转成百分比格式
  geom_text(aes(y = cumsum(n) - n/2, label = scales::percent(percent)), size = 5)

方法二：直接在ggplot中使用统计变量 #

不用手动汇总，利用ggplot的after_stat()函数获取geom_bar统计出来的count值：

# 记得加载scales包（如果没装先运行install.packages("scales")）
library(scales)

ggplot(hc, aes(x = factor(1), fill = gender)) +
  geom_bar(width = 1) +
  coord_polar("y") +
  blank_theme +
  theme(axis.text.x = element_blank()) +
  geom_text(
    stat = "count",  # 指定用count统计
    aes(
      # 计算标签位置：累计计数减去当前计数的一半，放在扇形中间
      y = after_stat(cumsum(count) - count/2),
      # 计算百分比：当前计数除以总计数，转成百分比格式
      label = percent(after_stat(count/sum(count)))
    ),
    size = 5
  )

两种方法都能解决你的问题，你可以根据自己的习惯选择～

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