如何在ggplot2+ggstar绘图中独立设置点填充与边框Alpha值？

核心思路是将填充色的透明度直接嵌入颜色值中，而非使用全局alpha参数，同时单独指定边框颜色（默认透明度为1），再针对性调整图例样式。以下是具体实现步骤：

1. 预处理数据：生成带透明度的填充色 #

用scales::alpha()函数将表格中的原始颜色与alpha值合并，生成自带透明度的填充色；边框则保留原始颜色（默认alpha=1）。

假设你的数据框名为umap_df，包含列：UMAP1、UMAP2、tissue_type、color（原始颜色，如十六进制#FF0000）、shape、size、alpha_val（0-1的透明度值）：

library(tidyverse)
library(ggplot2)
library(ggstar)
library(ggh4x)

# 预处理：生成带alpha的填充色，边框用原始颜色
umap_df <- umap_df %>%
  mutate(
    fill_with_alpha = scales::alpha(color, alpha_val),
    border_color = color
  )

2. 绘图代码：分离填充与边框的透明度 #

绘图时不再设置全局alpha，而是直接映射预处理后的填充色，边框单独指定颜色：

ggplot(umap_df, aes(x = UMAP1, y = UMAP2)) +
  ggstar::geom_star(
    aes(
      fill = fill_with_alpha,
      color = border_color,
      starshape = shape,
      size = size
    ),
    stroke = 0.5 # 调整边框粗细，按需修改
  ) +
  # 强制图例中的边框透明度为1
  guides(
    starshape = guide_legend(override.aes = list(color = umap_df$border_color, alpha = 1)),
    size = guide_legend(override.aes = list(color = umap_df$border_color, alpha = 1)),
    fill = guide_legend(override.aes = list(color = umap_df$border_color, alpha = 1))
  ) +
  # 若按组织类型分组显示图例，用ggh4x统一图例名称
  ggh4x::scale_starshape_manual(values = umap_df$shape, name = "组织类型") +
  ggh4x::scale_size_manual(values = umap_df$size, name = "组织类型") +
  ggh4x::scale_fill_manual(values = umap_df$fill_with_alpha, name = "组织类型") +
  ggh4x::scale_color_manual(values = umap_df$border_color, name = "组织类型") +
  theme_classic()

3. 针对按组织类型映射的优化（常见场景） #

如果你的美学映射是基于组织类型而非直接颜色列，可将颜色、alpha值做成命名向量，再通过scale_*_manual实现：

# 构建组织类型对应的颜色、alpha命名向量
color_map <- setNames(umap_df$color, umap_df$tissue_type)
alpha_map <- setNames(umap_df$alpha_val, umap_df$tissue_type)
shape_map <- setNames(umap_df$shape, umap_df$tissue_type)
size_map <- setNames(umap_df$size, umap_df$tissue_type)

ggplot(umap_df, aes(x = UMAP1, y = UMAP2, fill = tissue_type, color = tissue_type)) +
  ggstar::geom_star(aes(starshape = tissue_type, size = tissue_type), stroke = 0.5) +
  # 填充色带alpha，边框色用原始颜色（alpha=1）
  scale_fill_manual(values = scales::alpha(color_map, alpha_map)) +
  scale_color_manual(values = color_map) +
  scale_starshape_manual(values = shape_map) +
  scale_size_manual(values = size_map) +
  # 修正图例边框透明度
  guides(
    starshape = guide_legend(override.aes = list(color = color_map, alpha = 1)),
    size = guide_legend(override.aes = list(color = color_map, alpha = 1))
  ) +
  theme_classic()

关键说明 #

之前用override.aes失效，大概率是因为全局设置了alpha参数，导致边框和填充的透明度被强制统一。现在通过将透明度嵌入填充色本身，彻底分离了填充与边框的透明度控制，再配合override.aes修正图例样式，就能实现需求。

内容的提问来源于stack exchange，提问作者Emilio Mármol Sánchez