R语言：如何将循环结果转为向量并正确添加至数据框新列？

首先咱们来拆解你代码里的问题，先帮你修正现有逻辑，再给你几个更高效的向量化实现方案。

问题根源 #

你看到的<chr [1]>是因为新列被创建成了列表列，而非普通字符列，主要有两个原因：

1. 你的score函数用了print()——虽然控制台会输出结果，但函数的核心是返回值而非打印，不过这不是最关键的；
2. 你用c(Lat)转换列表，但c()处理列表时会保留列表结构，最终赋值给数据框的还是列表，所以每个元素会显示为长度1的字符向量标记。

修正现有代码 #

步骤1：调整score函数 #

把print()换成直接返回字符串（R函数会自动返回最后一行的结果，无需额外写return()）：

score <- function(i){ 
  if(i<1000){ "one" }
  else if(i<2000){ "two" } 
  else if (i < 3000){ "three" } 
  else if (i < 4000){ "four" }
  else if (i < 5000){ "five" }
  else if(i < 6000){ "six" }  # 顺手去掉了你之前多写的空格
  else if(i<7000){ "seven" }
  else { "other" } 
}

步骤2：用unlist()替代c()转换列表 #

unlist()会把列表扁平化为普通字符向量，这样赋值给数据框列就是正常的字符类型了：

Lat <- lapply(DDM$latency, score)
DDM$Newlat <- unlist(Lat)

现在再查看DDM$Newlat，就能看到预期的"one"、"two"等文本值了。

更优的向量化实现方案 #

在R里处理这种分箱赋值场景，向量化操作比循环/lapply高效得多，尤其数据量大时，推荐以下两种方法：

方法1：用dplyr::case_when（可读性强） #

加载dplyr包后，这种写法和你的if-else逻辑完全对应，代码清晰易懂：

library(dplyr)

DDM <- DDM %>%
  mutate(Newlat = case_when(
    latency < 1000 ~ "one",
    latency < 2000 ~ "two",
    latency < 3000 ~ "three",
    latency < 4000 ~ "four",
    latency < 5000 ~ "five",
    latency < 6000 ~ "six",
    latency < 7000 ~ "seven",
    TRUE ~ "other"  # 匹配所有剩余情况
  ))

方法2：用基础包cut()函数（简洁高效） #

如果不想加载额外包，cut()是专门处理连续变量分箱的函数，一步就能完成赋值：

DDM$Newlat <- cut(DDM$latency,
                  breaks = c(-Inf, 1000, 2000, 3000, 4000, 5000, 6000, 7000, Inf),
                  labels = c("one", "two", "three", "four", "five", "six", "seven", "other"))

这里breaks定义分箱边界，labels对应每个区间的文本标签，逻辑清晰且执行效率高。

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