如何基于Y轴数值（风向）为折线图的折线设置不同颜色？

当然可以实现啦！你猜的没错，核心思路就是把连续的折线拆分成对应不同风向类别的小线段，然后给每个类别分配专属颜色。下面我分别给你讲R和Excel的实现方法：

R 实现方案 #

我用你提供的示例数据来演示，核心用tidyverse和ggplot2包来处理数据和绘图：

步骤1：加载包并处理风向分类 #

首先给每个时间点的风向（0-359度）匹配对应的8个方位类别：

# 加载所需包
library(tidyverse)

# 你的示例数据
set.seed(123)
date_time <- seq.POSIXt(ISOdate(2023,1,20, hour = 00), ISOdate(2023, 1, 20, hour = 23), "hour")
wind_speed <- runif(24, 0, 20)
wind_direction <- runif(24, 0, 359)
df_wind <- data.frame(date_time, wind_speed, wind_direction)

# 给风向分配8个方位类别
df_wind <- df_wind %>%
  mutate(
    direction_cat = case_when(
      wind_direction >= 337.5 | wind_direction < 22.5 ~ "N",
      wind_direction >=22.5 & wind_direction <67.5 ~ "NE",
      wind_direction >=67.5 & wind_direction <112.5 ~ "E",
      wind_direction >=112.5 & wind_direction <157.5 ~ "SE",
      wind_direction >=157.5 & wind_direction <202.5 ~ "S",
      wind_direction >=202.5 & wind_direction <247.5 ~ "SW",
      wind_direction >=247.5 & wind_direction <292.5 ~ "W",
      wind_direction >=292.5 & wind_direction <337.5 ~ "NW"
    )
  )

步骤2：构建线段数据 #

要绘制分段彩色折线，需要把每个相邻时间点的线段单独提取出来：

# 创建线段数据：每个线段包含起点、终点的时间和风速，以及对应风向类别
line_segments <- df_wind %>%
  mutate(
    next_datetime = lead(date_time),
    next_speed = lead(wind_speed)
  ) %>%
  drop_na() # 去掉最后一行（没有下一个时间点）

步骤3：绘制彩色分段折线 #

用geom_segment来绘制每个带颜色的线段：

ggplot() +
  geom_segment(data = line_segments,
               aes(x = date_time, xend = next_datetime,
                   y = wind_speed, yend = next_speed,
                   color = direction_cat),
               linewidth = 1.2) + # 调整线条粗细
  scale_color_brewer(palette = "Set2") + # 用预设的8色配色方案，刚好匹配8个方位
  labs(x = "时间", y = "风速", color = "风向") +
  theme_minimal()

这样你就能得到一条根据风向类别变色的折线，每个线段的颜色对应起点时刻的风向。如果想要处理相邻点风向不同的情况，也可以进一步拆分线段，但这个基础版本已经能满足你的需求啦。

Excel 实现方案 #

Excel的操作会繁琐一点，但也能实现：

步骤1：给风向分配类别 #

在数据中新增一列（比如D列），用嵌套IF函数给每个风向匹配方位：
在D2单元格输入公式，然后下拉填充到所有行：

=IF(OR(C2>=337.5,C2<22.5),"N",IF(AND(C2>=22.5,C2<67.5),"NE",IF(AND(C2>=67.5,C2<112.5),"E",IF(AND(C2>=112.5,C2<157.5),"SE",IF(AND(C2>=157.5,C2<202.5),"S",IF(AND(C2>=202.5,C2<247.5),"SW",IF(AND(C2>=247.5,C2<292.5),"W","NW")))))))

步骤2：准备线段数据 #

新增辅助列（E到I列），用来存储每个线段的起点、终点信息：

• E2 = A2（起点时间），F2 = B2（起点风速）
• G2 = A3（终点时间），H2 = B3（终点风速）
• I2 = D2（对应风向类别）
  下拉填充到第23行（24个时间点对应23条线段）

步骤3：逐个添加线段系列 #

1. 插入空白折线图；
2. 右键图表→选择数据→添加；
3. 在弹出的窗口中：
   • 系列名称选择I2单元格；
   • X值选择E2:G2单元格；
   • Y值选择F2:H2单元格；
4. 添加完成后，修改该系列的线条颜色（可以根据类别统一配色）；
5. 重复上述步骤，把23条线段全部添加到图表中。

如果觉得手动添加太麻烦，也可以用VBA宏批量处理，但对于一次性操作来说，手动添加也能搞定。

备注：内容来源于stack exchange，提问作者JMade