R语言饼图图例多行文本设置异常：图例排版问题求解

核心错误点 #

• paste参数顺序错误：你写的paste(piepercent, sep = " ", "%")把分隔符参数放错了位置，应该把要拼接的内容放在前面，sep作为最后一个参数，否则无法正确生成带百分号的标签。
• 长文本换行处理不当：手动在字符串里换行的方式无法让legend函数正确识别换行逻辑，且text.width = 1.5设置过大，导致图例区域出现大量留白，同时文本溢出边框。
• 图例位置未适配：默认的topright位置没有偏移，导致图例直接覆盖饼图。

修正后的代码 #

v4_class_combined_slices <- c(27, 121, 27)
v4_class_combined_labels <- c("Bacteroidia", "Clostridia", "Actinobacteria/Coriobacteriia/4C0d.2/Bacilli/Erysipelotrichi/Betaproteobacteria/Gammaproteobacteria/Mollicutes/RF3")

# 修正paste参数顺序，正确生成百分比标签
piepercent <- round(100*v4_class_combined_slices/sum(v4_class_combined_slices), 1)
piepercent2 <- paste(piepercent, "%", sep = " ")

# 绘制饼图
pie(v4_class_combined_slices, labels = piepercent2, col = rainbow(3))

# 用strwrap自动拆分长文本为多行，每行宽度设为20
wrapped_labels <- lapply(v4_class_combined_labels, function(x) strwrap(x, width = 20))

# 调整图例参数：计算合适的文本宽度，添加inset偏移避免覆盖饼图
legend(
  "topright",
  legend = wrapped_labels,
  cex = 0.9,
  text.width = strwidth("Actinobacteria/Coriobacter"),  # 用最长行的宽度作为参考
  inset = c(0.05, 0),  # 向右偏移一点，避免覆盖饼图
  fill = rainbow(length(v4_class_combined_labels))
)

关键调整说明 #

• 用strwrap函数自动将长文本拆分为指定宽度的多行，替代手动换行，让legend能正确识别每行内容。
• 修正paste的参数顺序，确保百分比标签格式正确。
• 通过text.width设置为最长换行文本的宽度，避免留白过多；添加inset参数让图例向右偏移，不再覆盖饼图。

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