ggplot2 facet分面下分别使用离散与连续色彩标度的实现问题

原生ggplot2的facet设计默认共用所有全局标度，无法直接为不同分面配置独立色彩标度，你可以通过以下两种常用方案实现需求：

方案1：使用ggnewscale包添加多重色彩标度 #

该方案最接近原生分面的使用逻辑，通过新增独立色彩标度的方式分别适配两类数据：

library(tidyverse)
library(ggnewscale)

# 生成示例数据
disc <- tibble(x = rnorm(100), y = rnorm(100), color = sample(1:3, 100, replace = TRUE), model = "discrete")
cont <- tibble(x = rnorm(100), y = rnorm(100), color = rnorm(100, 10), model = "continuous")

ggplot() +
  # 离散色阶图层，仅在discrete分面渲染
  geom_point(data = disc, aes(x = x, y = y, color = factor(color))) +
  scale_color_discrete(name = "离散类别") +
  # 插入色阶隔断，后续映射使用全新的色彩标度
  new_scale_color() +
  # 连续色阶图层，仅在continuous分面渲染
  geom_point(data = cont, aes(x = x, y = y, color = color)) +
  scale_color_viridis_c(name = "连续数值") +
  facet_wrap(~model)

方案2：使用patchwork包拼接图形模拟分面 #

该方案灵活性更高，除了色彩标度外，还可独立调整两个子图的其他配置，最终视觉效果和原生分面几乎一致：

library(tidyverse)
library(patchwork)

# 分别绘制两个子图
p_disc <- ggplot(disc, aes(x = x, y = y, color = factor(color))) + 
  geom_point() + 
  scale_color_discrete(name = "离散类别") +
  ggtitle("discrete") +
  theme_minimal()

p_cont <- ggplot(cont, aes(x = x, y = y, color = color)) + 
  geom_point() + 
  scale_color_viridis_c(name = "连续数值") +
  ggtitle("continuous") +
  theme_minimal()

# 横向拼接模拟分面，可通过参数调整图例、边距、对齐规则
p_disc + p_cont +
  plot_layout(nrow = 1)

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