如何使用 Quantmod 仅提取收盘价答案

【问题标题】：How to extract only closing prices with Quantmod如何使用 Quantmod 仅提取收盘价
【发布时间】：2021-10-04 22:21:26
【问题描述】：

我是 quantmod 的新手

我正在使用 quantmod 提取股票价格，但是，我想将提取限制为仅收盘价。我想知道是否有办法代替下载所有默认列。

这是我正在使用的代码

tickers <- c("1COV.DE","ADS.DE","ALV.DE","BAS.DE")
from <- "2014-10-01"
to = "2021-07-29"

getSymbols(tickers,
           src = "yahoo",
           from = from,
           to = to,
           adjust = TRUE,
           periodicity = "daily")

【问题讨论】：

标签： r quantmod algorithmic-trading trading

【解决方案1】：

你可以用这个模式来做：

tickers <- c("1COV.DE", "ADS.DE", "ALV.DE", "BAS.DE")

# Store all data in a new environment
e <- new.env()
getSymbols(tickers, from = "2014-10-01", adjust = TRUE, env = e)

# Combine close prices
prices <- do.call(merge, lapply(e, Cl))
# remove leading "X" created by make.names()
colnames(prices) <- gsub("^X", "", colnames(prices))
# remove ".Close" suffix
colnames(prices) <- gsub(".Close", "", colnames(prices), fixed = TRUE)
# reorder columns to match 'tickers'
prices <- prices[, tickers]

【讨论】：

【解决方案2】：

一种方法是使用 tidyquant 库并将所有四只股票放在一个数据框中。然后你可以按符号分组。这样，您就不会遇到符号长度不同的问题。

library(tidyquant)

tickers <- c("1COV.DE","ADS.DE","ALV.DE","BAS.DE")
from <- "2014-10-01"
to = "2021-07-29"

closed <- tq_get(tickers, 
       from = from, 
       to = to) %>%
  select(symbol, date, close) %>% 
  arrange(date)

【讨论】：

不完全是我想要的方法，但这节省了我的时间，从这里我可以将数据更改为宽并再次将其转换为 xts。这大大简化了我的工作。非常感谢，为你点赞