[問題] ggplot繪製圓餅圖問題

看板R_Language作者jackylikebmw (Tsai Chia Yu)時間6年前 (2018/04/17 17:56)推噓1(1推 0噓 11→)

留言12則, 3人參與討論串1/1

[問題類型]: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) [軟體熟悉度]: 使用者(已經有用R 做過不少作品) [問題敘述]: 我目前想要透過ggplot繪製圓餅圖，上網看了很多範例但是發現套用到我的檔案上時，在圖上繪製百分比時會出現錯誤好像是當有較大百分比位數時，會有一些錯誤，想要請各位幫忙~ [程式範例]: #以下為stackoverflow範例 #https://stackoverflow.com/questions/45657990 library(dplyr) library(ggplot2) data <- data.frame(a=c("a1","a1","a2","a3","a1","a2","a3","a4", "a2","a1","a5","a4","a3"),b=1:13) data <- data %>% group_by(a) %>% count() %>% ungroup() %>% mutate(per=`n`/sum(`n`)) %>% arrange(per) data$label <- scales::percent(data$per) ggplot(data=data)+ geom_bar(aes(x="", y=per, fill=a), stat="identity", width = 1)+ coord_polar("y", start=0)+ theme_void()+ geom_text(aes(x=1, y = cumsum(per) - per/2, label=label)) #在這個範例中，程式是正常顯示的 # https://imgur.com/85FnFOr

#但是當我將某一比例加大時，畫圖就出現錯誤 library(dplyr) library(ggplot2) data <- data.frame(a=c("a1","a1","a2","a3","a1","a2","a3","a4", "a2","a1","a5","a4",rep("a3",20)),b=1:32) data <- data %>% group_by(a) %>% count() %>% ungroup() %>% mutate(per=`n`/sum(`n`)) %>% arrange(per) data$label <- scales::percent(data$per) ggplot(data=data)+ geom_bar(aes(x="", y=per, fill=a), stat="identity", width = 1)+ coord_polar("y", start=0)+ theme_void()+ geom_text(aes(x=1, y = cumsum(per) - per/2, label=label)) #https://imgur.com/7BHUOuq

[環境敘述]: R version 3.4.4 (2018-03-15) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows >= 8 x64 (build 9200) dplyr_0.7.4 ggplot2_2.2.1 [關鍵字]: ggplot , piechart , 圓餅圖 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.172.82.96 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1523958970.A.484.html

推

F0011010101

04/17 21:23, 6年前 , 1^F

04/17 21:23, 1^F

→

F0011010101

04/17 21:25, 6年前 , 2^F

04/17 21:25, 2^F

→

F0011010101

04/17 21:28, 6年前 , 3^F

04/17 21:28, 3^F