如何在R语言中修改绘图已有坐标轴并避免重复叠加？

你遇到的这个坐标轴叠加问题在R基础绘图里真的挺常见的——直接重复调用axis()的话，新的坐标轴、刻度和标签都会叠在旧的上面，要么线条变粗，要么文字糊成一团，看着特别闹心。不用重新画整个图形的话，有几个实用的小技巧能快速解决：

方法1：用背景色覆盖旧坐标轴后重绘 #

这个思路最直接：先把原来画错的坐标轴用和绘图背景一样的颜色（默认是白色，col="white"）再画一遍，把旧的内容完全覆盖掉，然后再绘制正确的坐标轴。

修改你的代码如下：

library("sp")
# 准备数据
data("meuse.riv")
meuse.lst <- list(Polygons(list(Polygon(meuse.riv)),"meuse.riv"))
meuse.sr <- SpatialPolygons(meuse.lst)

# 创建初始绘图（不显示默认坐标轴）
plot(meuse.sr, axes = F)

# 错误的x轴（只有3个刻度）
axis(1, at = c(178000 + 0:2 * 2000), cex.axis = 0.7)
# 用白色覆盖旧x轴的线条、刻度和标签
axis(1, at = c(178000 + 0:2 * 2000), cex.axis = 0.7, col="white", col.ticks="white", col.axis="white")
# 绘制正确的x轴（4个刻度）
axis(1, at = c(178000 + 0:3 * 2000), cex.axis = 0.7)

# 错误的y轴（字体未设置缩小）
axis(2, at = c(326000 + 0:3 * 4000))
# 用白色覆盖旧y轴
axis(2, at = c(326000 + 0:3 * 4000), col="white", col.ticks="white", col.axis="white")
# 绘制正确的y轴（设置cex.axis=0.7）
axis(2, at = c(326000 + 0:3 * 4000), cex.axis = 0.7)

# 最后重新绘制边框，避免覆盖后边框缺失
box()

方法2：提前规划，避免重复绘制 #

如果提前知道可能要调整坐标轴，建议在初始绘图时就不绘制坐标轴，先画好图形主体，再直接添加正确的坐标轴版本。比如：

# 初始绘图时就关闭坐标轴
plot(meuse.sr, axes = F)
# 直接添加正确的x轴和y轴
axis(1, at = c(178000 + 0:3 * 2000), cex.axis = 0.7)
axis(2, at = c(326000 + 0:3 * 4000), cex.axis = 0.7)
box()

这种方法从根源上避免了叠加问题，适合提前有规划的绘图场景。

方法3：精准清除旧刻度和标签 #

如果只是刻度或标签的问题，也可以通过axis()的参数精准隐藏旧元素：

• 设置tck=0可以隐藏刻度线
• 设置labels=FALSE可以隐藏标签
• 配合col="white"彻底清除视觉痕迹

示例代码：

# 清除旧x轴的刻度和标签
axis(1, at = c(178000 + 0:2 * 2000), cex.axis = 0.7, tck=0, labels=FALSE, col="white")
# 绘制正确的x轴
axis(1, at = c(178000 + 0:3 * 2000), cex.axis = 0.7)

这样处理后，就不会出现坐标轴叠加的问题，不用重新绘制整个空间多边形图形啦。

内容的提问来源于stack exchange，提问作者slightlym