R语言空间多边形地图绘制优化：消除白色线条及美化求助

安全阿岳

2026-10-2

白色线条问题解决方案

你看到的白色线条是面要素之间的边框间隙透出画布底色导致的，可通过以下操作直接解决：

调整面要素的边框参数：将plot绘制空间面数据代码中的border=rgb(0,0,0,0.05)替换为border = colours，让每个多边形的边框和自身填充色完全一致，从根本上消除间隙漏白；如果不需要显示面要素边框，也可以直接设置border = NA完全隐藏边框。
你之前调整cex参数不生效是正常情况：cex参数仅控制文本、点元素的缩放，面要素的尺寸本身不受该参数控制，无需再尝试通过调整cex解决线条问题。

修改后的可运行代码

par(mfrow=c(1,1), cex.lab=1.5,cex.axis=1.3, cex.main=1.5, mar=c(0,1.5,1.2,1.5))

# 生成分级和配色
int <- classIntervals(`Large spatial polygon dataframe`@data$X, n=15, style="quantile",precision=2)
colours <- findColours(int, palette, cutlabels=FALSE)

# 先画世界底图（调整了图层顺序，避免底图边界遮挡你的数据）
data(wrld_simpl)
wrld_simpl.sp <- spTransform(wrld_simpl, "+proj=moll")
plot(wrld_simpl.sp)

# 再绘制你的空间面数据，修改边框参数
plot(`Large spatial polygon dataframe`, col=colours, border=colours, las=1, lwd=0.3 ,lty=2,main="X", adj=0, add=T)

# 绘制图例
legend("bottomleft", legend=paste0("<",round(int$brks[-1],digits=0)), fill=palette, border=palette,
bty="n", title="", cex=1.3, y.intersp = 0.75)

额外绘图优化建议

你当前设置的分级数量n=15过高，15个色阶普通读者很难区分差异，建议降到5-8个，可视化的可读性会明显提升。
如果后续需要更灵活的绘图调整，可以尝试切换到sf包+ggplot2的绘图体系，相比基础绘图函数，该体系的空间渲染抗锯齿效果更好，参数逻辑更统一，也更容易实现各类自定义调整。
如果对渲染清晰度有要求，可以在绘图前用png()/pdf()函数开启矢量/高清位图设备，设置更高的分辨率输出，避免导出的图片出现锯齿、模糊问题。