如何遍历DataFrame并获取对应列的值？解决R语言中遍历DataFrame重复输出的问题

具体场景问题：解决重复打印与逐行输出的问题 #

先给你拆解下代码的问题：for(i in df) 实际上是在遍历DataFrame的列，你的df有x和y两列，所以循环会执行2次。而每次循环里的print(paste(df$x, "occurs", df$y, "time[s]"))是直接对整个列做拼接，所以每次都会输出所有行的结果，最终导致重复打印两次。

调整方案1：按行索引遍历（基础循环方式） #

这种方式直接遍历行的序号，逐行提取对应列的值，确保每行输出一条，且只打印一次：

library(tibble)
df <- tribble( ~x, ~y, "a", 2, "b", 1 )

for(i in 1:nrow(df)) {
  print(paste(df$x[i], "occurs", df$y[i], "time[s]"))
}

输出结果：

[1] "a occurs 2 time[s]"
[1] "b occurs 1 time[s]"

调整方案2：用purrr包逐行处理（更符合R风格） #

R是向量化语言，推荐用专门的逐行处理函数，避免手动管理索引：

library(tibble)
library(purrr)

df <- tribble( ~x, ~y, "a", 2, "b", 1 )
pwalk(df, function(x, y) {
  print(paste(x, "occurs", y, "time[s]"))
})

这个方法会自动把每行的x和y值传入函数，实现逐行打印。

额外小技巧：如果只想生成字符串向量再打印 #

如果不需要逐行循环打印，也可以直接用向量化操作生成结果，再一次性输出（更高效）：

result <- paste(df$x, "occurs", df$y, "time[s]")
# 逐行输出
cat(paste(result, collapse = "\n"))

通用技术问题：如何遍历DataFrame并获取对应列的值？ #

在R中遍历DataFrame分不同场景，推荐优先使用向量化操作，避免不必要的循环，以下是常见场景的处理方式：

1. 遍历行，获取多列的值 #

• 行索引循环：如上面的方案1，用1:nrow(df)作为循环序列，通过df$列名[i]提取第i行的对应值。
• apply系列函数：用apply(df, 1, function(row) { ... })，其中row是每行的向量，注意会把所有列转成同一类型（比如字符型）：

  apply(df, 1, function(row) {
    print(paste(row["x"], "occurs", row["y"], "time[s]"))
  })
  

• purrr包的pwalk/pmap：pwalk用于执行无返回值的操作（比如打印），pmap用于生成结果向量，更适合处理多列的情况。

2. 遍历列，获取整列的值 #

如果需要处理每一列的所有值，可以直接遍历列或用lapply：

# 循环遍历列
for(col in df) {
  # col是当前列的向量
  print(head(col))
}

# 用lapply处理每一列
lapply(df, function(col) {
  # 对整列做操作，比如计算均值
  mean(col, na.rm = TRUE)
})

3. 优先使用向量化操作 #

R的设计初衷是向量化运算，很多时候不需要显式循环，比如拼接列值、计算列统计量等，直接对列向量操作会更高效简洁。

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