lapply处理数据框列表时row.names(x)<-与row.names<-的差异问题

核心原因在于R中赋值语法与替换函数的行为逻辑差异，结合lapply的运行机制就能解释这个现象：

1. row.names(x) <- value的问题所在 #

row.names(x) <- value是R的赋值语法，它的本质是在当前环境中修改对象x。但在lapply的匿名函数里：

• l[[x]]是原数据框的临时副本，不是对原列表元素的直接引用
• 执行row.names(l[[x]]) <- ...时，只是修改了这个副本的行名，而这个副本在匿名函数执行结束后就会被丢弃，完全不会影响原列表l
• 同时，这个赋值表达式的返回值是右侧的value（也就是修改后的行名字符向量），所以lapply最终返回的是这些向量组成的列表，而非修改后的数据框

比如你运行这段代码：

lapply(names(l), \(x) row.names(l[[x]]) <- paste0(x, ".", rownames(l[[x]])))

得到的结果是两个字符向量，原列表l的行名完全没变化。

2. row.names<-替换函数的工作逻辑 #

row.names<-是R的内置替换函数，语法x %>% row.names<-(value)等价于``row.names<-(x, value)，它的核心行为是：

• 接收原始数据框x和新行名value
• 创建并返回一个修改了行名的新数据框

在你的代码里：

setNames(lapply(names(l), 
                \(x) l[[x]] %>% `row.names<-` (paste(x, rownames(l[[x]]), sep = "."))), 
         names(l))

lapply的每个匿名函数都会返回修改后的新数据框，最终lapply将这些新数据框收集成列表，再通过setNames恢复原列表的元素名称，自然就实现了修改行名的需求。

补充：用赋值语法生效的替代方式 #

如果想在循环类操作中用row.names(x) <- value生效，直接用for循环更直观（因为for循环里的l[[x]]是对原列表元素的直接引用）：

for (x in names(l)) {
  row.names(l[[x]]) <- paste0(x, ".", rownames(l[[x]]))
}

这样就能直接修改原列表l中的数据框行名。

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