如何在ggplot2中按分组交互实现线段渐变色彩可视化？

需求是基于唯一的position dodge ID和x轴单位（LME_NAME），将彩色的PercentageSuitable点与对应的灰色BasePercentageSuitable点用渐变线段连接，替代原有纯色线段。

当前绘图代码 #

ggplot(percDF) +
  geom_point( aes(x = LME_NAME, y = Value, colour = ID,group = ID ),  position = position_dodge(width = 1)) +
  scale_colour_manual(values = c('#3F3770FF','#3C5397FF','#3573A1FF','#D6456CFF','#F4685CFF','#FEB37BFF')) +
  new_scale_color() +
  
  geom_line(aes( x = LME_NAME, y = Value, colour = ID, group = interaction(LME_NAME, ID)),position = position_dodge(width = 1)  ) +
  scale_colour_manual(values = c('#3F3770FF','#3C5397FF','#3573A1FF','#D6456CFF','#F4685CFF','#FEB37BFF')) +
  
  geom_point(data = percDF[percDF$Group == 'BasePercentageSuitable',], aes(x = LME_NAME, y = Value, group = ID ), colour = 'grey' ,position = position_dodge(width = 1)) +

  theme_classic() +
  facet_grid(vars(Reg2), scale = 'free', space='free')

样本数据 #

LME_NAME              ID Reg2                  Group    Value       Z
Red Sea 2086-2095ssp585  IND     PercentageSuitable 98.58044 98.58044
Red Sea 2086-2095ssp370  IND     PercentageSuitable 98.10726 98.10726
Red Sea 2046-2055ssp126  IND BasePercentageSuitable 97.63407 97.63407
Red Sea 2046-2055ssp370  IND BasePercentageSuitable 97.63407 97.63407
Red Sea 2046-2055ssp585  IND BasePercentageSuitable 97.63407 97.63407
Red Sea 2086-2095ssp126  IND BasePercentageSuitable 97.63407 97.63407

数据结构 #

structure(list(LME_NAME = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Red Sea", 
"Pacific Central-American Coastal"), class = "factor"), ID = c("2086-2095ssp585", 
"2086-2095ssp370", "2046-2055ssp126", "2046-2055ssp370", "2046-2055ssp585", 
"2086-2095ssp126", "2086-2095ssp370", "2086-2095ssp585", "2046-2055ssp126", 
"2046-2055ssp370", "2046-2055ssp585", "2086-2095ssp126", "2046-2055ssp126", 
"2046-2055ssp370", "2046-2055ssp585", "2086-2095ssp126", "2086-2095ssp370", 
"2086-2095ssp585", "2086-2095ssp126", "2046-2055ssp126"), Reg2 = c("IND", 
"IND", "IND", "IND", "IND", "IND", "IND", "IND", "IND", "IND", 
"IND", "IND", "PAC", "PAC", "PAC", "PAC", "PAC", "PAC", "PAC", 
"PAC"), Group = structure(c(1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L), .Label = c("PercentageSuitable", 
"BasePercentageSuitable"), class = "factor"), Value = c(98.5804416403786, 
98.1072555205047, 97.6340694006309, 97.6340694006309, 97.6340694006309, 
97.6340694006309, 97.6340694006309, 97.6340694006309, 97.3984109102049, 
97.3984109102049, 97.3984109102049, 97.3984109102049, 89.7893832033944, 
89.7893832033944, 89.7893832033944, 89.7893832033944, 89.7893832033944, 
89.7893832033944, 87.5578863167051, 87.2110007775651), Z = c(98.5804416403786, 
98.1072555205047, 97.6340694006309, 97.6340694006309, 97.6340694006309, 
97.6340694006309, 97.6340694006309, 97.6340694006309, 97.3984109102049, 
97.3984109102049, 97.3984109102049, 97.3984109102049, 89.7893832033944, 
89.7893832033944, 89.7893832033944, 89.7893832033944, 89.7893832033944, 
89.7893832033944, 87.5578863167051, 87.2110007775651)), row.names = c(NA, 
20L), class = "data.frame")

解决方案思路 #

核心问题 #

原生ggplot2的geom_line不支持单条线段的颜色渐变，且当前数据结构需要先将每个ID对应的基础点（灰色）和目标点（彩色）配对。

具体实现步骤 #

1. 安装并加载依赖包：使用ggforce的geom_link函数实现渐变线段，同时用dplyr整理数据：

   install.packages(c("ggforce", "dplyr"))
   library(ggforce)
   library(dplyr)
   

2. 数据预处理：拆分并合并基础数据与目标数据，确保每个ID对应一组起始（灰色）和结束（彩色）点：

   # 提取基础数据（灰色点）
   base_data <- percDF %>% 
     filter(Group == "BasePercentageSuitable") %>% 
     rename(BaseValue = Value) %>% 
     select(LME_NAME, ID, Reg2, BaseValue)
   
   # 提取目标数据（彩色点）
   target_data <- percDF %>% 
     filter(Group == "PercentageSuitable") %>% 
     rename(TargetValue = Value) %>% 
     select(LME_NAME, ID, Reg2, TargetValue)
   
   # 合并为线段数据：每个ID对应基础值和目标值
   line_data <- left_join(target_data, base_data, by = c("LME_NAME", "ID", "Reg2"))
   

3. 绘制渐变线段图表：

   # 定义颜色映射
   color_vals <- c('#3F3770FF','#3C5397FF','#3573A1FF','#D6456CFF','#F4685CFF','#FEB37BFF')
   names(color_vals) <- unique(percDF$ID)
   
   ggplot() +
     # 绘制灰色基础点
     geom_point(data = base_data, 
                aes(x = LME_NAME, y = BaseValue, group = ID), 
                colour = 'grey',
                position = position_dodge(width = 1)) +
     # 绘制渐变线段：从灰色（起点）过渡到对应ID的彩色（终点）
     geom_link(data = line_data,
               aes(x = LME_NAME, xend = LME_NAME, 
                   y = BaseValue, yend = TargetValue,
                   colour = ID, group = ID),
               start_colour = "grey",  # 起点颜色
               position = position_dodge(width = 1),
               size = 1,
               lineend = "round") +
     # 绘制彩色目标点
     geom_point(data = target_data, 
                aes(x = LME_NAME, y = TargetValue, colour = ID, group = ID), 
                position = position_dodge(width = 1),
                size = 2) +
     # 应用自定义颜色
     scale_colour_manual(values = color_vals) +
     theme_classic() +
     facet_grid(vars(Reg2), scale = 'free', space='free')
   

关键说明 #

• geom_link会自动生成从起点到终点的平滑渐变线段，start_colour指定起点颜色（灰色），colour映射终点颜色（ID对应的彩色）。
• 保留position_dodge(width = 1)确保线段和点的位置对齐，避免重叠。
• 无需使用new_scale_color，因为所有彩色元素共享同一套颜色映射。

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