如何用ggplot2（或其他包）绘制含3个离散自变量1个连续因变量的可视化图？

你之前尝试的曲面热图仅支持2个离散自变量映射到坐标轴，三元图适配的是三个连续占比变量（总和为1）的场景，确实不适合离散分类变量全组合的展示需求，以下是3种可行实现方案：

方案1：ggplot2分面热图（优先推荐） #

完全基于ggplot2实现，逻辑直观适配你的需求：将2个离散自变量映射到X、Y轴，第3个离散自变量用于分面，连续因变量映射到填充色，你提到的参考效果图就是这类实现。

library(ggplot2)

# 沿用你构造的示例数据集
Factor1 <- c('A', 'B')
Factor2 <- c('M', 'N', 'O')
Factor3 <- c('V1', 'V2', 'V3')
DF <- expand.grid(Factor1 = Factor1,
                  Factor2 = Factor2,
                  Factor3 = Factor3)
DF$Result <- runif(n =18, min = 0, max = 100)

# 分面热图实现
ggplot(DF, aes(x = Factor1, y = Factor2, fill = Result)) +
  geom_tile(color = "white") + # 加白色边框分隔单元格，层次更清晰
  facet_wrap(~Factor3, nrow = 1, labeller = label_both) + # 按Factor3的水平分面
  scale_fill_viridis_c() + # 采用色盲友好的配色方案
  labs(x = "Factor1", y = "Factor2", fill = "结果值") +
  theme_bw()

• 优点：静态图清晰易读，自定义调整空间大，适合论文、报告等正式场景。如果Factor3的水平更多，可调整facet_wrap的nrow/ncol参数适配布局。

方案2：交互式三维散点图 #

如果需要在单张画布不拆分的前提下展示所有维度，可以用rgl包做可交互的三维散点图，三个离散自变量分别映射到X/Y/Z轴，连续因变量映射到点的颜色和大小：

library(rgl)

# 先把离散因子转为数值坐标
DF$x <- as.numeric(DF$Factor1)
DF$y <- as.numeric(DF$Factor2)
DF$z <- as.numeric(DF$Factor3)

# 绘制3D散点图
plot3d(x = DF$x, y = DF$y, z = DF$z, 
       col = colorRampPalette(c("blue", "red"))(100)[cut(DF$Result, breaks = 100)],
       size = DF$Result/10,
       type = "s", # 用球形点展示
       xlab = "Factor1", ylab = "Factor2", zlab = "Factor3",
       axes = FALSE)
# 自定义坐标轴标签为离散水平
axis3d('x', at = 1:length(levels(DF$Factor1)), labels = levels(DF$Factor1))
axis3d('y', at = 1:length(levels(DF$Factor2)), labels = levels(DF$Factor2))
axis3d('z', at = 1:length(levels(DF$Factor3)), labels = levels(DF$Factor3))
# 添加结果值图例
legend3d("topright", legend = seq(0,100,20), 
         col = colorRampPalette(c("blue", "red"))(6), 
         pch = 16, title = "Result")

• 优点：支持鼠标拖拽旋转观察，适合探索性数据分析；缺点是静态导出时信息展示不全面。

方案3：平行坐标图 #

如果需要对比不同变量组合下的结果差异，可以用平行坐标图，三个自变量作为三个平行轴，连线颜色映射结果值：

library(GGally)

ggparcoord(DF, columns = 1:3, groupColumn = "Result",
           scale = "globalminmax",
           showPoints = TRUE) +
  scale_color_viridis_c() +
  labs(color = "结果值") +
  theme_bw()

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