如何在ggplot2柱状图中通过不同美学属性展示4个以上变量？

可以实现，ggplot2支持将不同变量映射到多个视觉美学属性，配合分面功能可轻松展示4个及以上变量，以下是可直接运行的R实现示例。

示例说明 #

本次示例共展示6个变量，对应映射关系如下：

• x轴：销售季度（分类变量）
• y轴：销售额（连续变量）
• 填充颜色：销售区域（分类变量，实现分组效果）
• 透明度（alpha）：产品类型（分类变量）
• 边框线型：销售渠道（分类变量）
• 分面：受众群体（分类变量）

依赖包安装与加载 #

# 安装依赖（首次运行执行）
install.packages(c("tidyverse", "ggpattern"))
# 加载包
library(tidyverse)
library(ggpattern)

模拟演示数据 #

# 生成模拟数据
set.seed(123) # 固定随机种子保证结果可复现
demo_data <- expand.grid(
  Quarter = c("Q1", "Q2", "Q3", "Q4"),
  Region = c("华东", "华北", "华南", "西南"),
  Product = c("电子产品", "家居用品"),
  Channel = c("线上", "线下"),
  Audience = c("个人用户", "企业用户")
) %>% 
  mutate(Sales = rnorm(nrow(.), mean = 500, sd = 150) %>% round(0)) # 生成随机销售额

绘图代码 #

ggplot(demo_data, aes(x = Quarter, y = Sales)) +
  # 柱状图图层，映射多个美学属性
  geom_col_pattern(
    aes(
      fill = Region, # 填充色映射区域
      alpha = Product, # 透明度映射产品类型
      linetype = Channel, # 边框线型映射销售渠道
      pattern = Product # 填充图案映射产品类型，进一步区分
    ),
    colour = "black", # 边框统一为黑色，也可映射变量实现更多维度展示
    position = position_dodge(width = 0.8), # 分组柱形避免重叠
    pattern_spacing = 0.02 # 填充图案间距调整
  ) +
  # 分面，按受众群体拆分画布
  facet_wrap(~Audience) +
  # 自定义透明度取值，避免透明度过低看不清
  scale_alpha_manual(values = c(0.5, 1)) +
  # 自定义填充图案类型
  scale_pattern_manual(values = c("none", "stripe")) +
  # 图表样式调整
  labs(
    x = "销售季度",
    y = "销售额（万元）",
    fill = "销售区域",
    alpha = "产品类型",
    linetype = "销售渠道",
    pattern = "产品类型"
  ) +
  theme_bw(base_size = 14)

补充说明 #

• 分组逻辑由position_dodge实现，同一维度下不同分组的柱子会并排展示
• 所有映射到美学属性的变量都会自动生成对应图例，无需额外配置
• 如果需要展示更多变量，还可将边框颜色、图案颜色、柱子宽度等属性也加入映射

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