如何在ggplot中单独控制geom_point填充色的alpha透明度？

问题描述 #

我有一个包含多变量的dataframe，想要使用ggplot绘制散点图。希望由变量"A"控制color（轮廓色）和fill（填充色），仅由变量"B"控制填充色的alpha透明度，请问是否可行？若像以下代码那样在aes中设置alpha，会同时使轮廓色和填充色变为透明。

set.seed(123)
data <- data.frame(
  X = rnorm(100),
  Y = rnorm(100),
  A = sample(letters[1:5], 100, replace = TRUE),
  B = sample(letters[1:2], 100, replace = TRUE)
)

ggplot(data, aes(x = X, y = Y, color = A, fill = A, alpha=B)) +
  geom_point(shape = 21, size = 4) +  # Use shape 21 for filled circles
  theme_minimal()

解决方案 #

可行，核心思路是让轮廓色（color）保持完全不透明，仅让填充色（fill）的透明度由变量B控制，以下是两种实用实现方法：

方法一：手动生成带透明度的填充色 #

先为变量A定义基础颜色，再根据变量B的不同为每个颜色添加对应透明度，最后分别映射color和fill：

library(ggplot2)
set.seed(123)
data <- data.frame(
  X = rnorm(100),
  Y = rnorm(100),
  A = sample(letters[1:5], 100, replace = TRUE),
  B = sample(letters[1:2], 100, replace = TRUE)
)

# 为A的每个类别获取默认离散颜色
base_colors <- scales::hue_pal()(length(unique(data$A)))
names(base_colors) <- unique(data$A)

# 根据B生成带透明度的填充色：B=a用0.3透明度，B=b用0.8透明度
data$fill_color <- mapply(function(a, b) {
  alpha_val <- ifelse(b == "a", 0.3, 0.8)
  scales::alpha(base_colors[a], alpha_val)
}, data$A, data$B)

ggplot(data, aes(x = X, y = Y)) +
  geom_point(aes(color = A, fill = fill_color), 
             shape = 21, size = 4) +
  # 手动设置fill的图例，保持和A的颜色对应且区分透明度
  scale_fill_identity(guide = "legend", 
                      labels = paste(rep(unique(data$A), each=2), unique(data$B), sep = "-"),
                      breaks = unique(data$fill_color)) +
  scale_color_discrete() +
  theme_minimal()

方法二：使用ggnewscale包分离填充色的透明度映射 #

通过ggnewscale包可以为fill添加独立的美学映射，彻底避免alpha影响轮廓色：

library(ggplot2)
library(ggnewscale)
set.seed(123)
data <- data.frame(
  X = rnorm(100),
  Y = rnorm(100),
  A = sample(letters[1:5], 100, replace = TRUE),
  B = sample(letters[1:2], 100, replace = TRUE)
)

ggplot(data, aes(x = X, y = Y)) +
  # 先绘制轮廓色，由A控制，无透明度
  geom_point(aes(color = A), shape = 21, size = 4, fill = NA) +
  scale_color_discrete(name = "类别A") +
  # 开启新的fill映射
  new_scale_fill() +
  # 绘制填充色，由A控制颜色，B控制透明度
  geom_point(aes(fill = A, alpha = B), shape = 21, size = 4, color = NA) +
  scale_fill_discrete(name = "类别A") +
  scale_alpha_manual(values = c("a" = 0.3, "b" = 0.8), name = "透明度B") +
  theme_minimal()

两种方法都能实现：轮廓色仅由A控制且完全不透明，填充色由A控制颜色、B控制透明度的效果。

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