如何为ggally中geom_hex绘制的面板添加颜色条图例？

核心原因 #

ggpairs默认会移除子图的图例以避免重复显示，因此直接在geom_hex中设置图例参数无法生效。

解决方法 #

方法1：自定义函数时强制保留图例 #

修改自定义的ggally_hexbin函数，添加主题设置强制显示图例，同时可指定图例样式：

ggally_hexbin <- function(data, mapping, ...) {
  ggplot(data = data, mapping = mapping) +
    geom_hex(...) +
    guides(fill = guide_colorbar(title = "频数")) + # 自定义图例标题
    theme(legend.position = "right") # 指定图例位置
}

ggpairs(df, 
        lower = list(continuous = "hexbin", 
                     combo = "facethist", discrete = "facetbar", na = "na"))

方法2：统一调整整体图例位置 #

如果觉得多面板图例拥挤，可将图形转换后统一设置单个全局图例：

library(ggplotify)

p <- ggpairs(df, 
             lower = list(continuous = "hexbin", 
                          combo = "facethist", discrete = "facetbar", na = "na"))
# 转换为ggplot对象后统一调整图例位置
as.ggplot(p) + theme(legend.position = "bottom")

方法3：为单个面板添加图例 #

若只需给特定面板加图例，可提取对应面板单独修改：

p <- ggpairs(df, 
             lower = list(continuous = "hexbin", 
                          combo = "facethist", discrete = "facetbar", na = "na"))
# 示例：给第2行第1列的面板添加图例（位置需根据你的数据结构调整）
p[2,1] <- p[2,1] + theme(legend.position = "right")
print(p)

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