在ggplot2哑铃图中用箭头与颜色表示变化方向的技术问题

1. 给baseline和endline的点设置指定颜色 #

之前自定义颜色没生效，大概率是颜色映射的绑定逻辑没理清楚，分两种场景处理：

场景1：数据是长格式（有专门的阶段列，比如phase，值为"baseline"/"endline"） #

直接把color美学绑定到phase，再用scale_color_manual指定对应颜色即可：

library(ggplot2)
ggplot(long_data, aes(x = value, y = 你的分组变量, color = phase)) +
  geom_line(aes(group = 你的分组变量), color = "gray50") + # 连接两点的灰线
  geom_point(size = 4) +
  scale_color_manual(values = c(baseline = "#3C4C56", endline = "#DB5628")) +
  theme_minimal()

场景2：数据是宽格式（直接有baseline和endline两列） #

不用搞颜色映射，直接给每个geom_point单独指定颜色，简单粗暴不翻车：

ggplot(你的数据集, aes(y = 你的分组变量)) +
  geom_point(aes(x = baseline), color = "#3C4C56", size = 4) +
  geom_point(aes(x = endline), color = "#DB5628", size = 4) +
  geom_segment(aes(x = baseline, xend = endline, yend = 你的分组变量), color = "gray50") +
  theme_minimal()

2. 让箭头自动从baseline指向endline（随数值升降变方向） #

不用纠结固定箭头方向，直接用geom_segment的arrow参数，把x设为baseline、xend设为endline，箭头会自动跟着数值走：数值涨了箭头向右，跌了就向左。

结合颜色设置的完整示例：

library(ggplot2)

# 示例数据集（模拟你的dput输出结构）
your_data <- structure(list(group = c("A", "B", "C", "D"), baseline = c(10, 15, 8, 12), endline = c(14, 12, 10, 16)), class = "data.frame", row.names = c(NA, -4L))

ggplot(your_data, aes(y = group)) +
  # 带箭头的线段，自动指向endline
  geom_segment(aes(x = baseline, xend = endline, yend = group),
               color = "gray50",
               arrow = arrow(length = unit(0.2, "cm"), type = "closed")) +
  # baseline的深灰点
  geom_point(aes(x = baseline), color = "#3C4C56", size = 4) +
  # endline的橙红点
  geom_point(aes(x = endline), color = "#DB5628", size = 4) +
  labs(x = "数值", y = "分组") +
  theme_minimal()

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