R语言︱画图

笔者寄语:不论画啥,你先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)标识字符(字符向量)

详细可参考:http://blog.sina.com.cn/s/blog_5de124240101q5vw.html

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券