删除fill.contour图例中的线条

Question

我可能在这里遗漏了一些简单的东西......无论如何我都找不到删除跨越图例区分不同颜色的线条；以下来自 ?filled.contour 中的火山地形示例，我有这个:

x <- 10*1:nrow(volcano)
y <- 10*1:ncol(volcano)

filled.contour(x, y, volcano, color = terrain.colors,
   plot.title = title(main = "The Topography of Maunga Whau",
    xlab = "Meters North", ylab = "Meters West"),
    plot.axes = { axis(1, seq(100, 800, by = 100))
              axis(2, seq(100, 600, by = 100)) },
    key.title = title(main="Height\n(meters)"),
    key.axes = axis(2,
          labels=FALSE,
          at=FALSE,
          lty=NULL,
          tick=FALSE,
          col="white",
          col.ticks=NULL)
)
mtext(paste("filled.contour(.) from", R.version.string),side = 1, line = 4, adj = 1, cex = .66)

我已经设法从轴上删除了所有标签和刻度线，但线条仍然存在(顺便说一句，我试图实现的效果是(我相信)Matlab 中的默认值!)

Answer 1

如果您检查 filled.contour 的代码你会看到这一行:

rect(0, levels[-length(levels)], 1, levels[-1L], col = col)

绘制颜色键矩形。它是矢量化的，所以它绘制了每个单独的颜色框。函数 rect接受一个参数 border ，如果您设置为 NA将省略矩形的内部边界。因此，创建您自己的函数版本并将此行更改为:

rect(0, levels[-length(levels)], 1, levels[-1L], col = col, border = NA)

或者让它成为一个论点，而不是硬编码。当我这样做时，我得到以下图表: