R语言实现：为数据框新增列，每行取指定列下一行值，末行取首行值

原代码存在的问题 #

• R语言中for循环语句本身的返回值为NULL，直接把循环执行结果赋值给新列，会导致新列被置为空值，根本无法存储逐行计算的内容
• 循环执行到最后一行时，i+1会超出dataframe的行边界返回缺失值，无法满足最后一行填入首行值的要求

适配任意行数的实现方法 #

Base R 原生索引移位（无第三方依赖） #

无需循环，通过构造错位取数索引直接生成目标列，逻辑完全匹配需求：

• 除最后一行外，每一行的to值取name列的下一行内容
• 最后一行的to值取name列的首行内容

实现代码：

actors <- data.frame(name=c("Alice", "Bob", "Cecil", "David", "Esmeralda"))
# 构造错位索引：从第2行到最后1行，末尾拼接首行索引
row_idx <- c(2:nrow(actors), 1)
actors$to <- actors$name[row_idx]

运行后输出完全符合预期：

name        to
1     Alice       Bob
2       Bob     Cecil
3     Cecil     David
4     David Esmeralda
5 Esmeralda     Alice

该写法不需要手动调整参数，无论原dataframe总行数是多少，都会自动适配生成正确结果。

Tidyverse 生态写法 #

如果日常使用dplyr处理数据，可以借助lead函数实现向下移位，通过default参数自动补全最后一行的取值，代码更简洁：

library(dplyr)
actors <- actors |>
  mutate(to = lead(name, default = first(name)))

修正版for循环实现 #

如果需要保留for循环的实现逻辑，需要提前初始化与原表等长的存储列，并对最后一行做边界判断，避免越界：

actors <- data.frame(name=c("Alice", "Bob", "Cecil", "David", "Esmeralda"))
# 提前初始化等长的to列，避免动态扩容导致的效率问题
actors$to <- character(nrow(actors))
for (i in seq_len(nrow(actors))) {
  if (i == nrow(actors)) {
    # 最后一行取首行值
    actors$to[i] <- actors$name[1]
  } else {
    # 其余行取下一行值
    actors$to[i] <- actors$name[i + 1]
  }
}

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