如何使用 Quantmod 仅提取收盘价

Question

我是 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")

Answer 1

一种方法是使用 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)

Answer 2

你可以用这个模式来做：

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]

如何使用 Quantmod 仅提取收盘价

How to extract only closing prices with Quantmod

r

quantmod

algorithmic-trading

trading