使用lapply转数据框列表列名为大写时加;x才生效的原因

核心规则：R语言中所有函数的默认返回值为函数体内最后一行表达式的执行结果，无需显式写return声明

两种写法的差异逻辑 #

• 无法得到预期结果的写法

  df.list <- lapply(df.list,function(x) colnames(x) <- toupper(colnames(x)))
  

  该写法的匿名函数内只有一行赋值语句，R中赋值操作符<-的返回值为被赋值的内容，也就是转换为大写后的列名字符向量。因此lapply遍历结束后返回的是由所有数据框的大写列名组成的列表，直接覆盖原df.list后自然得到的不是修改后的数据集。

• 可正常运行的写法

  df.list <- lapply(df.list,function(x) {colnames(x) <- toupper(colnames(x));x})
  

  该写法用分号分隔了两个表达式，先执行列名修改的赋值操作，最后一行表达式为x，函数会将修改完列名的完整数据框x作为返回值。因此lapply最终返回的是所有修改完成的数据框组成的列表，赋值后符合预期。

补充说明：如果习惯显式声明返回值，也可以将匿名函数写为function(x) {colnames(x) <- toupper(colnames(x)); return(x)}，运行效果和加;x的写法完全一致。

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