一页多图

par("mar")
par(mar = c(1, 1.5, 1, 0.5), bg = "white")
pay=c(11,19,14,22,14,28,13,81,12,43,11,16,31,16,23.42,22,26,17,22,13,27,180,16,43,82,14,11,51,76,28,66,29,14,14,65,37,16,37,35,39,27,14,17,13,38,28,40,85,32,25,26,16,12,54,40,18,27,16,14,33,29,77,50,19,34)
par(mfrow=c(2,3))#将绘图窗口改成2*3，可同时显示六幅图
hist(pay, pch = "1")#绘制直方图
dotchart(pay, pch = "2")#绘制点图
barplot(pay,horiz=T, pch = "3")#绘制条形图 # barplot(pay,horiz=T)#绘制条形图
qqnorm(pay, pch = "4");qqline(pay)#绘制Q-Q图
qqnorm(pay, pch = "5");abline(h=mean(pay)+sd(pay))#)//添加一个均值+标准差的水平线
plot(density(pay), pch = "6") #在坐标轴上显示数据密度
# horiz：逻辑参数。设置图形是水平或是垂直。

RStudio中报错Error in plot.new() : figure margins too large。
原因：图的边距太小，就是边距设置的太大。一个是确实小，par("mar")可以查看，

可以通过par(mar=c(1,1,1,1))修改。

但有时问题依然存在，这是第二个原因，RStudio的四分窗口中plot的窗口过小，解决办法就是用鼠标把窗口拖大点。

----------------------

mar-控制图形边界宽度(单个图形的边界)
默认的为c(5,4,4,2)+0.1，也就是我们上面做的图都是默认值。顺序为下、左、上、右，也就是顺时针的方向。