基于barplot/ggplot2 geom_col生成Leaflet地图单柱PNG图标

嘿，我一眼就发现问题根源啦！你当前的代码里，每个条形图都是自动适配单个柱子的高度来设置y轴范围的——比如val=7时y轴是0-7，val=19时y轴是0-19，这就导致不管实际数值多大，柱子都会撑满各自图表的高度，看起来完全一样。咱们只需要统一所有图表的y轴上限，让柱子高度按比例缩放，就能正确展示差异了。

修复后的基础barplot代码 #

我修改了你的代码，核心改动是统一y轴范围，同时调整文本位置的逻辑：

lats = c(69.5, 70.0, 69.0)
lons = c(33.0,33.5,34.3)
vals = c(7,19,5)
df = data.frame(lats, lons, vals)

# 计算所有val的最大值，用于统一所有图表的y轴上限
max_val <- max(df$vals)
# 给顶部文本预留空间，设置y轴上限为最大值的1.1倍
y_upper <- max_val * 1.1

for (i in 1:3) {
 png(file=paste0(i,".png"), width=100, height=200, res=72)
 # 去掉冗余的height参数，添加统一的ylim设置
 bp <- barplot(df$vals[i], width=0.2, xlim=c(0,1.2), col="brown4", axes=FALSE, ylim=c(0, y_upper));
 # 文本位置改为柱子高度+小偏移，确保在柱子上方且自适应高度
 text(bp, df$vals[i] + max_val * 0.05, labels=df$vals[i]);
 dev.off()
}

关键改动说明： #

• 统一y轴范围：用所有val的最大值计算出固定的y轴上限，确保所有图表的高度标尺一致，柱子高度会按实际数值占最大值的比例显示。
• 优化文本位置：原来的10*df$vals[i]+10是固定倍数偏移，会导致小数值的文本位置过高，大数值的可能超出图表。现在改为基于最大值的比例偏移，文本会始终在柱子顶部的合理位置。
• 移除冗余参数：barplot的第一个参数就是height，重复设置height=df$vals[i]完全没必要，删掉后代码更清晰。

可选：ggplot2实现方案 #

如果你更习惯用ggplot2，这里有个更简洁的版本，theme_void()可以直接去掉所有冗余的坐标轴和背景，非常适合做地图图标：

library(ggplot2)

# 复用前面计算的max_val和y_upper
for (i in 1:3) {
  png(file=paste0("ggplot_",i,".png"), width=100, height=200, res=72)
  p <- ggplot(df[i,], aes(x=1, y=vals)) +
    geom_col(width=0.2, fill="brown4") +
    geom_text(aes(label=vals), vjust=-0.5) + # vjust控制文本在柱子上方的距离
    xlim(0, 1.2) +
    ylim(0, y_upper) +
    theme_void() # 清除所有默认主题元素，只保留柱子和文本
  print(p)
  dev.off()
}

这样生成的图标和barplot版本效果一致，但代码逻辑更直观，后期调整样式也更方便。

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