R код для переименования заголовка объекта xts с использованием имени (объекта) <- вектор

Question

Я новичок в изучении R и у меня возникли проблемы с некоторыми из моего кода R. Я разместил весь код для вашего удобства, чтобы вы могли видеть логику в том, что я пытаюсь сделать. Моя проблема заключается в переименовании заголовка моего объекта xts Monthly_Quotes. Я понимаю, что при наличии недопустимого символа акции функция getsymbols не будет извлекать кавычки для "zzzz", поэтому я сталкиваюсь с проблемой переименования заголовка. Я хотел бы решить эту проблему так, что если у меня будет гораздо больший список символов тикеров, которые не загружаются, у меня не будет проблем с переименованием заголовка из моего списка ticker_symbols.

#Environment to store stock symbols data
ETF_Data <- new.env()

#Dates needed for getSymbols function
sDate <- as.Date("2007-09-04") #Start Date
eDate <- as.Date("2014-09-02") #End   Date

#Assign vector of ticker symbols
ticker_symbol <- c("zzzz","IVW","JKE","QQQ","SPYG","VUG" )

#Load functions  
source("Functions.R")

#Create empty list
Temp_ETF_Data <- list()

#Variable is a connection to a specific file that appends the output to the file
connection_string <- file("Log_File.txt", open = "wt")

#Sink allows the R output to a connection file which is connection_string
#Log_File.txt is created to the directory that has been set
sink(connection_string, type="message")

#Loop to retrieve prices from Yahoo's API and assign only the Adjusted column to the list.
for(i in ticker_symbol){  
  tryCatch(
  {
      getSymbols(i, env = ETF_Data, from = sDate, to = eDate, src = "yahoo", warning = FALSE) 
      Temp_ETF_Data[[i]] <- Ad(ETF_Data[[i]])
  },    

  error = function(e) {
      message("-ERROR-")
      message(paste("Error for ticker symbol  :", i, "\n"))
      message("Here's the original error message: ")
      message(e)
      message("")
      return(i)},
 finally = {
     message(paste("Data was processed for symbol:", "[", i, "]" ))
     message("\n","******************************************", "\n")  
}) 
}

#Turns off message once it is on the console and reads the line. 
#Then it closes the sink connection and closes the connection to the Log_File.txt
sink(type = "message")
readLines("Log_File.txt")
close(connection_string)

#Merge list into columns from list 
Daily_Quotes <- do.call(merge, Temp_ETF_Data)

#Create new xts object with the 1st trading day price of each month and assign column headers 
Monthly_Quotes  <- Daily_Quotes[startpoints(Daily_Quotes,'months')]
#This piece of code creates this error
#     "Error in `colnames<-`(`*tmp*`, value = c("zzzz", "IVW", "JKE", "QQQ",  : 
#         length of 'dimnames' [2] not equal to array extent"
names(Monthly_Quotes) <- c(ticker_symbol)

Я попробовал это:

ticker_symbol <- colnames (Monthly_Quotes)
имена (Monthly_Quotes) <- c (ticker_symbol)

Answer 1

Это не дает прямого ответа на ваш вопрос (см. Комментарий), но не будет ли это проще:

library(quantmod)
ticker_symbol <- c("zzzz","IVW","JKE","QQQ","SPYG","VUG" )
sDate <- as.Date("2007-09-04") #Start Date
eDate <- as.Date("2014-09-02") #End   Date

get.symbol <- function(ticker) {  
  tryCatch(temp <- Ad(getSymbols(ticker, auto.assign=FALSE, 
                                 from = sDate, to = eDate, warning = FALSE)),    
           error = function(e) {
             message("-ERROR-")
             message(paste("Error for ticker symbol  :", ticker, "\n"))
             message("Here's the original error message: ")
             message(e)
             message("")
             return(NULL)},
           finally = {
             message(paste("Data was processed for symbol:", "[", ticker, "]" ))
             message("\n","******************************************", "\n")  
           }) 
}
result <- do.call(cbind,lapply(ticker_symbol,get.symbol))
names(result) <- gsub("\\..+","",names(result))  # remove ".Adjusted" from names
head(result)
#              IVW   JKE   QQQ  SPYG   VUG
# 2007-09-04 61.71 65.37 46.56 52.42 57.36
# 2007-09-05 61.37 64.78 46.10 51.95 56.85
# 2007-09-06 61.47 65.13 46.06 52.18 57.13
# 2007-09-07 60.58 64.06 45.21 51.29 56.31
# 2007-09-10 60.36 64.13 45.18 51.24 56.12
# 2007-09-11 61.19 65.03 45.86 51.90 56.89

Это использует преимущества auto.assign=... аргумент getSymbols(...) чтобы избежать всей этой настройки среды и накопления временных результатов в списке.