有时候我们绘制图形的时候需要将各种图形叠加到一起，本文给出了一个简单示例。

##页面距控制，图形参数可修改控制

opar <- par(mar=c(4,4,4,4),no.readonly=TRUE)

##绘制箱形图
par(fig=c(0, 0.8, 0.2, 0.6))
boxplot(mtcars$wt, horizontal=TRUE, axes=FALSE)

##绘制散点图
par(fig=c(0, 0.8, 0, 0.8), new=TRUE)
plot(mtcars$wt, mtcars$mpg,
     main="Enhanced Scatterplot",
     xlab="Miles Per Gallon",
     ylab="Car Weight",col="blue")

##绘制箱形图
par(fig=c(0.55, 0.9, 0, 0.8), new=TRUE)
boxplot(mtcars$mpg, axes=FALSE)


par(opar)

结果图显示：

如有任何问题，请点击链接加入群【R语言＆大数据分析】：https://jq.qq.com/?_wv=1027&k=4E7piBo或者加群号456726635与我联系。