如何在ggplot2中避免绘制重复点以提升绘图速度？

针对你遇到的「每次调整绘图变量都要手动修改select()+distinct()」的痛点，有几种更简便的解决方案，无需重复修改数据处理逻辑：

方法1：自定义自动去重的geom_point_unique #

直接封装一个继承自geom_point的图层，在绘制前自动识别当前美学映射（aes）中的变量，保留这些变量的唯一组合。只需定义一次，后续绘图直接替换geom_point即可：

library(tidyverse)

# 自定义自动去重的点图层
geom_point_unique <- function(mapping = NULL, data = NULL, stat = "identity",
                             position = "identity", ..., na.rm = FALSE,
                             show.legend = NA, inherit.aes = TRUE) {
  layer(
    data = data,
    mapping = mapping,
    stat = StatUnique,
    geom = GeomPoint,
    position = position,
    show.legend = show.legend,
    inherit.aes = inherit.aes,
    params = list(na.rm = na.rm, ...)
  )
}

# 自定义统计层，实现自动去重
StatUnique <- ggproto("StatUnique", StatIdentity,
  compute_layer = function(data, params, layout) {
    data |> distinct(across(all_of(names(data))), .keep_all = TRUE)
  }
)

使用示例 #

# 基础绘图，自动去重site+value的组合
ggplot(data, aes(x = site, y = value)) +
  geom_point_unique() +
  coord_flip()

# 新增颜色映射，自动识别并去重site+value+timestep的组合
ggplot(data, aes(x = site, y = value, color = factor(timestep))) +
  geom_point_unique() +
  coord_flip()

方法2：提前定义美学映射，自动提取变量去重 #

如果不想自定义图层，可以先把美学映射存为对象，再自动提取其中的变量名做去重，避免手动写select的列名：

# 定义绘图的美学映射
plot_aes <- aes(x = site, y = value, color = factor(timestep))

# 提取映射中的变量名
aes_vars <- names(plot_aes)[sapply(plot_aes, is.name)]

# 自动根据映射变量去重并绘图
ggplot(data |> distinct(across(all_of(aes_vars))), plot_aes) +
  geom_point() +
  coord_flip()

调整绘图变量时，只需修改plot_aes即可，无需改动数据处理部分。

方法3：使用ggforce包的geom_point0 #

ggforce包提供了现成的geom_point0，它会自动去除所有美学属性完全重叠的点，开箱即用：

library(ggforce)

# 基础绘图自动去重
ggplot(data, aes(x = site, y = value)) +
  geom_point0() +
  coord_flip()

# 新增映射后自动适配
ggplot(data, aes(x = site, y = value, color = factor(timestep))) +
  geom_point0() +
  coord_flip()

各方法对比 #

所有方法都能达到和手动select()+distinct()一致的速度提升，且无需每次调整绘图变量时同步修改数据处理逻辑。

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