schöne Pie Chart mit R

Question

Lassen Sie sich sagen, ich habe diese einfachen Daten:

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

Wenn ich ein Kreisdiagramm aus diesem Datenrahmen erstellt werden soll ich tun kann:

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

Es ist ziemlich einfach, aber akzeptabel.

Wie kann ich etwas ähnliches mit ggplot2 oder Gitter bekommen?

Nach viel Versuch und Irrtum Ich habe

bekam

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

Es ist viel komplexer und hässlich. Soll das nicht einfach sein? ggplot Bücher geben nur einige Beispiele und raten von der Verwendung von Kreisdiagrammen ab.

Gitter ist noch schlimmer, Sie brauchen viele viele Linien, um es zu erschrecken.

Könnte mir bitte jemand helfen, ein nettes und einfaches Tortendiagramm zu bekommen? Zum Beispiel so etwas wie ...

Gibt es kein R-Paket kann es leicht, ohne 20 Zeilen Code, tun?

Answer 1

Sie mit der pie3D() Funktion aus dem plotrix Paket ausprobieren können:

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

Warum nicht ein Quadrat Kreisdiagramm?

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

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

---

Wenn Sie mehrere Dimensionen von Informationen haben, könnte eine weitere Option sunburstR sein.Mit browsers Daten von @rawr post Sie tun können:

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

Sie treemap nutzen könnten (für eine interaktive Version, versuchen @ timelyportfolio der d3treeRpackage)

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

Sie könnten auch als verwenden Ankey Diagramm (aus dem 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

Einige praktische Tipps hier:

Quelle: Dark Horse Analytics: Salvaging the Pie

(srsly tho, was mit einem Balkendiagramm falsch?)

HINWEIS: Ich habe keine Ahnung, was Dark Horse Analytics tut. Dies ist nur mein Demo-Anti-Pie-Demo.