如何解决如何使用 Quantmod 仅提取收盘价
我是 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")
解决方法
一种方法是使用 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)
,
你可以用这个模式来做到:
tickers <- c("1COV.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]
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。