使用ggplot2的徑向圖

Question

我正在嘗試在ggplot2中創建類似於徑向圖（plotrix）的餅圖。 基本上，切片將具有不同的長度。

radii <- c(2,3,2,1,3,1,2,3,2)
color <- c("lightgrey", "chartreuse", "lightgrey", "darkturquoise", "darkolivegreen3",
           "orangered", "lightgrey", "darkseagreen1", "lightgrey")

radial.pie(radii, labels = NA, sector.colors = color,
          show.grid = F, show.grid.labels = F ,show.radial.grid = T,
          radial.labels = F, clockwise = T,start=3)

是否有捷徑可尋？ 在ggplot中執行此操作的原因是，我想使用plot_grid在一個ggplot小提琴圖的頂部放置一個此餅圖。

Answer 1

該答案是從以下位置復制的：

卡羅琳·帕金森 （ Carolyn Parkinson） 用ggplot2繪制極坐標圖 （2015年4月10日）

http://rstudio-pubs-static.s3.amazonaws.com/72298_c1ba7f77276a4f27a0f375cadc9fac5d.html

基本上，您要做的就是使用coord_ploar()繪制coord_ploar()以使其成為這種徑向圖：

require(ggplot2)

# function to compute standard error of mean
se <- function(x) sqrt(var(x)/length(x)) 
set.seed(9876) 

DF <- data.frame(variable = as.factor(1:10),
                 value = sample(10, replace = TRUE))

ggplot(DF, aes(variable, value, fill = variable)) +
    geom_bar(width = 1, stat = "identity", color = "white") +
    geom_errorbar(aes(ymin = value - se(DF$value), 
                      ymax = value + se(DF$value), 
                      color = variable), 
                      width = .2) + 
    scale_y_continuous(breaks = 0:nlevels(DF$variable)) +
    theme_gray() +
    theme(axis.ticks = element_blank(),
          axis.text = element_blank(),
          axis.title = element_blank(),
          axis.line = element_blank()) +
    coord_polar()