R语言中ggplot绘制饼图尺寸与图例不符问题求助

你的饼图尺寸和图例百分比不符的核心原因是输入的百分比总和不是精确100%，且ggplot绘制饼图时是基于y值的相对占比分配扇形面积，导致实际视觉比例和标注的百分比出现偏差。

具体问题点 #

你手动输入的百分比总和为99.9%（计算：26.8+15.1+...+2.6=99.9），ggplot绘制饼图时，每个扇形的实际占比是单个per值 / 总和(99.9)，但图例标注的是原始的per%，两者存在细微差异（比如信息技术板块实际占比≈26.83%，但标注为26.8%）。

修正方案 #

有两种方式可以解决这个问题：

方案1：调整原始数据，确保总和精确为100%

把其中一个数值微调，比如将Materials的2.6改为2.7，让所有百分比总和刚好是100：

IT = 26.8
HC = 15.1  
FI = 10.8
CD = 10.5
CS = 8.9
I = 7.8
CoS = 7
E = 4.4
U = 3.1
RE = 2.9
M = 2.7  # 调整为2.7，总和变为100

per = c(26.8,15.1,10.8,10.5,8.9,7.8,7,4.4,3.1,2.9,2.7)
sec = c("Information Technology", "Health Care", "Financials", "Consumer Discretionary", 
        "Communication Services", "Industrials", "Consumer Staples", "Energy", 
        "Utilities", "Real Estate", "Materials")
Index = data.frame(sec, per)

library(ggplot2)
p = ggplot(Index, aes(x="",y=per, fill = sec)) + 
  geom_col(width = 1) + 
  coord_polar("y", start = 0) + 
  theme_void() + 
  guides(fill = guide_legend(title = "Sectoral breakdown of the S&P 500")) + 
  scale_fill_discrete(labels = paste(Index$sec, Index$per, "%"))

p

方案2：基于原始数值计算精确百分比（推荐）

通过代码自动计算各部分占总和的百分比，确保绘制比例和标注完全一致：

# 原始数值（非百分比）
values = c(26.8,15.1,10.8,10.5,8.9,7.8,7,4.4,3.1,2.9,2.6)
sec = c("Information Technology", "Health Care", "Financials", "Consumer Discretionary", 
        "Communication Services", "Industrials", "Consumer Staples", "Energy", 
        "Utilities", "Real Estate", "Materials")

# 计算精确百分比（保留1位小数，总和自动为100）
per = round(values / sum(values) * 100, 1)
Index = data.frame(sec, per)

library(ggplot2)
p = ggplot(Index, aes(x="",y=per, fill = sec)) + 
  geom_col(width = 1) + 
  coord_polar("y", start = 0) + 
  theme_void() + 
  guides(fill = guide_legend(title = "Sectoral breakdown of the S&P 500")) + 
  scale_fill_discrete(labels = paste(Index$sec, Index$per, "%"))

p

说明 #

两种方案都能让饼图的扇形尺寸和图例标注的百分比完全匹配，方案2更灵活，适合原始数据不是百分比的场景，也避免了手动调整的误差。

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