Charts Pie đẹp với R

Question

Hãy nói rằng tôi có dữ liệu đơn giản này:

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

Nếu tôi muốn tạo ra một biểu đồ pie từ dataframe này tôi có thể làm:

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

Nó khá đơn giản nhưng có thể chấp nhận được.

Làm cách nào để có được thứ gì đó tương tự với ggplot2 hoặc mạng?

Sau nhiều thử và sai Tôi đã có

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

Đó là phức tạp hơn nhiều và xấu xí. Không phải là dễ dàng sao? sách ggplot chỉ đưa ra một số ví dụ và không khuyến khích sử dụng biểu đồ hình tròn.

Lưới thậm chí còn tồi tệ hơn, bạn cần nhiều dòng để làm cho màn hình trở nên đáng sợ.

Ai đó có thể giúp tôi có được biểu đồ hình tròn đẹp và đơn giản không? Ví dụ một cái gì đó giống như ...

là không có bất kỳ gói R có khả năng để làm điều đó một cách dễ dàng, mà không cần 20 dòng mã?

Answer 1

Bạn có thể thử với pie3D() chức năng từ gói 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

Tại sao không phải là square biểu đồ hình tròn?

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

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

---

Nếu bạn có nhiều khía cạnh của thông tin, tùy chọn khác có thể là sunburstR.Sử dụng browsers dữ liệu từ @rawr post bạn có thể làm:

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

Bạn có thể sử dụng treemap (cho một phiên bản tương tác, hãy thử @ timelyportfolio của d3treeRpackage)

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

Bạn cũng có thể sử dụng sơ đồ ankey (từ 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

Một số lời khuyên hữu ích ở đây:

Nguồn: Dark Horse Analytics: Salvaging the Pie

(srsly tho, những gì xảy ra với một biểu đồ thanh?)

Chú ý: Tôi không có ý tưởng những gì Dark Horse Analytics cũng vậy. Đây chỉ là hình ảnh demo đi kèm, chống bánh của tôi.