ggplot2 R中如何为连接两点的线条设置金色到深绿色的渐变色彩

完全可以实现该需求，以R语言ggplot2绘图场景为例，提供两种常用实现方案：

方案1：使用ggforce包的geom_link（最简方案） #

geom_link是专门用于生成渐变连线的图层函数，直接映射颜色到年份变量即可实现过渡效果：

# 加载所需包
library(ggplot2)
library(ggforce)

# 先将数据的Year列转为数值型，否则无法映射渐变
df$Year <- as.numeric(df$Year)

ggplot(df, aes(x = `CrecimientoPBI (%)`, y = `Desempleo (%)`)) +
  # 绘制渐变连线，颜色映射到Year
  geom_link(aes(color = Year, xend = lead(`CrecimientoPBI (%)`), yend = lead(`Desempleo (%)`)),
            linewidth = 2, na.rm = TRUE) +
  # 绘制数据点
  geom_point(size = 4) +
  # 设置颜色渐变：1961对应金色，2020对应深绿色
  scale_color_gradient(low = "gold", high = "darkgreen")

方案2：手动插值生成过渡点（无需额外安装扩展包） #

如果不想新增依赖，可以手动在两个数据点之间插入若干过渡点，再将颜色映射到插值后的年份：

library(ggplot2)
library(dplyr)
library(tidyr)

df$Year <- as.numeric(df$Year)

# 生成插值数据
interp_df <- df %>%
  # 生成1961到2020之间的所有年份序列
  complete(Year = full_seq(Year, 1)) %>%
  # 对数值列做线性插值
  mutate(across(c(`CrecimientoPBI (%)`, `Inflación (%)`, `Desempleo (%)`), 
                ~approx(Year, ., xout = Year)$y))

ggplot(interp_df, aes(x = `CrecimientoPBI (%)`, y = `Desempleo (%)`, color = Year)) +
  # 用普通geom_line绘制，因为插值点足够密，视觉上就是渐变效果
  geom_line(linewidth = 2) +
  geom_point(data = df, size = 4) +
  scale_color_gradient(low = "gold", high = "darkgreen")

两种方案最终都可以实现连线从1961年的金色平滑过渡到2020年深绿色的效果，你可以根据自己的依赖安装情况选择。

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