如何在lapply中使用“名称”功能

Question

我遇到一个问题似乎很容易，但是我想到了很难实现的问题。这是问题： 我有一个列表“ df”，我想通过使用“ lapply”将其元素重命名为“ anm”。 但是我的伪造代码无法实现我的意图。 你们能给我一些提示吗？谢谢。

a1 <-   matrix(1:10,5)
a2 <-   matrix(11:20,5)
a3 <-   matrix(21:30,5)
a4 <-   matrix(31:40,5)
df <-   list(a1,a2,a3,a4)
anm <-  c("June","July")   
outvar <-   lapply(df,names) ##fake code 

Answer 1

使用colnames代替`names

df = lapply(df, function(x) {colnames(x) = anm; x})

使用循环甚至可能更快

for (i in 1:length(df))
    colnames(df[[i]]) = anm