ggplot2绘制带百分比的饼图时无法正确显示占比问题求助

你的代码存在3个可导致运行异常或结果不符合预期的问题：

• 百分比计算公式错误：原有代码直接对value/100做百分比转换，没有除以所有组别的总数值，导致输出百分比远超合理范围
• 文本位置手动计算逻辑适配性差，组别数量变化时容易错位
• blank_theme属于非内置主题，若未提前定义会直接触发运行报错

library(ggplot2)
library(scales)

df <- data.frame(
  group = c("Male", "Female"),
  value = c(15000, 10000)
)

ggplot(df, aes(x = "", y = value, fill = group)) +
  geom_bar(width = 1, stat = "identity") +
  coord_polar("y", start = 0) +
  scale_fill_brewer(palette = "Blues") +
  # 用ggplot2内置空白主题替代未定义的blank_theme
  theme_void() +
  geom_text(
    # 自动计算堆叠居中位置，无需手动计算累计值
    position = position_stack(vjust = 0.5),
    # 正确计算分组占比，accuracy=1保证输出整数百分比
    aes(label = percent(value / sum(value), accuracy = 1)),
    size = 5
  )

• 修正百分比计算逻辑：将value/100改为value/sum(value)，scales包的percent()函数会自动将小数转换为百分比格式，添加accuracy=1参数后即可输出你预期的60%、40%效果
• 文本位置改用position_stack(vjust=0.5)自动计算，适配任意数量的分组，无需手动编写累计值逻辑
• 将未定义的blank_theme替换为ggplot2内置的theme_void()，避免未定义变量报错

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