ggplot2绘制带自定义透明度上部的堆叠条形图问题求助

方法1：手动指定透明度并隐藏多余图例 #

如果不想拆分数据集，可直接通过手动映射透明度并隐藏无用图例解决问题：

library(ggplot2)
library(viridis)

# 假设数据集名为df，核心变量：x（分组）、y（数值）、fill_var（堆叠类别）、tam_loc（rural/urban）
ggplot(df, aes(x = x, y = y, fill = fill_var, alpha = tam_loc)) +
  geom_col(position = "stack") +
  # 应用magma色系
  scale_fill_viridis_d(option = "magma") +
  # 手动设置透明度：urban不透明，rural设为你需要的透明度（示例为0.5）
  scale_alpha_manual(values = c("urban" = 1, "rural" = 0.5)) +
  # 隐藏alpha对应的无用图例
  guides(alpha = "none") +
  labs(x = "分组名称", y = "数值", fill = "堆叠类别")

方法2：拆分数据集分图层绘制 #

若需要更灵活的自定义控制，可将数据拆分为urban和rural两组，分图层绘制并单独设置rural部分的透明度：

library(ggplot2)
library(viridis)

ggplot() +
  # 绘制下部的urban区域（不透明）
  geom_col(
    data = df[df$tam_loc == "urban", ],
    aes(x = x, y = y, fill = fill_var),
    position = "stack"
  ) +
  # 绘制上部的rural区域（带透明度）
  geom_col(
    data = df[df$tam_loc == "rural", ],
    aes(x = x, y = y, fill = fill_var),
    position = "stack",
    alpha = 0.5 # 可自由调整透明度数值
  ) +
  scale_fill_viridis_d(option = "magma") +
  labs(x = "分组名称", y = "数值", fill = "堆叠类别") +
  theme_minimal()

关键说明 #

• 方法1无需拆分数据，代码更简洁，适合快速调整需求；
• 方法2适合需要对不同组做额外自定义的场景（比如单独调整边框、颜色细节等）；
• 两种方法都能保证rural部分使用与urban一致的magma色系，仅通过透明度区分层级。

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