在R中为geom_spline设置随分箱观测数变化的透明度

核心问题在于stat_spline是对整个分组拟合一条连续样条，生成的平滑点不携带原始分箱的观测数（obs）信息，所以无法直接映射透明度。我们需要按分箱分组单独拟合样条，让每段样条对应各自分箱的观测数，再拼接起来绘制。

具体步骤与代码 #

1. 先确保数据处理完整（保留sex分组，匹配后续分面需求）：

library(palmerpenguins)
library(tidyverse)
library(ggformula)

penguins_with_obs <- penguins %>% 
  drop_na() %>% 
  group_by(species, sex) %>% 
  mutate(bill_depth_mm_cut = cut(bill_depth_mm, 10)) %>% 
  group_by(species, sex, bill_depth_mm_cut) %>%
  mutate(obs = n()) %>% 
  ungroup()

2. 按分箱分组拟合样条，生成带观测数的平滑数据：
   对每个species-sex-分箱组单独拟合样条，生成足够多的平滑点以保证曲线连续，同时保留该组的obs值：

penguins_splines <- penguins_with_obs %>%
  group_by(species, sex, bill_depth_mm_cut, obs) %>%
  nest() %>%
  mutate(spline_data = map(data, ~ tibble(
    x = seq(min(.x$bill_depth_mm), max(.x$bill_depth_mm), length.out = 20),
    y = spline(.x$bill_depth_mm, .x$bill_length_mm, xout = x)$y
  ))) %>%
  unnest(spline_data) %>%
  ungroup()

3. 绘制图形：
   用原始数据画散点，用分段样条数据绘制带透明度的曲线：

ggplot() +
  # 原始散点层
  geom_point(data = penguins_with_obs, 
             aes(x = bill_depth_mm, y = bill_length_mm, colour = species),
             size = 1) +
  # 分段样条曲线层，映射透明度到观测数
  geom_line(data = penguins_splines, 
            aes(x = x, y = y, colour = species, alpha = obs),
            linewidth = 1.2) +
  facet_grid(species ~ sex) +
  # 调整透明度范围，强化稀疏/密集分箱的视觉差异
  scale_alpha_continuous(range = c(0.3, 1))

效果说明 #

最终绘制的曲线会在观测数多的分箱段更不透明，观测数少的分箱段更淡，完全匹配需求。如果觉得分段衔接不够平滑，可以将length.out的数值调大（比如改为50），增加每个分箱组的平滑点数量。

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