barplot()函数
1.柱形图
> sales<-read.csv("citysales.csv",header=TRUE) #读取数据 > barplot(sales$ProductA,names.arg=sales$City, #设置Y轴,X轴
+col="black") #设置颜色
结果如下图:
2.水平柱形图
> sales<-read.csv("citysales.csv",header=TRUE) #读取数据 > barplot(sales$ProductA,names.arg=sales$City, #设置Y轴,X轴 + horiz=TRUE, #绘制水平柱形图 + col="black") #设置颜色
结果如下图:
3.彩色柱形图
> sales<-read.csv("citysales.csv",header=TRUE) > barplot(as.matrix(sales[,2:4]), #选择sales数据集的2-4列,形成矩阵 + beside=TRUE, #不是堆叠效果 + legend=sales$City, #设置样例 + col=heat.colors(5), #生成颜色 + border="white") #边框为白色
结果如下图:
4.百分比堆叠柱形图
> library(RColorBrewer) > citysalesperc<-read.csv("citysalesperc.csv") > par(mar=c(5,4,4,8),xpd=T) #xpd设置画图界限 > barplot(as.matrix(citysalesperc[,2:4]), + col=brewer.pal(5,"Set1"),border="white", + ylab="Sales Revenue (1,000's of USD)", + main="Percentage Sales Figures") > legend("right",legend=citysalesperc$City, + bty="n", + inset=c(-0.3,0),fill=brewer.pal(5,"Set1")) #inset设置图例距边缘的位置
5.调整柱形图的宽度,间隔和颜色
> citysales<-read.csv("citysales.csv") > barplot(as.matrix(citysales[,2:4]), + beside=TRUE, + legend.text=citysales$City, #barplot函数内设置图例名称 + args.legend=list(bty="n",horiz=T), #barplot函数内设置图例样式
+ col=c("#E5562A","#491A5B","#8C6CA8","#BD1B8A","#7CB6E4"), #调整颜色
+ border=FALSE,
+ space=c(0,5), #space=c(a,b)a调整每条之间的距离,b调整每组之间的距离
+ ylim=c(0,100),ylab="Sales Revenue(1,000's of USD)",
+ main="Sales Figures")
6.柱形图数据标注
> y<-barplot(as.matrix(citysales[,2:4]), + beside=TRUE,horiz=TRUE, #水平不堆叠柱形图 + legend.text=citysales$City,args.legend=list(bty="n"), + col=brewer.pal(5,"Set1"),border="white", + xlim=c(0,100),xlab="Sales Revenue(1,000's of USD)", + main="Sales Figures") > x<-as.matrix(citysales[,2:4]) > text(x+2,y,labels=as.character(x)) #标注数据
> rain<-read.csv("cityrain.csv") > y<-barplot(as.matrix(rain[1,-1]), #取除了第一列的第一行数据 + horiz=T,col="white", + yaxt="n",main=" Rainfall in January",xlab="Rainfall(mm)") > x<-0.5*rain[1,-1] #设置X为中间位置 > text(x,y,colnames(rain[-1])) #取除了第一列的数据的列名进行标注
7.柱形图误差标注
> sales<-t(as.matrix(citysales[,-1])) > colnames(sales)<-citysales[,1] > x<-barplot(sales,beside=T,legend.text=rownames(sales), + args.legend=list(bty="n",horiz=T), + col=brewer.pal(3,"Set2"),border="white",ylim=c(0,100), + ylab="Sales Revenue (1,000's of USD)", + main="Sales Figures") > arrows(x0=x,y0=sales*0.95, #设置下端位置 + x1=x,y1=sales*1.05, #设置上端位置 + angle=90, #设置箭头斜边和垂直线的夹角 + code=3, #设置箭头类型 + length=0.04, #设置箭头斜边的长度 + lwd=0.4) #设置箭头垂直线的宽度