R语言︱画图

悟乙己

发布于 2019-05-26 10:31:03

1.2K0

发布于 2019-05-26 10:31:03

笔者寄语：不论画啥，你先plot准没错。

plot	二维坐标绘图
dotchart	点图
barplot	条形图
hist	直方图
pie	饼图
points	添加点
lines	添加线
text	添加文字
title	添加标题
boxplot	箱线图

1、plot函数

##画图
plot(x~y,xlab="",ylab="",main="",xlim=c(0,45),ylim=c(0,45),pch=18,col=2,cex=5)
#xlab/ylab，xy标题
#main，主标题
#xlim,ylim，xy线段范围
#pch，点的类型（圆形、棱形等）
#col，线条的颜色
#cex，点的大小

2、分块展示

#预先在数据框中分块,2*2分块
par(mfrow=c(2,2),mar=c(3,3,2,1))
par(del)                           #画好需要关闭

3、箱型图

#箱型图
boxplot(x~y,data=iris)  #依据y分类，求得x的箱型图

4、条形图

#条形图
barplot(x,beside=T,col=rainbow) #beside=T代表邻接条形图，F代表堆砌

5、直方图

#直方图
hist(iris$Petal.Width,freg=F)  #freg=F,概率=频率/组距（离散概率密度特有的公式），当组距为1时，概率等于频率

加入一些其他元素——先

hist(iris$Petal.Width,freg=T)  #freg=T,频率
lines(density(iris$Petal.Width),col=4) #概率密度
lines(x,dnorm(x,mean(iris$Petal.Width),sd(iris$Petal.Width)),col=red)#正态密度曲线

6、QQ图

#QQ图——检验正态性
qqnorm(x)
qqline(x)
shapiro.test(x)  #正态性检验

7、带形图

#带形图
strpchart(y~x,vert=T,pch=1,method="jiter",jit=0.05)
point(x,y,pch=16,cxe=1.5)
arrows(x,y,x,y+se)
arrows(x,y,x,y-se)

8、克利夫兰图

#克利夫兰图
dotchart

9、组合图

#组合图
pairs(iris[,2:4])
plot(iris[,2:4])  #与上面一样

10、雷达图

##雷达图
stars(x,full=F,draw.segments = T,key.loc =c(5,0.5) , mar =c(2,0,0,0) )
#full=F，代表半圆
#segments代表一段一段画
#注释图标位置
#图边距

11、直方图+帕累托图结合

帕累托图可以实现，同类元素的贡献率比较。

<span style="font-family: 'Microsoft YaHei'; font-size: 18px;">dishdata=read.csv(file="./data/catering_dish_profit.csv",header=TRUE)
barplot(dishdata[,3],col="blue1",names.arg=dishdata[,2],width=1,space=0,ylim=c(0,10000),xlab="菜品",ylab="盈利：元")
accratio=dishdata[,3]
for ( i in 1:length(accratio)){
  accratio[i]=sum(dishdata[1:i,3])/sum(dishdata[,3])
}</span><span style="font-family:Microsoft YaHei;font-size:18px;">
</span>

先做一个直方图，然后把数据，以点的形式加入直方图中。

<span style="font-family:Microsoft YaHei;"><span style="font-size: 18px;">par(new=T,mar=c(4,4,4,4))
points(accratio*10000~c((1:length(accratio)-0.5)),new=FALSE,type="b",new=T)
axis(4,col="red",col.axis="red",at=0:10000,label=c(0:10000/10000))
mtext("累积百分比",4,2)
points(6.5,accratio[7]*10000,col="red")
text(7,accratio[7]*10000,paste(round(accratio[7]+0.00001,4)*100,"%")) </span><span style="font-size:18px;">
</span></span>

point加点；axis右边坐标轴，mtext右边坐标轴的名称，text给出本文。

12、图形添加物

有添加线lines、点points、图例legend等其他。

legend(x, y, legend, ...) ：在当前图的特定位置增加图例（legend）。标识字符，线条格式，颜色等都是被字符向量legend 中的标签所注释。另外一个含有画图单位对应值的参数v (一个和legend 长度一致的向量)是必须给定的：

legend(x,y,fill=v,col=v,lty=v, lwd=v,pch=v) #legend( , fill=v)填充盒子的颜色 #legend( , col=v)点或者线条的颜色 #legend( , lty=v)线条样式 #legend( , lwd=v)线条宽度 #legend( , pch=v)标识字符(字符向量)