R语言：堆叠柱形图

堆叠柱形图可以在一个图中展示更丰富的信息，比如本篇所展示的图片，每一个柱子都有不同的颜色，每一个颜色对应于一个种类的各种等级，纵坐标反映了每一个等级对应的数值。

代码如下：

mydata<-read.csv("StackedColumn_Data.csv") 
Order<-sort(colSums(mydata[,2:ncol(mydata)]),index.return=TRUE,decreasing = TRUE)  
#根据列求和结果对数据排序 
mydata<-mydata[,c(1,Order$ix+1)]  
#根据列求和结果对表格排序 
mydata$Clarity <- factor(mydata$Clarity, levels = mydata$Clarity[c(1:5)]) 
# 由于输入时就已经按顺序导入表格，所以只需要保持固有的排序即可 
mydata<-melt(mydata,id.vars='Clarity') 
ggplot(data=mydata,aes(variable,value,fill=Clarity))+ 
  geom_bar(stat="identity",position="stack", color="black", width=0.7,size=0.25)+
  scale_color_npg()+
  scale_fill_npg()

图片如下：

如果大家需要数据或者对文章数据分析图有需要的可以私信我哦：qicong0719