R语言ggplot绘制环形图，固定切片顺序

在R语言中，我使用ggplot绘制环形图，我想让每一个环形图的切片排序为“BA”，“Gini”，“MAT”，“PH”，但是R语言默认的是变量的占比大小的进行排序，下面我放置了图片和代码，请各位帮帮忙，非常感谢。
dat = data.frame(count=c(72.5, 6.3, 11.1, 10.1), category=c("BA", "Gini", "MAT", "PH"))
# Add addition columns, needed for drawing with geom_rect.
dat$fraction = dat$count / sum(dat$count)
dat = dat[order(dat$fraction), ]
dat$ymax = cumsum(dat$fraction)
dat$ymin = c(0, head(dat$ymax, n=-1))
dat$labelPosition <- ((dat$ymax + dat$ymin) / 2)
dat$label <- paste0(dat$category, ":\n ",
                     round(dat$count/sum(dat$count), 3) * 100, "%")
dat<- within(dat, category<- factor(category, levels = c("BA", "Gini", "MAT", "PH")))
dat$fen<-"Young"
p2 = ggplot(dat, aes(fill=category, ymax=ymax, ymin=ymin, xmax=5, xmin=2.8)) +
  geom_rect(colour="grey30") +
  coord_polar(theta="y") +
  xlim(c(0, 5)) +
  scale_fill_manual(values =c("#8DD3C7", "#1F78B4","#33A02C","#E41A1C"))+
  theme_bw() +
  theme(panel.grid=element_blank()) +
  theme(axis.text=element_blank()) +
  theme(axis.ticks=element_blank()) +
  labs(title="Young_A")+
  geom_label(x = 5, aes(y = labelPosition, label = label), size = 8)+theme(legend.position = "none")
p2

你想要的顺序，跟你计算的值是不配套的，需要调整一下顺序。再一个 ggplot2 早就扩展到涵盖数据科学整个领域的 tidyverse了，base R的代码该更新换代了：

1. library(tidyverse)
   
2. 
   
3. dat = tibble(
   
4.   count = c(72.5, 6.3, 11.1, 10.1),
   
5.   category=c("BA", "Gini", "MAT", "PH"))
   
6. 
   
7. # Add addition columns, needed for drawing with geom_rect.
   
8. 
   
9. dat1 = dat %>%
   
10.   mutate(fraction = count / sum(count),
    
11.          category = factor(category, levels = c("BA","Gini","MAT","PH"))) %>%
    
12.   arrange(category) %>%
    
13.   mutate(ymax = cumsum(fraction), ymin = c(0, ymax[-n()]),
    
14.          labelPosition = (ymin + ymax) / 2,
    
15.          label = str_c(category, ":\n", round(fraction, 3) * 100, "%"))
    
16. 
    
17. 
    
18. ggplot(dat1, aes(fill=category, ymax=ymax, ymin=ymin, xmax=5, xmin=2.8)) +
    
19.   geom_rect(color = "grey30") +
    
20.   coord_polar(theta = "y") +
    
21.   xlim(c(0, 5)) +
    
22.   scale_fill_manual(values = c("#8DD3C7", "#1F78B4","#33A02C","#E41A1C")) +
    
23.   theme_bw() +
    
24.   theme(panel.grid = element_blank()) +
    
25.   theme(axis.text = element_blank()) +
    
26.   theme(axis.ticks = element_blank()) +
    
27.   labs(title = "Young_A") +
    
28.   geom_label(x = 5, aes(y = labelPosition, label = label), size = 8) +
    
29.   theme(legend.position = "none")

复制代码

说到 R语言知识汰旧换新、更新换代，看我免费分享的课件就足够了：[学习分享] 张敬信：分享我的1393页《R语言编程：基于tidyverse》完整课件

zhjx19 发表于 2022-12-13 11:34
你想要的顺序，跟你计算的值是不配套的，需要调整一下顺序。再一个 ggplot2 早就扩展到涵盖数据科学整个领域 ...

非常感谢

真的不错啊 值得推荐