Удалить столбцы из объектов XTS и объединить

Question

Мне нужны скорректированные цены закрытия из всех акций S & P500 в один объект xts.

getSymbols("AAPL;AMZN;...")

Я знаю, как сделать это отдельно

AAPL <- AAPL[,6]
AMZN <- AMZN[,6]

, но делать это 500 раз было бы слишкоммного.

Наконец, я хотел бы объединить их Также я хотел бы объединить их.Как то так

S&P <- AAPL;AMZN

Answer 1

Используйте environment для распределения акций, затем вы можете извлечь то, что вы хотите.Ad лучше, если вам нужен настроенный столбец.

e <- new.env()
stks <- "AAPL;AMZN;IBM;MSFT;GOOG;TSLA"
getSymbols(stks, env = e)

sp=eapply(env = e,Ad)
spf=do.call("merge",sp)
tail(spf)

# > tail(spf)
#                TSLA.Adjusted AAPL.Adjusted IBM.Adjusted GOOG.Adjusted AMZN.Adjusted MSFT.Adjusted
# 2019-05-31        185.16        175.07       126.99       1103.63       1775.07        123.68
# 2019-06-03        178.97        173.30       128.27       1036.23       1692.69        119.84
# 2019-06-04        193.60        179.64       132.69       1053.05       1729.56        123.16
# 2019-06-05        196.59        182.54       131.49       1042.22       1738.50        125.83
# 2019-06-06        205.95        185.22       132.22       1044.34       1754.36        127.82
# 2019-06-07        204.50        190.15       133.31       1066.04       1804.03        131.40