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

90 第五章 图库
1 > par(mar = c(4, 4, 2, 2), cex.main = 1)
2 > x = 10 * 1:nrow(volcano)
3 > y = 10 * 1:ncol(volcano)
4 > filled.contour(x, y, volcano, color = terrain.colors,
5 + plot.title = title(main = "The Topography of Maunga Whau",
6 + xlab = "Meters North", ylab = "Meters West"),
7 + plot.axes = {
8 + axis(1, seq(100, 800, by = 100))
9 + axis(2, seq(100, 600, by = 100))
10 + }, key.title = title(main = "Height\n(meters)"),
11 + key.axes = axis(4, seq(90, 190, by = 10)))
Meters West
600
500
400
300
200
100
The Topography of Maunga Whau
100 200 300 400 500 600 700 800
Meters North
Height
(meters)
图 5.17: 新西兰Maunga Whau火山高度数据颜色等高图
190
180
170
160
150
140
130
120
110
100
90