R语言绘制柱形图系列

news2024/11/17 9:48:59

#EasyCharts团队出品，
#如有问题修正与深入学习，可联系微信：EasyCharts

library(ggplot2) 

#---------------------------单数剧系列柱形图----------------------------------------------------

mydata<-data.frame(Cut=c("Fair","Good","Very Good","Premium","Ideal"), 
                   Price=c(4300,3800,3950,4700,3500)) 
#排序方法1：基于数据框data.frame
library(dplyr)
mydata2<-arrange(mydata,desc(Price))
mydata$Cut <- factor(mydata$Cut, levels = mydata2$Cut)
ggplot(data=mydata,aes(Cut,Price))+ 
  geom_bar(stat = "identity", width = 0.8,
           colour="black",size=0.25,fill="#FC4E07",alpha=1)

#排序方法2：基于向量vector
order<-sort(mydata$Price,index.return=TRUE,decreasing = TRUE) 
mydata$Cut <- factor(mydata$Cut, levels = mydata$Cut[order$ix]) 
ggplot(data=mydata,aes(Cut,Price))+ 
  geom_bar(stat = "identity", width = 0.8,
           colour="black",size=0.25,fill="#FC4E07",alpha=1)

在这里插入图片描述

library(reshape2)
mydata<-read.csv("MultiColumn_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)

mydata$Catergory<- factor(mydata$Catergory, levels = mydata$Catergory[order(mydata$X1996,decreasing = TRUE)])

mydata<-melt(mydata,id.vars='Catergory')

ggplot(data=mydata,aes(Catergory,value,fill=variable))+
  geom_bar(stat="identity", color="black", position=position_dodge(),width=0.7,size=0.25)+
  scale_fill_manual(values=c("#00AFBB", "#FC4E07", "#E7B800"))+
  ylim(0, 10)+
  theme(
    axis.title=element_text(size=15,face="plain",color="black"),
    axis.text = element_text(size=12,face="plain",color="black"),
    legend.title=element_text(size=14,face="plain",color="black"),
    legend.background  =element_blank(),
    legend.position = c(0.88,0.88)
  )

在这里插入图片描述

mydata<-read.csv("StackedColumn_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)

sum<-sort(rowSums(mydata[,2:ncol(mydata)]),index.return=TRUE)
colsum<-sort(colSums(mydata[,2:ncol(mydata)]),index.return=TRUE,decreasing = TRUE)
mydata<-mydata[,c(1,colsum$ix+1)]

mydata$Clarity <- factor(mydata$Clarity, levels = mydata$Clarity[order(sum$ix)])

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_fill_manual(values=c("#00AFBB", "#FC4E07", "#E7B800","#BA55D3","#FF00FF"))+
  ylim(0, 15000)+
  theme(
    axis.title=element_text(size=15,face="plain",color="black"),
    axis.text = element_text(size=12,face="plain",color="black"),
    legend.title=element_text(size=14,face="plain",color="black"),
    legend.background  =element_blank(),
    legend.position = c(0.85,0.82)
  )

在这里插入图片描述
mydata<-read.csv(“StackedColumn_Data.csv”,sep=“,”,na.strings=“NA”,stringsAsFactors=FALSE)
Per<-(as.matrix(mydata[5,2:ncol(mydata)])) / t(as.matrix(colSums(mydata[,2:ncol(mydata)])))

Ideal<-sort(as.numeric(Per),index.return=TRUE,decreasing = TRUE)
mydata<-mydata[,c(1,Ideal $i x + 1)] m y d a t a$ Clarity <- factor(mydata $C l a r i t y, l e v e l s = m y d a t a$ Clarity[c(1:5)])
mydata<-melt(mydata,id.vars=‘Clarity’)

ggplot(data=mydata,aes(variable,value,fill=Clarity))+
geom_bar(stat=“identity”, position=“fill”,color=“black”, width=0.8,size=0.25)+
scale_fill_manual(values=c(“#00AFBB”, “#FC4E07”, “#E7B800”,“#BA55D3”,“#FF00FF”))+
theme(
axis.title=element_text(size=15,face=“plain”,color=“black”),
axis.text = element_text(size=12,face=“plain”,color=“black”),
legend.title=element_text(size=14,face=“plain”,color=“black”),
legend.position = “right”
)
在这里插入图片描述
开发工具：RStudio与Alt+A截屏工具
参考文献:https://download.csdn.net/download/weixin_39840588/11515554?utm_medium=notify.im.downloadSource.a&username=m0_38127487