如何在PieDonut中显示数值而非百分比并在中心展示总和？

步骤1：计算总支出 #

先算出所有Troskovi的总和，用于展示在甜甜圈中心：

total_sum <- sum(T_Total_EM_vs_CM$Troskovi)

步骤2：修改 PieDonut 代码 #

替换原有代码，实现显示实际数值并在中心添加总和：

library(ggPieDonut)

PieDonut(T_Total_EM_vs_CM, 
         aes(Tip_migrene, lvl2, count = Troskovi), 
         title = "EM vs. HM (Svi)",
         # 把百分比标签换成实际数值
         label = "count",
         # 给数值加千位分隔符，提升可读性
         label_format = function(x) format(x, big.mark = ","),
         # 在甜甜圈中心添加总支出文本
         center = list(text = paste("Total:", format(total_sum, big.mark = ",")),
                      color = "darkgray",
                      size = 6))

代码说明 #

• label = "count"：将默认的百分比标签替换为Troskovi列的真实数值。
• label_format：通过自定义函数为大数值添加千位分隔符，避免数字过长难以识别。
• center：配置中心文本的内容、颜色和字号，其中total_sum是预先计算的总支出。

如果还没安装ggPieDonut包，先运行以下命令安装：

install.packages("ggPieDonut")

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