在 ggplot2 中订购饼图切片

问题描述

我想订购我的饼图标签和切片。我在下面的尝试能够对标签进行排序，但切片仍然是无序的。感谢您的帮助。

data = structure(list(Stage = c("Collecting Applications","Interview Stages","Offer Accepted","Offer in Progress","To Open"),N = c(17L,30L,8L,2L,65L),Prop = c(14,25,7,2,53),Label = c("14%","25%","7%","2%","53%")),row.names = c(NA,-5L),class = c("tbl_df","tbl","data.frame"))

data$Stage = factor(data$Stage,ordered = TRUE,levels = c("To Open","Collecting Applications","Offer Accepted"))

library(dplyr)
data = data %>% 
    mutate(end = 2 * pi * cumsum(N)/sum(N),start = lag(end,default = 0),middle = 0.5 * (start + end),hjust = ifelse(middle > pi,1,0),vjust = ifelse(middle < pi/2 | middle > 3 * pi/2,1))
data = data[order(data$Stage),]
  
  
library(ggforce)
library(ggplot2)

ggplot(data) + 
    geom_arc_bar(aes(x0 = 0,y0 = 0,r0 = 0,r = 1,start = start,end = end,fill = Stage)) +
    geom_text(aes(x = 1.05 * sin(middle),y = 1.05 * cos(middle),label = Label,hjust = hjust,vjust = vjust)) +
    coord_fixed() +
    scale_x_continuous(limits = c(-1.5,1.4),# Adjust so labels are not cut off
                       name = "",breaks = NULL,labels = NULL) +
    scale_y_continuous(limits = c(-1.2,1.2),labels = NULL) +
    theme_void() +
    labs(title = paste0("Progress for ",sum(data$N)," Positions"),fill = NULL) +
    scale_fill_brewer(palette = "Blues")

解决方法

一个简单的修复，订单数据框行需要在 hjust 和 vjust 突变之前。虽然不完全确定其背后的推理。如果有人知道，将不胜感激。谢谢！

library(dplyr)
data$Stage = factor(data$Stage,ordered = TRUE,levels = c("To Open","Collecting Applications","Interview Stages","Offer in Progress","Offer Accepted"))
data = data[order(data$Stage),]
data = data %>% 
    mutate(end = 2 * pi * cumsum(N)/sum(N),start = lag(end,default = 0),middle = 0.5 * (start + end),hjust = ifelse(middle > pi,1,0),vjust = ifelse(middle < pi/2 | middle > 3 * pi/2,1))
  
  
  
library(ggforce)
library(ggplot2)
  
ggplot(data) + 
    geom_arc_bar(aes(x0 = 0,y0 = 0,r0 = 0,r = 1,start = start,end = end,fill = Stage)) +
    geom_text(aes(x = 1.05 * sin(middle),y = 1.05 * cos(middle),label = Label,hjust = hjust,vjust = vjust)) +
    coord_fixed() +
    scale_x_continuous(limits = c(-1.5,1.4),# Adjust so labels are not cut off
                       name = "",breaks = NULL,labels = NULL) +
    scale_y_continuous(limits = c(-1.2,1.2),labels = NULL) +
    theme_void() +
    labs(title = paste0("Progress for ",sum(data$N)," Positions"),fill = NULL) +
    scale_fill_brewer(palette = "Blues")