使用levelplot()绘制Raster时如何移除顶部及右上角直方图

你看到的顶部及右上角的直方图是levelplot()默认生成的边际图（margin plots），只需在调用函数时添加margin = FALSE参数就能移除它们。

修改后的完整代码如下：

library(raster)
library(rasterVis)

# 定义颜色渐变
colorRamp <- colorRampPalette(c("orange","pink","yellow","green","dark green", "blue","dark blue"))

# 绘制栅格，移除边际直方图
levelplot(r, 
          col.regions = colorRamp(100), 
          main = "Predicted BD", 
          scales = list(draw = FALSE),
          margin = FALSE)  # 新增参数，关闭所有默认边际统计图表

这个参数会直接关闭默认的边际统计可视化，只保留核心的栅格地图内容。

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