现代统计图形 - 科学网—博客

4.5 网格线 51
1 > # 产生40个正态随机数
2 > x = rnorm(40)
3 > # 画线图
4 > plot(x, xlab = "", type = "l")
5 > # 请思考为什么坐标值要这样设置:多边形的连线路径
6 > polygon(c(1, 1:40, 40), c(0, x, 0), col = "gray")
7 > # 获取当前图形区域坐标范围,以便下用
8 > xy = par("usr")
9 > # 用白色矩形挡住了0以下的部分
10 > rect(xy[1], xy[3], xy[2], 0, col = "white")
11 > # 重画一遍x的线条
12 > lines(x)
13 > # 添加水平线
14 > abline(h = 0, col = "lightgray")
-2 -1 0 1 2
x
0 10 20 30 40
图 4.7: 多边形和矩形结合使用的一个巧妙图示:将0上下的数值分别用不
同颜色填充。本图也可以利用clip()函数更方便地完成,请读者自行查阅帮
助。