如何在ggplot2中让geom_rect的左右两侧渐变为透明？

要在ggplot中实现左右两侧都渐变为透明的矩形，可以通过生成渐变透明度的数据集，结合geom_tile绘制连续渐变效果，以下是具体实现方案：

方法一：单数据集生成双侧渐变 #

先创建包含x轴位置和对应透明度值的数据框，让透明度在矩形区间内先从0升至1（左侧渐变），再从1降至0（右侧渐变）：

library(ggplot2)

# 生成双侧渐变的alpha数据
grad_data <- data.frame(
  x = seq(100, 105, length.out = 100),  # 对矩形x区间做细分
  alpha = c(seq(0, 1, length.out = 50), seq(1, 0, length.out = 50))  # 双侧渐变的透明度变化
)

# 绘制图形
ggplot() +
  geom_tile(data = grad_data, aes(x = x, y = 0, width = diff(grad_data$x)[1]),
            ymin = -Inf, ymax = Inf, fill = "yellow", alpha = aes(alpha)) +
  xlim(80, 120) +
  theme_bw() +
  theme(axis.title.y = element_blank(), axis.text.y = element_blank(), axis.ticks.y = element_blank())

方法二：拆分左右渐变叠加绘制 #

如果需要单独调整两侧渐变的速率，可以拆分左右两部分数据，借助ggnewscale包重置透明度映射，避免美学冲突：

library(ggplot2)
library(ggnewscale)

# 左侧渐变数据（x从100到中间点，透明度从0到1）
left_grad <- data.frame(x = seq(100, 102.5, length.out = 50), alpha = seq(0, 1, length.out = 50))
# 右侧渐变数据（x从中间点到105，透明度从1到0）
right_grad <- data.frame(x = seq(102.5, 105, length.out = 50), alpha = seq(1, 0, length.out = 50))

ggplot() +
  # 绘制左侧渐变矩形
  geom_tile(data = left_grad, aes(x = x, y = 0, width = diff(left_grad$x)[1], alpha = alpha),
            ymin = -Inf, ymax = Inf, fill = "yellow") +
  scale_alpha_continuous(range = c(0, 1)) +
  new_scale_alpha() +  # 重置透明度映射规则
  # 绘制右侧渐变矩形
  geom_tile(data = right_grad, aes(x = x, y = 0, width = diff(right_grad$x)[1], alpha = alpha),
            ymin = -Inf, ymax = Inf, fill = "yellow") +
  scale_alpha_continuous(range = c(1, 0)) +
  xlim(80, 120) +
  theme_bw() +
  theme(axis.title.y = element_blank(), axis.text.y = element_blank(), axis.ticks.y = element_blank())

效果说明 #

两种方法都能实现x=100至105区间内，左右边缘透明、中间黄色最深的双侧渐变矩形。第一种代码更简洁，适合常规需求；第二种拆分左右部分，便于灵活调整两侧渐变的快慢。

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