基于ggplot绘制涨跌分色折线图并标记趋势转折点

问题1：让折线按涨跌显示不同颜色 #

你之前的代码中，line_color基于单个点的百分比变化，但geom_line的颜色映射是按点分配的，导致线段颜色无法正确对应两段之间的涨跌趋势。正确的做法是让每一段线段的两个点共享同一个涨跌标记，这样整段线段就能显示统一的颜色。

修正数据预处理和绘图代码：

library(tidyverse)

# 预处理数据：添加涨跌标记
t <- economics %>%
  filter(date >= "2013-09-01") %>%
  # 标记当前值较上期是否上涨
  mutate(up = uempmed > lag(uempmed),
         # 为线段颜色准备标记：让每一段的两个点使用相同的涨跌状态
         segment_up = up,
         # 替换第一个NA值（对应第一段的起始点）为下一个点的涨跌状态
         segment_up = replace(segment_up, is.na(segment_up), lead(segment_up)[1]))

# 绘制涨跌变色折线
ggplot(t, aes(x = date, y = uempmed)) +
  geom_line(aes(color = segment_up, group = 1), linewidth = 1) +
  # 自定义颜色：下跌红色，上涨绿色
  scale_color_manual(values = c("FALSE" = "red", "TRUE" = "green"),
                     labels = c("下跌", "上涨"),
                     name = "涨跌趋势") +
  theme_minimal()

问题2：仅在趋势切换处添加点 #

趋势切换的判断逻辑是当前涨跌状态与上一期不同，我们可以在数据中添加标记变量，然后筛选出这些点进行绘制：

在上述预处理代码基础上补充趋势切换标记，完成完整绘图：

# 补充趋势切换标记的预处理
t <- t %>%
  mutate(trend_switch = up != lag(up))

# 完整绘图：涨跌折线 + 趋势切换点
ggplot(t, aes(x = date, y = uempmed)) +
  geom_line(aes(color = segment_up, group = 1), linewidth = 1) +
  # 仅在趋势切换点添加空心圆点
  geom_point(data = filter(t, trend_switch), shape = 1, size = 3, color = "black") +
  scale_color_manual(values = c("FALSE" = "red", "TRUE" = "green"),
                     labels = c("下跌", "上涨"),
                     name = "涨跌趋势") +
  labs(x = "日期", y = "平均失业周数", title = "失业周数时间序列涨跌趋势") +
  theme_minimal()

关键说明 #

1. 线段颜色：通过segment_up变量让每一段的两个点共享同一个涨跌标记，避免geom_line因点颜色不同导致的线段颜色异常。
2. 趋势切换点：trend_switch变量通过比较up和lag(up)的差异，精准定位涨跌趋势发生变化的节点，仅在这些位置绘制点。

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