有时候我们绘制图形的时候需要将各种图形叠加到一起,本文给出了一个简单示例。
##页面距控制,图形参数可修改控制
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与我联系。