ggplot2 geom_bar绘制海拔气候关联图时Y轴刻度异常问题排查

嘿，我完全懂你遇到的困扰！咱们先拆解下你原代码里的问题：

你用geom_bar(stat="identity")时直接把y=elevation传入，但geom_bar的核心逻辑是对每个分组（这里是name+temperature_intervals）对应的y值做累加计算——它把每一行的海拔数值都当成了条形的一段高度，最终画出的是每个山所有海拔值的总和，而不是你想要的「气候类别沿海拔的区间分布」，这就导致Y轴刻度出现了离谱的异常值（比如山A的总高度会是0+500+1000+1500+2000=5000，山B更是会冲到10500）。

正确的调整方案：用海拔区间长度代替单一海拔值 #

正如你后来发现的，我们需要把「单一海拔点」转换成「对应温度区间覆盖的海拔范围长度」，具体操作可以这样实现：

# 示例数据集
data_mountain_A <- data.frame(elevation=c(0,500,1000,1500,2000), temperature=c(20,16,12,8,5), name="A")
data_mountain_B <- data.frame(elevation=c(0,500,1000,1500,2000,2500,3000), temperature=c(20,16,12,8,5,0,-5), name="B")
data_merge <- rbind(data_mountain_A, data_mountain_B)

# 创建温度区间
data_merge$temperature_intervals <- cut(data_merge$temperature,seq(-5,20,5))

# 计算海拔区间长度：按山分组，取当前海拔与下一个海拔的差值
library(dplyr)
data_merge <- data_merge %>%
  group_by(name) %>%
  mutate(elevation_length = lead(elevation) - elevation) %>%
  ungroup()

# 自定义颜色
colfunc <- colorRampPalette(c("white","light blue","dark green"))

# 绘图：用区间长度作为y值，过滤掉最后一行的缺失值（无后续海拔可计算）
ggplot(data=na.omit(data_merge), aes(fill=temperature_intervals, y=elevation_length, x=name)) + 
  geom_bar(stat="identity") + 
  scale_fill_manual(values=colfunc(5)) +
  labs(y="海拔区间长度")

调整后的代码会让每个颜色块的高度精准对应温度区间覆盖的海拔范围，Y轴刻度也会恢复正常（比如大部分区间都是500，山B最后一个区间也是500），完美展现不同山地的气候类别沿海拔的分布规律~

内容的提问来源于stack exchange，提问作者J. D. Vidal