- 基本作图plot
plot(faithful)
short.eruptions<-with(faithful,faithful[eruptions<3,])
#把喷发时间不超过3分钟的用红色点标出来
points(shorts.eruptions,col="red",pch=19)
#绘制一条紫色的垂直线
abline(v=3,color="purple")
#向数据图添加直线(回归)
fit<-lm(waiting~eruptions,data=faithful)
lines(faithful$eruptions,fitted(fit),col="blue")
#或者用
abline(a=coef(fit)[1],b=coef(fit)[2])
abline(fit,col="red")
- type参数，控制绘制图形的类型
plot(LakeHuron,type="l",main='type="l"') #折线图
plot(LakeHuron,type="p",main='type="p"') #散点图
plot(LakeHuron,type="l",main='type="b"') #点线图
- 灵活绘制其他数据图
with(mtcars,plot(mpg,disp))
with(mtcars,boxplot(disp,mpg))
with(mtcars,hist(mpg)
pairs(iris) #绘制散点图矩阵
- 控制数据图选项和参数
1.标题和坐标轴标签
main xlab ylab
2.修改数据图选项
坐标轴标签的样式las(label style)
"0":默认，与坐标轴平行
"1"：始终水平
"2"：与坐标轴垂直
"3"：始终垂直
坐标轴axis()
图例legend
文字text
3.外框类型
bty(box type)参数
"o":默认在绘图区域绘制一个完整的矩形
"n":不绘制外框
"l" "7" "c","u","]" 参数对应大写字母形状，确定绘制边框的方向。
4.文字和坐标轴的字号
cex（character expansion ratio）
cex.main
cex.lab
cex.axis
5.在单页中绘制多个数据图
mfrowmfcol
要绘制两个并排的数据图，mfrow=c(1,2)
old.par<-par(mfrow=c(1,2))
plot(faithful,main="Faithful eruptions")
plot(large.islands,main="Islands",ylab="Area")
par(old.par) #恢复摄者
home文件夹 "~/"
- 保存图片
png(filename="faithful.png") #打开一个图形设备
plot(faithful) #创建数据集
dev.off() 关闭图形设备
- 使用lattice绘制切片图片
#绘制散点图，使用xyplot()函数
#formula: y~x |z 创建 y对x的数据图，以z为条件
xyplot(mpg ~ hp | factor(cyl), data=mtcars)
添加趋势线（回归线）
xyplot(mpg ~ hp | factor(cyl), data=mtcars),type=c("p","r"))
其中,type="p"表示点,type="r"表示回归线使用主图修改数据图选项
par.settings()函数可以使其与simpleTheme()函数结合。
xyplot(mpg ~ hp | factor(cyl), data=mtcars),type=c("p","r")， par.settings=simpleTheme(col="red",col.line="blue")绘制不同类型图：
散点图 xyplot() 柱状图 barchart() 箱型图 bwplot() 一维条带图 stripplot() 三维散点图 cloud() 三维曲面图 wireframe()
绘制柱状图
barchart(car ~ mpg |factor(cyl),data=mtcars,
main="barchart",
scales=list(cex=0.5),
layout=c(3,1)
绘制箱型图
bwplot(~ hp |factor(cyl) ,data=mtcars,main="bwplot")
绘制分组数据
mtcars$cars <- rownames(mtcars)
mtcars$am <- with (mtcars, ifelse(am=0, "Automatic","Manual"))
barchart(cars ~ mpg | factor(cyl), data=mtcars,group=am,scales=list(cex=0.5),layout=c(3,1),
auto.key=TRUE）#添加图例
