R - 通过字符调用 xts

Question

假设我们有一个字符列表作为函数的基础，它有一个与结果同名的 xts 对象：

library(zoo)
library(xts)
library(quantmod)

l<-list("AAPL","NKE")

for(i in 1:length(l)){
  getSymbols(l[[i]], src = "yahoo")
  write.zoo(l[[i]], paste(l[[i]],".csv", sep=''), sep = ",")
}

我的代码不起作用，因为 getSymbols 创建了一个 xts 对象（名为 AAPL/NKE）。我的问题是，我无法在 write.zoo 函数中正确调用它们。你能帮帮我吗？

Answer 1

这里，我们需要get获取创建对象的值

for(i in 1:length(l)){
  getSymbols(l[[i]], src = "yahoo")
   write.zoo(get(l[[i]]), paste(l[[i]],".csv", sep=''), sep = ",")
  }

-正在检查

Answer 2

用auto = FALSE调用getSymbols直接获取数据

library(quantmod)

syms <- c("AAPL", "NKE")
for(s in syms) {
  dat <- getSymbols(s, auto = FALSE)
  write.zoo(dat, paste0(s, ".csv"), sep = ",")
}

R - 通过字符调用 xts

R - call xts via character

r

xts

quantmod