如何在R ggplot中创建居中峰值的自定义alpha渐变刻度？

要实现Sepal.Width为0时alpha=1，±4时alpha=0.01的中心峰值衰减效果，同时保留原始数值的图例，可通过自定义刻度变换来实现，具体步骤如下：

1. 加载依赖包并准备数据 #

library(data.table)
library(ggplot2)
library(scales)

# 生成包含正负Sepal.Width的数据集
dt = data.table(iris)[,Sepal.Width := ifelse(.I %% 2 == 0, Sepal.Width, -Sepal.Width)]

2. 定义自定义Alpha变换规则 #

我们需要将原始数值的绝对值映射到alpha值，同时保留反向变换以生成对应原始数值的图例刻度：

# 正向变换：原始值 → alpha值（0时1，±4时0.01）
alpha_trans <- function(x) {
  abs_x <- abs(x)
  alpha <- 1 - (0.99/4)*abs_x
  # 确保alpha不低于0.01，避免完全透明
  pmax(alpha, 0.01)
}

# 反向变换：alpha值 → 原始值（用于生成图例刻度）
alpha_inv <- function(alpha) {
  (1 - alpha)*4/0.99
}

# 创建自定义变换对象
peak_alpha_trans <- trans_new(
  name = "peak_alpha",
  transform = alpha_trans,
  inverse = alpha_inv,
  breaks = c(-4, -2, 0, 2, 4),
  domain = c(-4, 4)
)

3. 绘制图形并应用自定义刻度 #

直接将原始Sepal.Width映射到alpha，使用自定义变换即可自动关联原始数值的图例：

ggplot(dt, aes(x=Sepal.Length, y=Petal.Length, color=Species)) + 
  geom_point(aes(alpha=Sepal.Width), size=3, stroke=0) + 
  scale_alpha_continuous(
    trans = peak_alpha_trans,
    limits = c(-4, 4),
    breaks = c(-4, -2, 0, 2, 4),
    labels = c("-4", "-2", "0", "2", "4"),
    guide = guide_colorbar(title = "Sepal.Width")
  ) + 
  scale_color_brewer(palette="Dark2", direction=1) + 
  theme_classic()

补充：手动计算Alpha列的方案 #

如果不想用自定义变换，也可以提前计算alpha值，再手动关联图例刻度：

# 提前计算alpha值
dt[, alpha_val := pmax(1 - (0.99/4)*abs(Sepal.Width), 0.01)]

ggplot(dt, aes(x=Sepal.Length, y=Petal.Length, color=Species)) + 
  geom_point(aes(alpha=alpha_val), size=3, stroke=0) + 
  scale_alpha_continuous(
    guide = guide_colorbar(
      title = "Sepal.Width",
      breaks = alpha_trans(c(-4, -2, 0, 2, 4)),
      labels = c("-4", "-2", "0", "2", "4")
    )
  ) + 
  scale_color_brewer(palette="Dark2", direction=1) + 
  theme_classic()

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