如何在R语言中为曲线下方添加水平渐变效果？

针对你想要的随月份渐变的折线效果，之前用scale_colour_gradient()失败的原因是：该函数仅支持连续数值变量的颜色映射，而你的month是分类因子，无法直接适配。下面提供两种可行的实现方法：

方法1：平滑渐变折线（整体随月份过渡） #

先将分类月份转为连续数值，再映射到颜色参数上，实现线条颜色随月份逐步渐变：

library(tidyverse)

views <- tribble(
  ~month, ~views,
  "Jan", 374,
  "Feb", 500,
  "Mar", 416,
  "Apr", 603,
  "May", 389,
  "Jun", 510) %>%
  mutate(month = factor(month, levels=c("Jan","Feb","Mar","Apr","May","Jun")),
         month_num = as.numeric(month)) # 新增月份对应的连续数值列

views %>%
  ggplot(aes(x = month, y = views, group=1, color = month_num)) +
  geom_line(size=1.5) +
  scale_y_continuous(breaks=seq(0, 1000, by = 200), limits = c(0, 1000)) +
  scale_color_gradient(low = "#4A90E2", high = "#E24A68") # 自定义渐变起始/结束色

方法2：分段渐变线段（每个区间独立渐变） #

如果需要每个月份间的线段从左到右单独渐变，可通过geom_segment()逐个绘制线段，并为每个线段设置颜色映射：

library(tidyverse)

views <- tribble(
  ~month, ~views,
  "Jan", 374,
  "Feb", 500,
  "Mar", 416,
  "Apr", 603,
  "May", 389,
  "Jun", 510) %>%
  mutate(month = factor(month, levels=c("Jan","Feb","Mar","Apr","May","Jun")))

# 构造线段数据：生成每个月份到下一个月份的连接信息
seg_data <- views %>%
  mutate(next_month = lead(month),
         next_views = lead(views),
         month_num = as.numeric(month))

ggplot() +
  geom_segment(data = seg_data %>% drop_na(),
               aes(x = month, xend = next_month,
                   y = views, yend = next_views,
                   color = month_num),
               size=1.5) +
  scale_y_continuous(breaks=seq(0, 1000, by = 200), limits = c(0, 1000)) +
  scale_color_gradient(low = "#4A90E2", high = "#E24A68") +
  scale_x_discrete(limits = levels(views$month)) # 保留原月份标签

关键说明 #

scale_colour_gradient()的核心要求是映射变量为连续数值，因此必须将分类的month通过as.numeric(month)转换为连续数值后，才能实现渐变颜色的映射效果。

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