R语言tidyverse如何按ID列聚合将邻接对长表转为多邻接列宽表

核心遗漏点 #

你没有为同一个ID对应的每个邻接单元生成顺序编号，这个编号是生成你需要的多列结构的必要依据：同一个ID下的第一个邻接单元归为第1列，第二个归为第2列，以此类推。

你之前两次尝试失败的原因：

• 用dcast写ID ~ neighbour时，公式右侧的变量会被作为新列的名称来源，所以每个唯一的neighbour值都会生成单独一列，没有匹配的就返回NA，和需求不符
• 用pivot_wider时没有指定names_from参数，函数不知道该用什么值生成新列的名称，因此抛出列必须命名的报错

两种实现方式 #

1. tidyverse（pivot_wider方案） #

先按ID分组生成邻接单元的顺序编号，再做宽表转换：

library(tidyverse)

# 处理数据
result <- table1 %>%
  group_by(ID) %>%
  # 生成同ID下的邻接单元顺序号
  mutate(neighbour_order = row_number()) %>%
  ungroup() %>%
  pivot_wider(
    id_cols = ID,
    # 用顺序号作为新列的命名依据
    names_from = neighbour_order,
    values_from = Neighbour,
    # 可选：给新列加统一前缀
    names_prefix = "Neighbour_"
  )

2. data.table（dcast方案） #

调整dcast的公式右侧为同ID下的行号即可：

library(data.table)

setDT(table1)
# 用rowid(ID)直接生成同ID下的顺序号作为列名来源
result <- dcast(table1, ID ~ rowid(ID), value.var = "Neighbour")

# 可选：修改列名符合你的输出习惯
setnames(result, old = c("1", "2"), new = c("Neighbour_1", "Neighbour_2"))

常见补充说明 #

• 规范的数据表不允许存在重复列名，你示例中展示的重名Neighbour列仅为展示效果，实际输出给列加序号后缀的形式更符合数据处理要求
• 如果不同ID对应的邻接单元数量不一致，多出的列会自动填充NA，符合通用处理逻辑

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