将名称从一个列表分配到另一个列表

Question

我在一些名为regressions的列表中获得了一群动态创建的回归。现在我想高效地重命名他们的系数。我到目前为止是这样的循环，它的工作原理：

for (i in 1:length(params[,1])){ 
names(regressions[[i]]$coefficients)[pos] <- paste(params[i,1],".lag",params[i,2],sep="") 
} 

我一直想有一段时间来完成这件事有点更普遍具有功能的帮助下，造成这种不回归唯一上榜我有。然而，我无法得到任何其他工作。这里一些其他的尝试基本上基于lapply：

correctNames <- function(reglist,namevec,pos){ 
names(reglist[[i]]$coefficients)[pos] <- as.character(namevec) 
} 

lapply(regressions,correctNames(reglist,namevec,pos), 
reglist=regressions,namevec=params[,1],pos=2) 

另一次尝试是写一个for循环的功能，其内部也可以作为打印显示，但不会在全球分配的名称（其中回归列表存储） 。

correctNames <- function(reglist,pos,namevec){ 
for (i in 1:length(params[,1])){ 
names(reglist[[i]]$coefficients)[pos] <- paste(namevec,".lag",namevec,sep="") 
} 
#this test proves it's work inside the function... 
print(reglist[[10]] 
} 

啊，给我一个休息时间。

Answer 1

有没有“我”“correctNames的是第一个版本里面“功能;而且你可能没有意识到你不是将它分配给“回归”，而只是分配给回归对象的副本。尝试改为：

correctNames <- function(reglist,namevec,pos){ 
    names(reglist$coefficients)[pos] <- as.character(namevec) 
    return(reglist)       } 
newregs <- mapply(correctNames, 
        reglist=regressions, 
        namevec=as.character(params[,1]), 
        MoreArgs= list(pos=2)) 

从Ramnath看到了说明，并注意到，该代码做了工作以后，但被赋予片状名称为“PARAMS”我看着PARAMS并认为这是一个因素，并因此改变了说法在mapply致电as.character(params[,1])。

> newregs[1,1] 
[[1]] 
(Intercept)  log(M1) 
    -5.753758 2.178137 

Answer 2

如果这是一个跟进你的earlier question，那么这里就是我会做什么

coefs = plyr::ldply(regressions, coef) 
coefs = transform(coefs, reg_name = paste(x, '.lag', l, sep = ""))[,-c(1, 2)] 
names(coefs) = c('intercept', 'reg_coef', 'reg_name') 

这给你

intercept reg_coef  reg_name 
1 -5.753758 2.178137 log(M1).lag0 
2 7.356434 7.532603  rs.lag0 
3 7.198149 8.993312  rl.lag0 
4 -5.840754 2.193382 log(M1).lag1 
5 7.366914 7.419599  rs.lag1 
6 7.211223 8.879969  rl.lag1 
7 -5.988306 2.220994 log(M1).lag4 
8 7.395494 7.127231  rs.lag4 
9 7.246161 8.582998  rl.lag4