用 R 中的 getSymbols 数据替换排列列表答案

【问题标题】：Replace list of permutations with getSymbols data in R用 R 中的 getSymbols 数据替换排列列表
【发布时间】：2015-06-15 16:44:58
【问题描述】：

我下载了一些股票数据：

require("quantmod")
s <- c("AAPL", "ADBE", "ADI", "ADP", "ADSK") 
e <- new.env()
getSymbols(s, src='yahoo',  from='2015-01-10',  env = e )

#get closing prices
close <- do.call(merge, eapply(e, function(x) Cl(x)))

我找到了所有的符号名称对：

#find all the pairwise permutations
perm<-combn(s,2)
perm
[,1]   [,2]   [,3]   [,4]   [,5]   [,6]   [,7]   [,8]  [,9]   [,10] 
[1,] "AAPL" "AAPL" "AAPL" "AAPL" "ADBE" "ADBE" "ADBE" "ADI" "ADI"  "ADP" 
[2,] "ADBE" "ADI"  "ADP"  "ADSK" "ADI"  "ADP"  "ADSK" "ADP" "ADSK" "ADSK"

我想获取每个名称的“关闭”数据并替换每个“perm”对组，以便以后能够分析这些对。

【问题讨论】：

为什么这个 q 被否决，以便我下次更好地问这个问题？
我不是投反对票的人，但我会说投反对票的一个可能原因是您要求重新调整数据，但您没有说明您希望如何调整数据 -最后一句没有具体说明您希望如何存储数据。您的问题可以通过展示您希望如何存储它的小示例来改进，也许可以通过手动组合其中一对。
感谢您的帮助

标签： r time-series permutation quantmod

【解决方案1】：

如果您想获取数据帧列表，每对一个，您可以尝试：

dfs <- lapply(seq_len(ncol(perm)), function(x) close[,paste0(perm[,x], ".Close")])

现在您可以使用dfs[[1]]、dfs[[2]] 等获取每对的 2 列数据帧。您可以使用lapply 函数对每对进行统计分析。这是一个简单的示例，您可以从中获取每个配对数据框的摘要：

lapply(dfs, summary)

【讨论】：