从创建它的函数中命名 data.frame 列

Question

下面的代码使用我的滞后数据创建了一个数据框，但为了修复名称，我目前必须使用第二个“for”命令显式创建名称。我想在创建新列的函数内移动列名创建。这可能吗？

例如，我想调用一个新函数 MyLagNamed(Close[,1], i,"C") 而不是调用 MyLag(Close[,1], i,"C") 并返回列的名称像示例代码中一样设置。

这可能吗？

谢谢

MyLag <- function(x, k) c(rep(NA, k), x[1:(length(x)-k)] )

MaxColumns = 6

Close = structure(list(Close = c(12.8125, 12.97, 13.345, 13.625, 13.4375, 
                     13.6875, 13.75, 13.625, 13.3125, 13.875, 13.875, 13.9375, 13.875, 
                     14.3125, 14.6875, 14.375, 14.4075, 14.095, 14.4375, 14.375)), 
                     .Names = "Close", row.names = c(NA, -20L), class = "data.frame")

for (i in 1:MaxColumns) Close[i+1] <- MyLag(Close[,1], i)

for (i in 2:MaxColumns) colnames(Close)[i] = paste("MyLag(C,",i,")",sep="")

Answer 1

只需使用花括号 {} 将命名参数移动到 for 循环内。

for (i in 1:MaxColumns) {
    Close[i+1] <- MyLag(Close[,1], i)
    colnames(Close)[i+1] = paste("MyLag(C,",i+1,")",sep="")
}

但这似乎是一种糟糕的做事方式。这并没有那么好得多，但我们还包括一个函数参数来命名列，如下所示：

MyLag <- function( x , k , name = "C"){
    j <- 0:6
    k <- k[ , ncol(k) ]
    df <- data.frame( lapply( j , function(x) (c( rep( NA , x ) , k ))[1:length(k)] ) )
    names( df ) <- c( "Close" , paste("MyLag(" , name , 1:x , ")",sep="") )
    return(df)
}                     

这给了我们一个看起来像这样的data.frame：

head( MyLag( 6 , Close , "High" ) , n = 7 )
    Close MyLag(High1) MyLag(High2) MyLag(High3) MyLag(High4) MyLag(High5) MyLag(High6)
1 12.8125           NA           NA           NA           NA           NA           NA
2 12.9700      12.8125           NA           NA           NA           NA           NA
3 13.3450      12.9700      12.8125           NA           NA           NA           NA
4 13.6250      13.3450      12.9700      12.8125           NA           NA           NA
5 13.4375      13.6250      13.3450      12.9700      12.8125           NA           NA
6 13.6875      13.4375      13.6250      13.3450      12.9700      12.8125           NA
7 13.7500      13.6875      13.4375      13.6250      13.3450      12.9700      12.8125