使用R语言transform()函数新增列时出现多余列的问题排查

错误原因 #

你使用transform(subset, Lagged_boycott = c(v2elboycot_ord[-1], NA))时，该函数会返回一个包含原数据所有列+新列Lagged_boycott的完整data.frame，但你把这个整个data.frame赋值给了subset$Lagged_boycott这一列，导致该列变成了嵌套的data.frame。当查看数据时，嵌套的data.frame的列会被展开，所以看起来出现了大量额外列。

正确写法 #

方法1：直接向量赋值（最简洁） #

不需要用transform，直接构造滞后向量并赋值给新列：

# 按行顺序生成滞后（需确保数据已按国家+年份升序排列）
subset$Lagged_boycott <- c(subset$v2elboycot_ord[-nrow(subset)], NA)

方法2：正确使用transform #

如果要保留transform，需要把返回的完整data.frame赋值给原数据框，而非某一列：

subset <- transform(subset, Lagged_boycott = c(v2elboycot_ord[-1], NA))

方法3：按年份逻辑滞后（推荐） #

你的数据年份间隔为3年，若要实现按年份逻辑上的一年滞后（而非单纯按行偏移），可结合分组和专业滞后函数（依赖dplyr包）：

library(dplyr)
subset <- subset %>%
  group_by(COWcode) %>%  # 按国家分组，避免跨国家错误滞后
  mutate(Lagged_boycott = lag(v2elboycot_ord, n = 1)) %>%
  ungroup()

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