使用ggpairs绘制蟹类数据散点图矩阵遇参数弃用错误求助

错误原因分析 #

报错核心是重复传递美学映射参数（同时使用aes()和mapping = aes_string()），违反了新版GGally的语法规范；另外原代码中columns=4:9超出了crabs数据集的列范围（crabs共8列，定量变量为第4-8列，共5个）。

修正后的完整代码 #

# 加载所需包
library(MASS)
library(GGally)
library(RColorBrewer)

# 构建sp.sex因子变量并指定顺序
crabs$sp.sex <- factor(paste(crabs$sp, crabs$sex, sep="."), 
                       levels=c("B.M", "B.F", "O.M", "O.F"))

# 绘制散点图矩阵
ggpairs(crabs, 
        columns = 4:8,  # 对应5个定量变量：FL, RW, CL, CW, BD
        mapping = aes(color = sp.sex, fill = sp.sex),  # 统一传递美学映射
        lower = list(continuous = wrap("density", alpha = 0.5)),
        diag = list(continuous = wrap("density", alpha = 0.5)),
        upper = list(continuous = wrap("cor", size = 2)),
        title = "Scatterplot Matrix of Crab Data") +
  # 自定义颜色：蓝蟹(B)用蓝色系，橙蟹(O)用橙红系；雄性(M)深色，雌性(F)浅色
  scale_color_manual(values = c("B.M" = "darkblue", 
                                "B.F" = "lightblue", 
                                "O.M" = "darkorange4", 
                                "O.F" = "orange"),
                     labels = c("B.M", "B.F", "O.M", "O.F")) +
  # 匹配填充色（用RdYlBu发散配色，对应调整顺序）
  scale_fill_manual(values = c("B.M" = brewer.pal(4, "RdYlBu")[4], 
                               "B.F" = brewer.pal(4, "RdYlBu")[3], 
                               "O.M" = brewer.pal(4, "RdYlBu")[1], 
                               "O.F" = brewer.pal(4, "RdYlBu")[2]),
                    labels = c("B.M", "B.F", "O.M", "O.F")) +
  theme_bw()

关键修改说明 #

1. 统一美学映射：将color和fill的映射统一放在mapping = aes()中，不再混用不同映射函数，避免参数冲突。
2. 修正列范围：将columns=4:9改为4:8，精准对应crabs数据集中的5个定量变量。
3. 匹配配色需求：
   • 颜色映射：手动指定蓝蟹雄性为深色蓝、雌性为浅色蓝；橙蟹雄性为深色橙、雌性为浅色橙，完全符合物种+性别配色逻辑。
   • 填充色：调用RdYlBu发散配色并调整顺序，完美匹配分类变量的水平顺序。
4. 保留原有可视化设置：保留了你设置的下三角密度图、对角线密度图、上三角相关系数，以及theme_bw()主题。

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