快捷導(dǎo)航

R語言繪圖數(shù)據(jù)可視化pie?chart餅圖

更新時間：2022年02月17日 15:02:12 作者：生信了

這篇文章主要介紹了R語言繪圖數(shù)據(jù)可視化pie?chart餅圖，教大家如何用R語言來畫大餅，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步

今天要給大家介紹的Pie chart（餅圖），本來是不打算寫這個的，因為用Excel畫餅圖實在是太方便了。本著能少動一下是一下的懶人原則，是不打算用R畫的，再說，本小仙不是掌握了R作圖大器ggplot2么，實在需要用的時候我就一句ggplot()+geom_pie()不就搞定了。

結(jié)果后來用Excel畫餅圖調(diào)整顏色、大小的時候著實有些崩潰。習慣了幾句代碼就出圖之后，沒有辦法再忍受手動操作、一遍又一遍調(diào)整了。懶惰驅(qū)使我學(xué)習。。。接下來又發(fā)現(xiàn)，geom_pie()根本不存在，得用geom_bar()畫餅圖。

好了，廢話一堆，開始步入正題。
作圖的流程如下，先畫出堆積柱狀圖之后，在此基礎(chǔ)上再修改細節(jié)。

具體步驟如下：

Step 1. 繪圖數(shù)據(jù)的準備

首先還是要把你想要繪圖的數(shù)據(jù)調(diào)整成R語言可以識別的格式excel中保存成csv格式。
數(shù)據(jù)的格式如下圖：

Step2. 繪圖數(shù)據(jù)的讀取

data<-read.csv(“your file path”, header = T)
data$Group <- factor(data$Group, levels=data$Group) # 把group一列轉(zhuǎn)化為因子型，并確定因子的順序

Step3.繪圖所需package的調(diào)用

library(ggplot2)

Step4. 餅圖百分比標簽準備

mylabel<-paste(data[,2],"%")  #數(shù)值后加百分號，賦值給一個向量
mylabel<-rev(mylabel)  #rev()函數(shù)顛倒標簽的順序
percent<-rev(data$Percentage) #顛倒標簽在y軸上的順序

Step5.繪圖

p<-ggplot(data,aes(x="",y=Percentage,fill=Group)) +
  geom_bar(stat = "identity",color="white") + 
  scale_fill_manual(values = c("#FFA533","#2BCF76","#4874EC","#A372E6")) +
  coord_polar(theta = "y") +
  theme(axis.text.x = element_blank(),
        axis.ticks = element_blank(),
        panel.grid = element_blank()) +
  geom_text(aes(y= cumsum(percent)-percent/2, x= 1),label=mylabel)
p

在這里插入圖片描述