如何在R语言中还原经gather处理并去NA后的宽格式数据？

要将处理后的second.df还原为初始的first.df，核心是给每个列分组添加组内行号，以此对应原宽格式的行位置，再通过spread函数转回宽格式，缺失值会自动补全为NA。

实现代码 #

library(dplyr)
library(tidyr)

# 从second.df还原为原宽格式
restored.df <- second.df %>%
  group_by(x) %>%
  mutate(row_id = row_number()) %>%
  spread(x, y) %>%
  select(-row_id)

# 查看还原结果
print(restored.df)

代码说明 #

• group_by(x)：按原宽格式的列名（a、b、c）分组
• mutate(row_id = row_number())：给每个分组内的行添加序号，这个序号对应原宽格式的行位置
• spread(x, y)：将长格式转回宽格式，同一row_id的行对应原宽格式的一行，缺失的位置自动填充NA
• select(-row_id)：移除用于定位的辅助行号列，得到与first.df完全一致的结果

验证结果 #

运行代码后得到的restored.df与目标的first.df完全匹配：

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