R语言绘制等长渐变色条形图的问题求助

问题分析 #

你的代码存在两个核心问题：

1. 第一个条形错误包含了0.1-0.2的数值段，不符合你设定的0.2-0.61取值范围
2. 两个条形的视觉长度不一致（第一个长度0.51，第二个0.31）
3. 颜色映射的起始值与你期望的浅绿色对应0.2的需求不匹配

修正后的代码 #

library(ggplot2)

# 构造条形1数据：数值范围0.2→0.61，视觉位置对应0.2→0.61
seq_bar1 <- seq(0.2, 0.61, by = 0.001)
df_bar1 <- data.frame(
  group = 1,
  y = seq_bar1,
  value = seq_bar1
)

# 构造条形2数据：数值范围0.2→0.41，拉伸至与条形1相同的视觉长度（0.2→0.61）
seq_bar2_val <- seq(0.2, 0.41, by = 0.001)
# 将0.2-0.41的数值映射到0.2-0.61的视觉区间
seq_bar2_y <- 0.2 + (seq_bar2_val - 0.2) * (0.61 - 0.2)/(0.41 - 0.2)
df_bar2 <- data.frame(
  group = 2,
  y = seq_bar2_y,
  value = seq_bar2_val
)

# 合并并转换为segment所需格式
d2 <- rbind(df_bar1, df_bar2)
d2$x <- d2$group - 0.4
d2$xend <- d2$group + 0.4
d2$yend <- d2$y

# 绘图
ggplot(d2, aes(x = x, xend = xend, y = y, yend = yend, color = value)) +
  geom_segment(size = 2) +
  # 颜色渐变：0.2对应浅绿色，0.35对应黄色，0.61对应橙色
  scale_color_gradient2(low = "#88d888", mid = "yellow", high = "orange", midpoint = 0.35) +
  theme(
    plot.title = element_text(hjust = 0.5, size = 20),
    legend.text = element_text(size = 13),
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank(),
    panel.background = element_blank(),
    axis.line.x = element_line(color = "black", size = 1),
    axis.line.y = element_line(color = "black", size = 1),
    axis.text.x = element_text(size = 15, hjust = 0.1)
  ) +
  ylab("") + xlab("") +
  scale_y_continuous(breaks = c(0.2, 0.35, 0.61), labels = c('A ', 'B ', 'C '), limits = c(0.2, 0.61)) +
  coord_flip()

关键调整说明 #

• 为两个条形设置了相同的视觉长度（0.2到0.61），通过数值映射保证第二个条形的长度与第一个一致
• 颜色渐变的起始值对应0.2（浅绿色），终点0.61对应橙色，符合你的需求
• 移除了第一个条形中0.1-0.2的无效数值段，严格匹配你设定的变量范围

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