R ggplot实现线条非线性渐变alpha及自定义展示范围咨询

核心思路 #

• 先为每个ID标识状态转换类型，区分「状态不变」「Empty转Full」「Full转Empty」三类
• 对每个ID的线段做插值生成密集坐标点，根据转换类型自定义x轴起止范围，同时为每个插值点匹配渐变alpha值
• 绘图时将alpha映射为连续变量，即可实现平滑渐变效果

第一步：数据预处理代码 #

library(dplyr)
library(tidyr)
library(purrr)

# 标记每个ID的状态转换类型
df_trans <- df %>%
  group_by(ID) %>%
  mutate(
    start_state = first(State),
    end_state = last(State),
    trans_type = case_when(
      start_state == "Empty" & end_state == "Full" ~ "E2F",
      start_state == "Full" & end_state == "Empty" ~ "F2E",
      TRUE ~ "stable"
    )
  ) %>%
  ungroup()

# 自定义插值函数：为每个ID生成带渐变alpha的密集线段点
interp_line <- function(data, n_points = 100) {
  trans_type <- unique(data$trans_type)
  # 按转换类型定义x轴范围和alpha渐变区间
  if (trans_type == "E2F") {
    x_range <- c(1.25, 2)
    alpha_range <- c(0.2, 1)
  } else if (trans_type == "F2E") {
    x_range <- c(1, 1.75)
    alpha_range <- c(1, 0.2)
  } else {
    x_range <- c(1, 2)
    alpha_range <- c(0.6, 0.6)
  }
  # 插值生成坐标和alpha序列
  x_seq <- seq(x_range[1], x_range[2], length.out = n_points)
  y_seq <- approx(data$Time, data$eye, xout = x_seq)$y
  alpha_seq <- seq(alpha_range[1], alpha_range[2], length.out = n_points)
  # 保留绘图所需的分组字段
  tibble(
    Time = x_seq,
    eye = y_seq,
    alpha = alpha_seq,
    ID = unique(data$ID),
    line_color = ifelse(trans_type == "F2E", 1, 2) # 匹配原代码的Time颜色映射逻辑
  )
}

# 生成插值后的绘图专用数据集
df_interp <- df_trans %>%
  group_by(ID) %>%
  nest() %>%
  mutate(interp_data = map(data, interp_line)) %>%
  unnest(interp_data)

第二步：绘图代码 #

library(ggplot2)

ggplot() +
  # 绘制渐变线段，使用插值数据集
  geom_line(data = df_interp, 
            aes(x = Time, y = eye, group = ID, color = factor(line_color), alpha = alpha), 
            size = 5) +
  # 绘制原始状态点，使用原数据集
  geom_point(data = df, aes(x = Time, y = eye, shape=State), size = 3.5) +
  # 标度自定义
  scale_shape_manual(values=c(13,15)) + 
  scale_alpha_identity() # 直接使用预处理生成的alpha值，不需要额外映射
  scale_color_manual(values = c("#F8766D", "#00BFC4"), labels = c("1", "2")) + # 匹配ggplot默认配色
  # 原有主题配置完全保留
  theme(legend.title=element_blank(),
        axis.title.x=element_text(size = 12),
        axis.title.y=element_text(size = 12),
        plot.title = element_text(hjust = 0.5, size = 15),
        axis.text.x= element_text(color = "black"),
        axis.text.y= element_text(color = "black"),
        axis.line = element_line(colour = "black"),
        plot.background = element_rect(fill = "white"),
        panel.background = element_rect(fill = "white")) +
  # 固定x轴刻度为1、2，和原有效果一致
  scale_x_continuous(breaks = c(1,2))

效果说明 #

• Empty转Full的线段仅在x=1.25到x=2区间显示，alpha从0.2线性升高到1，实现淡入效果
• Full转Empty的线段仅在x=1到x=1.75区间显示，alpha从1线性降低到0.2，实现淡出效果
• 两端状态相同的线段保持全段显示、alpha固定，和原有效果完全一致
• 原始点的样式、位置不受插值逻辑影响，完全匹配原有配置

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