красивые Круговые диаграммы с R

Question

Допустим, у меня есть этот простой данные:

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

Если я хочу создать круговую диаграмму из этого dataframe я могу сделать:

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

Вы можете попробовать с pie3D() функции из plotrix пакета:

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.Использование browsers данных @rawr post вы могли бы сделать:

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" 
) 

Вы также можете использовать как Анкей схема (от 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 Тхо, что случилось с гистограммой?)

Примечание: Я понятия не имею, что делает Dark Horse Analytics. Это просто мой демонстрационный образ анти-пирога.