基本簡(jiǎn)介
堆積柱狀百分比圖（Proportion stack bar chart）是在堆積柱狀圖的基礎(chǔ)上增加了百分比，主要可以用來(lái)表示不同數(shù)據(jù)在所有數(shù)據(jù)中的占比情況。當(dāng)數(shù)據(jù)呈現(xiàn)多組時(shí)，其可以對(duì)不同組數(shù)據(jù)下的同一類數(shù)據(jù)進(jìn)行對(duì)比分析，從而確定數(shù)據(jù)分布情況。這種類型的圖常被用于微生物組的科屬等相對(duì)豐度的比較。在植物群落中，這種圖也可用來(lái)比較不同區(qū)域/樣地間不同科屬占比情況。本案例中，我們使用模擬數(shù)據(jù)來(lái)進(jìn)行繪制堆積柱狀百分比圖，和之前一樣，依然用ggplot2包實(shí)現(xiàn)。
示例代碼
#清除環(huán)境
rm(list=ls())
#加載相關(guān)的包
library(ggplot2)
library(ggthemes)
#設(shè)置工作路徑
setwd("C:\\Users\\ASUS\\Desktop")
#讀入數(shù)據(jù)
data<-read.csv("data.csv")
head(data)
ID為不同的數(shù)據(jù)ID，Group表示不同的分組。
#Group轉(zhuǎn)換為因子，并排序
group = factor(data$Group,levels=unique(data$Group),order=TRUE)
#設(shè)置顏色
mycolors<-c("#CCFF00","#6495ED","#FFA500","#228B22","#FF4500")
#作圖
ZM <- ggplot(data=data,aes(x=group,y=value,fill=ID)) +
geom_bar(stat="identity",position="fill") +
scale_fill_manual(values=mycolors)+
scale_y_continuous(expand = expansion(mult=c(0.01,0.02)),
labels = scales::percent_format())+
labs(x="Group",y="Relative Abundance",
fill=" ",title="")+
theme_bw()+
theme(axis.title.y=element_text(size=14))+
theme(legend.text=element_text(size=10))+
theme(axis.text.x = element_text(size = 12, color = "black"))+
theme(axis.text.y = element_text(size = 12, color = "black"))+
theme(axis.ticks.length=unit(0.3,"cm"))+
theme(axis.text.x=element_text(angle=45,vjust=1,hjust=1,size=11))
ZM
