资源描述：
《R语言图形代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、plot(cars$dist~cars$speed,#y~x，cars是R自带的数据main="Relationshipbetweencardistance&speed",#标题xlab="Speed(milesperhour)",#x轴标题ylab="Distancetravelled(miles)",#Y轴标题xlim=c(0,30),#设置x轴的取值区间为0到30ylim=c(0,140),#设置y轴的取值区间为0到140xaxs="i",#这里是设置x轴的风格，暂时没看明白有多大区别yaxs="i",col="red",#设置颜色pch=19)#pch指代点的形状，用数
2、字表示，可查看帮助文档#如果要保存图片怎么办呢？我觉得最简单的方法就是使用RStudio这个IDE，极其得好，可惜很多人都不知道。#如果你不会，可以用如下代码实现：#（图形的参数还有很多个，我这里只使用了其中的几个）png(filename="散点图.png",width=480,height=480)plot(cars$dist~cars$speed,#y~xmain="Relationshipbetweencardistance&speed",#标题xlab="Speed(milesperhour)",#x轴标题ylab="Distancetravelled(miles)"
3、,#Y轴标题xlim=c(0,30),#设置x轴的取值区间为0到30ylim=c(0,140),#设置y轴的取值区间为0到140xaxs="i",#这里是设置x轴的风格，暂时没看明白有多大区别yaxs="i",col="red",pch=19)#pch指代点的形状，用数字表示，可查看帮助文档dev.off()如果你还有另一组数据，需要在上面这幅图里绘制，也就是在同一幅图里面绘制两组数据的散点图，可以像下面这样用point函数：plot(cars$dist~cars$speed,#y~xmain="Relationshipbetweencardistance&speed",#标题
4、xlab="Speed(milesperhour)",#x轴标题ylab="Distancetravelled(miles)",#Y轴标题xlim=c(0,30),#设置x轴的取值区间为0到30ylim=c(0,140),#设置y轴的取值区间为0到140xaxs="i",#这里是设置x轴的风格，暂时没看明白有多大区别yaxs="i",col="red",pch=3)#pch指代点的形状，用数字表示，可查看帮助文档points(cars$speed~cars$dist,pch=19)#因为比较难弄数据，就把原先的数据因果关系颠倒一下，pch设置与前面不同以区分如果自己没有数据的话
5、，可以用data()查看R语言内置的数据的哦。还是有挺多数据的。上面的这些是散点图，但是你只要在参数里面type="l"#是字母l，那么就会将这些点串联起来画成线了。plot(cars$dist~cars$speed,#y~xmain="Relationshipbetweencardistance&speed",#标题xlab="Speed(milesperhour)",#x轴标题ylab="Distancetravelled(miles)",#Y轴标题xlim=c(0,30),#设置x轴的取值区间为0到30ylim=c(0,140),#设置y轴的取值区间为0到140xaxs=
6、"i",#这里是设置x轴的风格，暂时没看明白有多大区别yaxs="i",col="red",type="l",#是字母l，那么就会将这些点串联起来画成线了pch=19)#pch指代点的形状，用数字表示，可查看帮助文档条形图的绘制方法（barplot），数据是该书自带的Sales<-read.csv("citysales.csv",header=TRUE)#header设置为TRUE表示把数据行和列的名称也读取进来barplot(Sales$ProductA,names.arg=Sales$City,col="blue")用代码保存图形，将绘图语句写在开启目标图形设备的语句和关闭
7、目标图形设备的语句之间即可。#pdf("mygraph.pdf")#pdf文件win.metafile("filename.wmf")#windows图形文件#png("filename.png")#PBG文件#jpeg("filename.jpg")#JPEG文件#bmp("filename.bmp")#BMP文件#postscript("filename.ps")#PostScript文件attach(mtcars)plot(wt,mpg)#散点图abline(lm(mpg~wt))#加
