用R一页绘制多图以及绘制组合图(一幅图上添加新图)

在同一页面上绘制多张图用layout()函数，在一幅图上添加新图，得到组合图用par()函数，下面举个例子。

data <- read.table("http://www.ats.ucla.edu/stat/R/notes/hsb2.csv", sep=',', header=T)
attach(data)

par(mfrow=c(2,2))
plot(read,write,main="ScatterPlot of read vs write")
hist(read,main="Histogram of read")
boxplot(read,main="Boxplot of read")
barplot(read,main="Boxplot of read")

data <- read.table("http://www.ats.ucla.edu/stat/R/notes/hsb2.csv", sep=',', header=T)
attach(data)
par(mfrow=c(3,1))
plot(read,write,main="ScatterPlot of read vs write")
hist(read,main="Histogram of read")
boxplot(read,main="Boxplot of read")

data <- read.table("http://www.ats.ucla.edu/stat/R/notes/hsb2.csv", sep=',', header=T)
attach(data)
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE))
hist(read)
hist(write)
hist(math)

data <- read.table("http://www.ats.ucla.edu/stat/R/notes/hsb2.csv", sep=',', header=T)
attach(data)

par(fig=c(0,0.85,0,0.85),new=FALSE)
plot(read,write,ylab="write",xlab="read",col="orange")
par(fig=c(0,0.85,0.45,1),new=TRUE)
boxplot(read,horizontal=TRUE,axes=FALSE,col=rainbow(1))
par(fig=c(0.55,1,0,0.85),new=TRUE)
boxplot(write,horizontal=FALSE,axes=FALSE,col=rainbow(1))
mtext("Enhanced Scatterplot", side=3, outer=TRUE, line=-3)

上面的例子可能举得不恰当，但我发表此博客主要是希望能为R爱好者提供绵薄之力，希望各位提出宝贵意见。