R语言：如何在列表嵌套的数据框中合并两列？

嘿，我来帮你搞定这个问题！你的核心需求是把列表里每个数据框的Na.me1和Na.me2两列合并成空格分隔的字符串列，同时解决你遇到的报错问题。

一、实现新增合并列的正确方法 #

最直接的方式是用lapply遍历列表里的每个数据框，配合paste函数完成拼接：

# 遍历列表中的每个数据框，新增合并列
d <- lapply(d, function(df) {
  # 用空格拼接Na.me1和Na.me2，生成新列new_col
  df$new_col <- paste(df$Na.me1, df$Na.me2, sep = " ")
  return(df)
})

运行这段代码后，每个数据框都会新增一列new_col，内容就是你想要的“10004563 382930”这种格式。

如果之后需要对合并后的内容做数值运算，也可以把拼接结果转为数值型（不过看你的需求，字符串格式应该就够用了）：

d <- lapply(d, function(df) {
  df$new_col <- as.numeric(paste0(df$Na.me1, df$Na.me2))
  return(df)
})

二、关于你遇到的“invalid 'digits' argument”错误 #

你运行print(d[[1]]$Na.me1, d[[1]]$Na.me2)时报错，这个有点反常——因为print函数的第二个参数是quote，不是digits。大概率是你不小心把print和其他带digits参数的函数搞混了（比如format或者prettyNum），或者代码里其他地方的调用出了问题。不过没关系，上面的方法已经能帮你完成核心需求啦，先试试新增列的代码吧！

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