分层ggplot避免数据集重复：同时使用全局与图层新数据的方法

当你在ggplot2中指定全局数据后，若局部图层使用新数据，ggplot默认会仅从新数据中查找所有映射变量，这就导致全局数据里的geometry、County找不到而报错。以下是几种适配新版ggplot2的解决方案：

方案1：临时合并全局与新数据（推荐） #

无需提前复制重复列，直接在图层中通过共同主键（比如County）动态合并两个数据框，这样图层就能同时获取所有需要的变量：

base_plot <- ggplot2::ggplot(
    data = dplyr::select(df, c("County", "geometry")),
    mapping = ggplot2::aes(geometry = geometry)
)

new_plot <- 
    base_plot +
    ggiraph::geom_sf_interactive(
        # 临时合并全局数据与新数据
        data = dplyr::left_join(
            dplyr::select(df, c("County", "geometry")), 
            df_with_just_metric_column, 
            by = "County"
        ),
        # 直接使用合并后的所有变量
        mapping = aes(tooltip = County, fill = metric)
    )

这种方法完全符合ggplot2的设计逻辑，还能保证数据关联的准确性。

方案2：直接引用全局数据的变量 #

如果不想合并数据，可以在局部图层的映射中，明确指定变量来自全局数据，同时关闭美学继承避免冲突：

base_plot <- ggplot2::ggplot(
    data = dplyr::select(df, c("County", "geometry")),
    mapping = ggplot2::aes(geometry = geometry)
)

new_plot <- 
    base_plot +
    ggiraph::geom_sf_interactive(
        data = df_with_just_metric_column,
        mapping = aes(
            geometry = .env$df$geometry,  # 从全局df取geometry
            tooltip = .env$df$County,     # 从全局df取County
            fill = metric                 # 从新数据取metric
        ),
        inherit.aes = FALSE  # 关闭继承，防止ggplot从新数据查找全局变量
    )

注意：这种方法要求全局数据和新数据的行数完全一致，否则会出现变量对应错误。

方案3：获取全局图层数据后绑定（特殊场景用） #

如果无法通过主键合并，可先提取全局图层的数据，再与新数据按行绑定：

base_plot <- ggplot2::ggplot(
    data = dplyr::select(df, c("County", "geometry")),
    mapping = ggplot2::aes(geometry = geometry)
)

# 提取全局图层的数据
global_layer_data <- ggplot2::layer_data(base_plot)

new_plot <- 
    base_plot +
    ggiraph::geom_sf_interactive(
        data = dplyr::bind_cols(global_layer_data, df_with_just_metric_column),
        mapping = aes(tooltip = County, fill = metric)
    )

此方法仅适用于全局数据与新数据行数严格匹配的场景。

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