如何在R语言的GGally包ggpairs()函数中修改基础颜色？

要为ggpairs生成的所有图表统一设置颜色（比如紫色），无需构造虚拟变量映射，有两种更简洁直接的实现方式：

方法一：更新几何对象的全局默认颜色 #

通过update_geom_defaults()修改ggplot各类几何对象的默认颜色，ggpairs会自动继承这些设置，无需额外配置：

library(GGally)
library(ggplot2)

# 为点图设置默认紫色
update_geom_defaults("point", list(color = "purple"))
# 为直方图设置填充和边框紫色
update_geom_defaults("bar", list(fill = "purple", color = "purple"))
# 为密度图设置半透明填充紫色
update_geom_defaults("density", list(fill = "purple", color = "purple", alpha = 0.3))

# 生成ggpairs图表，所有元素自动使用紫色
ggpairs(iris[, 1:4])

这种方式的优势是一次配置全局生效，所有后续的ggplot/ggpairs绘图都会沿用该颜色设置。

方法二：为ggpairs指定自定义绘图函数 #

通过wrap_fn_with_params()包装ggpairs自带的绘图函数，直接传入颜色参数，仅对当前ggpairs生效，不影响全局设置：

library(GGally)
library(ggplot2)

# 包装点图函数，固定颜色为紫色
custom_point <- wrap_fn_with_params(ggally_points, color = "purple")
# 包装直方图函数，固定填充和边框为紫色
custom_hist <- wrap_fn_with_params(ggally_histogram, fill = "purple", color = "purple")
# 包装密度图函数，固定半透明填充紫色
custom_density <- wrap_fn_with_params(ggally_densityDiag, fill = "purple", color = "purple", alpha = 0.3)

# 生成ggpairs，指定各区域使用自定义函数
ggpairs(
  iris[, 1:4],
  upper = list(continuous = custom_point),
  lower = list(continuous = custom_point),
  diag = list(continuous = custom_hist) # 如需密度图替换为custom_density即可
)

这种方式更灵活，可以针对不同区域（上三角、下三角、对角线）单独设置样式，同时避免全局修改带来的副作用。

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