如何移除ale包生成ggplot图中水平线的25%/中位数/75%标签？

有两种可行的方法来移除这些拥挤的"25%"、"median"、"75%"标签：

方法1：生成ALE图时直接禁用标签（推荐） #

查看ale()函数的参数文档，部分版本的ale包支持直接控制百分位数标签的显示。如果存在类似show_quantile_labels的参数，直接设置为FALSE即可：

ale_gam_diamonds <- ale(
  diamonds_sample, gam_diamonds,
  parallel = 2,  # 按需求保留或删除
  show_quantile_labels = FALSE
)

# 重新生成组合图
ale_gam_diamonds$plots |> patchwork::wrap_plots()

如果找不到对应参数，说明需要手动修改已生成的ggplot对象，用方法2。

方法2：手动清理已生成的ggplot对象中的标签层 #

这些百分位数标签是以geom_text层的形式存在于ggplot对象中，而非labels属性里（这也是你之前找不到它们的原因）。可以遍历每个图，移除包含目标标签的文本层：

library(purrr)

# 遍历所有ALE图，清理指定标签的文本层
clean_ale_plots <- purrr::map(ale_gam_diamonds$plots, function(plot_obj) {
  # 筛选保留不需要移除的层
  valid_layers <- purrr::map_lgl(plot_obj$layers, function(layer) {
    # 跳过是文本层且标签为目标内容的层
    if (inherits(layer$geom, "GeomText")) {
      !any(layer$data$label %in% c("25%", "median", "75%"))
    } else {
      TRUE
    }
  })
  # 更新图的层列表
  plot_obj$layers <- plot_obj$layers[valid_layers]
  plot_obj
})

# 组合清理后的图表
clean_ale_plots |> patchwork::wrap_plots()

运行这段代码后，所有百分位数标签会被移除，你可以在图表下方统一添加文字说明替代。

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