列名后lapply

Question

我有数据集充满这样的：

tickers <- c("SPY","DIA") 

l_ply(tickers, function(sym) try(getSymbols(sym, from="2012-03-01", 
to=Sys.Date()))) 

ClosePrices <- do.call(merge, lapply(tickers, function(x) Cl(get(x))))

tail(ClosePrices) 

      SPY.Close DIA.Close 
2012-06-29 136.10 128.45 
2012-07-02 136.51 128.36 

和

rsipx <- do.call(merge, lapply(ClosePrices, FUN=function(ClosePrices) RSI(ClosePrices))) 

    tail(rsipx) 
      SPY.Close DIA.Close 
2012-06-29 58.36391 58.92043 
2012-07-02 59.37153 58.53483 

我解决不了的问题是，当我将一个函数它为每个输入生成多个列。在这种情况下ADX产生4个值（DIP DIn为DX ADX）：

adxpx <- do.call(merge, lapply(tickers, FUN=function(tickers) ADX(get(tickers)))) 
tail(adxpx) 
       DIp  DIn  DX  ADX DIp.1 DIn.1  DX.1 ADX.1 
2012-06-29 53.47713 35.90631 19.65780 15.30299 55.14765 36.05527 20.93395 18.20818 
2012-07-02 55.79485 32.58420 26.26262 16.08582 56.67699 33.08770 26.27903 18.78467 

我怎样才能得到相应的列名，而不是一个数？ （DX.DIA而不是DX.1），还是只选择$ ADX命名列？

Answer 1

只是paste的股票名称到您传递给lapply函数内部的列名：

foo <- function(tickers){ 
    res <- ADX(get(tickers)) 
    colnames(res) <- paste(colnames(res),tickers,sep = ".") 
    res 
} 
adxpx <- do.call(merge, lapply(tickers, FUN=foo)) 

如果你想只有一列，您可以更改功能foo只选择列。说，通过在res <- res[,4]之类添加一行（在改变列名之前）。