如何在ggplot柱状图中为单柱添加双属性渐变填充？

一、定义宝可梦属性颜色映射 #

先准备各属性对应的标准颜色，这是实现渐变的基础：

# 宝可梦属性标准颜色映射
type_colors <- c(
  Normal = "#A8A878", Fire = "#F08030", Water = "#6890F0", Electric = "#F8D030",
  Grass = "#78C850", Ice = "#98D8D8", Fighting = "#C03028", Poison = "#A040A0",
  Ground = "#E0C068", Flying = "#A890F0", Psychic = "#F85888", Bug = "#A8B820",
  Rock = "#B8A038", Ghost = "#705898", Dragon = "#7038F8", Dark = "#705848",
  Steel = "#B8B8D0", Fairy = "#EE99AC"
)

二、实现单柱子双属性渐变填充 #

ggplot原生不支持单个柱子的渐变填充，使用ggpattern包可以快速实现该效果：

1. 安装加载依赖包 #

install.packages(c("ggplot2", "ggpattern", "dplyr"))
library(ggplot2)
library(ggpattern)
library(dplyr)

2. 预处理数据集 #

给单属性宝可梦补全次要属性（避免渐变报错），同时提取两种属性的对应颜色：

# 假设你的数据集名为poke_data
poke_data <- poke_data %>%
  mutate(
    # 单属性宝可梦的次要属性与主属性一致，渐变显示为纯色
    SecondaryType = ifelse(is.na(SecondaryType), PrimaryType, SecondaryType),
    # 提取主、次属性对应的颜色
    primary_color = type_colors[PrimaryType],
    secondary_color = type_colors[SecondaryType]
  )

3. 绘制渐变柱状图 #

利用geom_col_pattern实现水平/垂直渐变，对应双属性展示：

ggplot(poke_data, aes(x = Name, y = 1)) + # y轴可替换为实际数值（如种族值总和）
  geom_col_pattern(
    aes(
      pattern_fill = primary_color,
      pattern_fill2 = secondary_color
    ),
    pattern = "gradient",
    pattern_direction = "horizontal", # 水平渐变对应主次属性，垂直渐变用"vertical"
    color = "black" # 柱子边框颜色
  ) +
  # 关闭默认颜色图例（自定义渐变无需图例）
  scale_pattern_fill_identity() +
  scale_pattern_fill2_identity() +
  labs(x = "宝可梦名称", y = "数值") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴标签避免重叠

三、解决Unable to check the capabilities of the png device警告 #

该警告多与图形设备初始化相关，可尝试以下方案：

• 重启R会话：清除RStudio图形设备缓存后重新运行代码
• 指定图形设备类型：保存图片时使用cairo设备

  png("poke_gradient_plot.png", width = 800, height = 600, type = "cairo")
  # 运行上述绘图代码
  dev.off()
  

• 更新相关包：旧版本的ggplot2或scales可能引发该问题

  update.packages(c("ggplot2", "scales"))
  

• 无图形界面环境适配：服务器运行时设置options(device = "png")或使用虚拟图形设备

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