如何调整ggpubr中donut chart的切片位置以匹配代码定义的分组顺序

问题根源 #

ggpubr的ggdonutchart函数底层基于ggplot2的极坐标堆叠条形图逻辑实现。对于字符类型的分组变量，ggplot2会默认按照字典顺序自动重排因子层级，不会直接沿用构建数据框时定义的行顺序，最终会出现切片排列顺序、色板映射关系和代码中自定义分组顺序不匹配的问题。

核心操作步骤 #

• 将分组变量转换为有序因子，直接将因子层级绑定为当前数据框内分组列的排列顺序，覆盖ggplot2默认的字典排序规则。对应代码为：
  df$group <- factor(df$group, levels = df$group)
• 修正原代码中空值参数lab.adjust = ,的语法错误，为其补充符合排版需求的参数值，保证代码可正常运行。

修正后可直接运行的完整代码 #

library(ggpubr)
df <- data.frame(
 group = c("Much lower",
        "A little\n lower",
        "The same \n as before",
        "A little \n higher", 
        "Much\n higher"),
 value = c(16, 29, 34, 14, 7))
# 手动锁定分组顺序，避免自动重排
df$group <- factor(df$group, levels = df$group)
# 生成图表标签
df$label <- paste(df$group,paste(df$value,"%"), sep = "\n")

ggpubr::ggdonutchart(df, "value",
                 label = "label",
                 lab.font = c(.1,"plain",'white'),
                 color = "white",fill = "group",
                 lab.adjust = 0.5,
                 lab.pos = c("out"),
                 palette = c("gray82","gold1","gray36", "ivory","dodgerblue2")) +
theme(legend.position = "none")

调整后效果 #

完成上述设置后，环形图的切片会从极坐标默认起始位置开始，严格按照代码中列出的分组顺序依次排列；同时色板颜色也会和分组一一对应，完全匹配自定义的颜色配置，不会出现顺序错位问题。 #

内容的提问来源于stack exchange，提问作者Data and AI Nerd