R语言︱画图

来源:互联网 发布:禁忌搜索算法ppt 编辑:程序博客网 时间:2024/05/17 09:33


笔者寄语:不论画啥,你先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 0
原创粉丝点击