R - 使用列表中的名称将命名对象提供给循环？

Question

我有一个包含大约 90 个金融符号的数据框（为简单起见，将使用 3 个）

> View(syM)     
  symbol
1 APPL
2 YAHOO
3 IBM

我创建了一个函数，用于获取这些符号的 JSON 数据并生成输出。基本上：

nX  <- function(x) {
  #get data for "x", format it, and store it in "nX"
  nX <- x
  return(nX)
}

我使用循环来获取数据并相应地存储以每个符号命名的动物园系列。

for (i in 1:nrow(syM)) {
  assign(x = paste0(syM[i,]), 
  value = nX(x = syM[i,]))
  Sys.sleep(time = 1)
}

结果：

[1] "APPL"          "YAHOO"         "IBM" 

每个都是一个包含 5 列数据的动物园系列。

此外，我想对每个系列进行一些绘图并输出结果，最好使用 for 循环或更好的方法。

yN  <- function(y) {
  #plot "y" series, columns 2 and 3, and store it in "yN"
  yN <- y[,2:3]
  return(yN)
}

遵循与我之前尝试的循环类似的逻辑：

for (i in 1:nrow(syM)) {
  assign(x = paste0(pairS[i,],".plot"),
  value = yN(y = paste0(syM[i,])))
}

但是到目前为止数据并没有被发送到函数，只有符号的名称，所以我自然得到：

y[,2:3] : incorrect number of dimensions

我也试过了：

for (i in 1:nrow(syM)) {
  assign(x = paste0(syM[i,],".plot"),
  value = yN(y = ls(pattern = paste0(syM[i,]))))
}

结果相似。当我手动输入系列名称时，它会将第一个符号的图保存为“APPL.Plot”。

assign(paste0(syM[1,], ".Plot"),
       value = yN(p = APPL))

Answer 1

考虑使用lapply 和setNames 创建一个nX 个返回对象的命名列表：

nX_list <- setNames(lapply(syM$symbol, nX), syM$symbol)

# OUTPUT ZOO OBJECTS BY NAMED INDEX
nX_list$AAPL
nX_list$YAHOO
nX_list$IBM

# CREATE SEPARATE OBJECTS FROM LIST 
# BUT NO NEED TO FLOOD GLOBAL ENVIR W/ 90 OBJECTS, JUST USE 1 LIST
list2env(nX_list, envir=.GlobalEnv)

对于绘图函数，首先在函数内部添加一个get 以通过其字符串名称检索对象，然后类似地运行lapply 和setNames：

yN  <- function(y) {
  #plot "y" series, columns 2 and 3, and store it in "yN"  
  yobj <- get(nX_list[[y]])     # IF USING ABOVE LIST
  yobj <- get(y)                # IF USING SEPARATE OBJECT

  yN <- yobj[,2:3]
  return(yN)
}

plot_list <- setNames(lapply(syM$symbol, yN), paste0(syM$symbol, ".plot"))

# OUTPUT PLOTS BY NAMED INDEX
plot_list$AAPL.plot
plot_list$YAHOO.plot
plot_list$IBM.plot

# CREATE SEPARATE OBJECTS FROM LIST 
# BUT NO NEED TO FLOOD GLOBAL ENVIR W/ 90 OBJECTS, JUST USE 1 LIST
list2env(plot_list, envir=.GlobalEnv)

Answer 2

正如您所注意到的，您在调用 yN 时带有一个字符参数：

for (i in 1:nrow(syM)) {
  assign(x = paste0(pairS[i,],".plot"),
  value = yN(y = paste0(syM[i,])))
}

paste0(syM[i,]) 将解析为一个角色，而不是您尝试引用的 zoo 对象。相反，请使用类似get():

for (i in 1:nrow(syM)) {
  assign(x = paste0(pairS[i,],".plot"),
  value = yN(y = get(paste0(syM[i,]))))
}

或者，也许首先将您的动物园对象存储在一个列表中，然后使用lapply()...之类的东西对列表的所有元素进行操作...