美麗的餅圖，其中R

Question

比方說，我有這個簡單的數據：

mydata <- data.frame(group=c("A", "B", "0", "AB"), FR=c(20, 32, 32, 16)) 

如果我要創建這個數據幀餅圖我可以這樣做：

with(mydata,pie(FR, labels=paste0(as.character(group), " ", FR, "%"), radius=1)) 

這很簡單，但可以接受。

我怎樣才能得到與ggplot2或點陣類似的東西？

大量的試驗和錯誤之後，我已經得到了

ggplot(mydata, aes(x = factor(1), y=FR,fill=factor(group))) + geom_bar(width = 1,stat="identity")+coord_polar(theta = "y") 

它更復雜和醜陋。難道它不容易嗎？ ggplot書籍只給出一些例子，並不鼓勵使用餅圖。

晶格更糟糕，你需要許多許多線條才能讓它驚悚。

請問有人能幫我頂一張漂亮簡單的餅圖嗎？ 例如像...

是不是有什麼[R包能夠做到這一點很容易，沒有20行代碼？

Answer 1

您可以從plotrix包pie3D()功能嘗試：

library(plotrix) 
pie3D(mydata$FR, labels = mydata$group, main = "An exploded 3D pie chart", explode=0.1, radius=.9, labelcex = 1.2, start=0.7) 

Answer 2

爲什麼不是正方形餅圖？

devtools::install_github("hrbrmstr/waffle") 
library(waffle) 

mydata <- c(`A`=20, `B`=32, `0`=32, `AB`=16) 
waffle(mydata, title = "Yummy waffle pie!") 

---

如果你有多個信息層面，另一個選擇可能是sunburstR。從@rawr post使用browsers數據，你可以這樣做：

library(sunburstR) 
library(dplyr) 
library(tidyr) 
browsers %>% 
    unite(bv, browser, version, sep = "-") %>% 
    select(bv, share) %>% 
    sunburst(., count = TRUE) 

你可以使用treemap（用於交互式版本，嘗試@ timelyportfolio的d3treeRpackage）

library(treemap) 
tm <- treemap(
    browsers, 
    index=c("browser", "version"), 
    vSize="share", 
    vColor="share", 
    type="value" 
) 

你也可以使用as ankey圖（從networkD3package）

library(networkD3) 
df <- browsers %>% 
    mutate_each(funs(as.character), browser, version) %>% 
    mutate(bn = group_indices_(., .dots = "browser"), 
     cn = max(bn) + row_number()) 

links <- select(df, bn, cn, share) 
nodes <- data.frame(name = c("", sort(unique(df$browser)), df$version)) 

sankeyNetwork(Links = links, Nodes = nodes, Source = "bn", 
       Target = "cn", Value = "share", NodeID = "name", 
       fontSize = 12, nodeWidth = 30) 

Answer 3

一些方便的技巧在這裏：

來源：Dark Horse Analytics: Salvaging the Pie

（srsly壽，有什麼不對的條形圖？）

注：我不知道什麼黑馬分析一樣。這只是我的去向，反餡餅演示圖像。