使用For循环生成含数据框变量范围的列表时遇错误求助

错误原因 #

你写的循环里有两个核心问题：

1. 用tb[i]提取列时，得到的是单列tibble而非向量，虽然后续range()能处理，但赋值逻辑出错；
2. 列表赋值用names[i] <- ...时，R会把range()返回的长度2向量拆成单个元素，试图填充列表的多个位置，导致只保留了最小值，同时触发长度不匹配的警告。另外别用names当变量名，它和R内置函数重名，容易引发混淆。

修复后的循环写法 #

set.seed(1)
x <- 1:10
y <- rnorm(10)
z <- rexp(10)
w <- sample(1:100, 10)
tb <- tibble(x,y,z,w)

# 预先分配列表，换个不与内置函数冲突的变量名
L <- length(names(tb))
range_list <- vector("list", L)
# 给列表元素命名，方便后续查看对应关系
names(range_list) <- names(tb)

for (i in 1:L) {
  # 用[[i]]提取列向量，同时用[[i]]给列表单个元素赋值
  range_list[[i]] <- range(tb[[i]])
}

更简洁的写法（无需循环） #

如果你习惯用tidyverse工具，可以用purrr::map直接遍历tibble的每一列：

library(purrr)
range_list <- map(tb, range)

或者用基础R的lapply函数：

range_list <- lapply(tb, range)

两种方法得到的结果都是每个元素为长度2向量的列表，分别对应各列的最小值和最大值。

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