如何在R语言中去除tibble列表列内的重复值？

核心问题分析 #

你之前的报错是因为unlist会把所有行的拆分结果展平成一个长向量，导致和原数据行的长度不匹配。需要逐行处理每个字符串，而不是全局统一处理。

下面提供两种解决方案，优先推荐第一种（从源头避免合并字符串）：

方法一：直接修改原分组代码（高效推荐） #

不需要先把id合并成字符串，直接在分组时就生成去重的列表列：

# 从原始input_data_tibble直接生成目标结果
my_tibble_good <- input_data_tibble |>
  group_by(tissue) |>
  summarize(id = list(unique(as.numeric(id))), .groups = "drop")

说明 #

• 分组后直接提取每组的id，用unique()去重，转成数值类型
• 用list()将每组的结果包装成列表，直接生成列表列
• .groups = "drop"用于取消分组，避免后续操作受分组影响

方法二：处理已生成的my_tibble_bad #

如果已经得到了合并后的字符串列，用以下两种方式逐行处理：

方式1：使用dplyr的rowwise逐行处理 #

my_tibble_good <- my_tibble_bad |>
  rowwise() |>
  mutate(
    id = list(
      unique(
        as.numeric(trimws(strsplit(id, ",")[[1]]))
      )
    )
  ) |>
  ungroup()

说明 #

• rowwise()让代码逐行执行，确保每个字符串单独处理
• strsplit(id, ",")[[1]]拆分当前行的字符串为向量，trimws()去除每个元素的空格（比如" 5"转为"5"）
• 转成数值后去重，再用list()包装为列表元素
• 最后ungroup()取消逐行处理状态

方式2：使用purrr的map函数（更简洁） #

library(purrr)

my_tibble_good <- my_tibble_bad |>
  mutate(
    id = map(id, ~ unique(as.numeric(trimws(strsplit(.x, ",")[[1]]))))
  )

说明 #

• map()会遍历id列的每个字符串，.x代表当前处理的字符串
• 逻辑和rowwise方法一致，代码更紧凑，适合熟悉purrr的用户

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