学习R,不知道如何解决这个问题。将列添加到每个Quantmod符号
library(quantmod)
library(xts)
# get market data
Nasdaq100_Symbols <- c("AAPL", "AAL")
getSymbols(Nasdaq100_Symbols)
# merge them together
nasdaq100 <- data.frame(as.xts(merge(AAPL, AAL)))
#tail(nasdaq100[,1:12],2)
#make percent difference column
nasdaq100$PD <- (((nasdaq100$AAPL.High - nasdaq100$AAPL.Open)/nasdaq100$AAPL.Open) * 100)
我想添加一个百分比差异列,但上面的代码将只为AAPL符号(或任何符号使用),而不是为每个符号PD列工作。
您是否必须在与xts合并之前以某种方式添加该列,或者我可以告诉R为新合并框架中的每个符号创建它?
编辑:我做数据的训练,所以我需要的所有符号标题,如:
AAPL.Ope AAPL.High AAPL.Volume AAL.Open AAL.High
1/3/2007 86.29 86.58 309579900 53.89 56.92
1/4/2007 84.05 85.95 211815100 56.3 59.15
1/5/2007 85.77 86.2 208685400 58.83 59.15
我做的数据训练的,所以我希望所有符号在顶部。无法真正弄清楚qmao是如何工作的,我只能用它来拉动那个数据字段。 – Alteredorange
@Alteredorange当您希望所有的交易品种位于顶部时,我认为您的意思是您希望在数据框的每一栏中显示证券的数据,因此每一行都是使用横截面证券价格数据的预测模型中的一个观察值。我已通过回答进行编辑以显示执行此操作的一种方法。 – FXQuantTrader
这似乎正是我需要的!还有一个问题,是否有任何方法来命名列“symbol.PD”,所以它们将是AAPL.PD和AAL.PD,而不是PD和PD.1。 – Alteredorange