For循环重命名许多对象的列名R

Question

我正在寻找一种方法来使用 for 循环或 R 中的其他方法重命名多个对象的列。 最终，我希望能够将每个 Stock object 的行绑定到一个大数据框中，但由于列名不同而不能。 下面的例子：

AAPL <-
Date        AAPL.Open  AAPL.High AAPL.Low  AAPL.Close  AAPL.Volume  AAPL.Adjusted  Stock  pct_change
2020-05-14  304.51     309.79    301.53    309.54      39732300     309.54         AAPL   0.61
2020-05-15  300.35     307.90    300.21    307.71      41561200     307.71         AAPL  -0.59


GOOG <-  
Date        GOOG.Open GOOG.High  GOOG.Low  GOOG.Close  GOOG.Volume   GOOG.Adjusted  Stock  pct_change 
2020-05-14  1335.02   1357.420   1323.910  1356.13     1603100       1356.13        GOOG   0.50
2020-05-15  1350.00   1374.480   1339.000  1373.19     1705700       1373.19        GOOG   1.26

对于这个例子，我有 2 个对象（AAPL 和 GOOG），但实际上我会使用更多对象。 我可以创建一个for循环来遍历每个object，并将每个的第二列重命名为“Open”，第三列重命名为“High”，第四列重命名为“Low”，......等等，然后我可以绑定所有这些对象在一起？

我已经有一个名为“Stock”的列，所以我不需要列名的 Ticker 部分。

Answer 1

如果您可以保证这些列的顺序，则应该这样做：

for(df in list(AAPL, GOOG))
  colnames(df) <- c("Date", "Open", "High", "Low", "Close", "Volume", "Adjusted", "Stock", "pct_change")

Answer 2

使用quantmod ，我们可以读取一组股票代码，将它们的名称和rbind()清理到单个数据帧中。

此答案中说明了三个关键功能，包括：

1. 一旦它们被加载到 memory 中，使用get()访问由quantmod::getSymbols()写入的对象。

2. 使用传递给lapply()的符号名称将symbol列添加到每个数据帧。

3. 将getSymbols()写入的xts对象中存储为行名的日期转换为数据框列。

首先，我们将使用getSymbols()从 yahoo.com 中读取数据。

library(quantmod)
from.dat <- as.Date("12/02/19",format="%m/%d/%y")
to.dat <- as.Date("12/06/19",format="%m/%d/%y")

theSymbols <- c("AAPL","AXP","BA","CAT","CSCO","CVX","XOM","GS","HD","IBM",
                "INTC","JNJ","KO","JPM","MCD","MMM","MRK","MSFT","NKE","PFE","PG",
                "TRV","UNH","UTX","VZ","V","WBA","WMT","DIS","DOW")
getSymbols(theSymbols,from=from.dat,to=to.dat,src="yahoo")

# since quantmod::getSymbols() writes named data frames, need to use
# get() with the symbol names to access each data frame
head(get(theSymbols[[1]]))



> head(get(theSymbols[[1]]))
           AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted
2019-12-02    267.27    268.25   263.45     264.16    23621800      262.8231
2019-12-03    258.31    259.53   256.29     259.45    28607600      258.1370
2019-12-04    261.07    263.31   260.68     261.74    16795400      260.4153
2019-12-05    263.79    265.89   262.73     265.58    18606100      264.2359

说明了如何在全局环境中访问符号对象后，我们将使用lapply()从行名称中提取日期，清理列标题，并将符号名称写入每个符号数据 object 的列。

# convert to list
symbolData <- lapply(theSymbols,function(x){
     y <- as.data.frame(get(x))
     colnames(y) <- c("open","high","low","close","volume","adjusted")
     y$date <- rownames(y)
     y$symbol <- x
     y
})

最后，我们将数据帧列表转换为单个数据帧。

#combine to single data frame
combinedData <- do.call(rbind,symbolData)
rownames(combinedData) <- 1:nrow(combinedData)

...和 output：

> nrow(combinedData)
[1] 120
> head(combinedData)
    open   high    low  close   volume adjusted       date symbol
1 267.27 268.25 263.45 264.16 23621800 262.8231 2019-12-02   AAPL
2 258.31 259.53 256.29 259.45 28607600 258.1370 2019-12-03   AAPL
3 261.07 263.31 260.68 261.74 16795400 260.4153 2019-12-04   AAPL
4 263.79 265.89 262.73 265.58 18606100 264.2359 2019-12-05   AAPL
5 120.31 120.36 117.07 117.26  5538200 116.2095 2019-12-02    AXP
6 116.04 116.75 114.65 116.57  3792300 115.5256 2019-12-03    AXP
> 

Answer 3

使用lapply ，我们可以遍历list并使用sub删除列名中的前缀。 这可以在没有任何外部包的情况下完成

lst1 <- lapply(list(AAPL, GOOG),  function(x)  {
        colnames(x) <- sub(".*\\.", "", colnames(x))
    x})

Answer 4

我在这里尝试了答案，我的符号列表在向量 'symbol_mayus' 中：

    symbolData <- lapply(symbol_mayus,function(x){
  y <- as.data.frame(get(x))
  colnames(y) <- c("open","high","low","close","volume","adjusted")
  y$date <- rownames(y)
  y$symbol <- x
  y
})

我得到一个错误：

 Error in names(x) <- value : 
      el atributo 'names' [6] debe tener la misma longitud que el vector [2] 

它说“名称”应该与向量[2]的长度相同