,可以通过以下步骤实现:
quantmod
和alphavantager
包:install.packages("quantmod")
install.packages("alphavantager")
library(quantmod)
library(alphavantager)
av_api_key("YOUR_API_KEY")
sp100_data <- data.frame()
sp100 <- c("AAPL", "MSFT", "AMZN", "GOOGL", "FB", "JPM", "JNJ", "V", "PG", "UNH", "HD", "MA", "NVDA", "PYPL", "DIS", "BAC", "INTC", "VZ", "T", "CMCSA", "PFE", "KO", "NFLX", "ADBE", "XOM", "CSCO", "TMO", "PEP", "ABT", "ABBV", "CRM", "WMT", "MRK", "AVGO", "NKE", "CVX", "MCD", "MDT", "ORCL", "QCOM", "IBM", "AMGN", "TXN", "HON", "COST", "DHR", "PM", "NEE", "UNP", "LIN", "ACN", "LLY", "LOW", "UPS", "SBUX", "AMAT", "BA", "CAT", "LMT", "RTX", "AMD", "GS", "CHTR", "NOW", "MMM", "TGT", "AXP", "INTU", "BKNG", "CVS", "ISRG", "ANTM", "ZTS", "CI", "SYK", "TJX", "MDLZ", "BDX", "FIS", "TFC", "ADP", "PLD", "CME", "DUK", "CCI", "SO", "USB", "SPGI", "ICE", "VRTX", "TMUS", "APD", "CL", "MS", "BDX", "FIS", "TFC", "ADP", "PLD", "CME", "DUK", "CCI", "SO", "USB", "SPGI", "ICE", "VRTX", "TMUS", "APD", "CL", "MS")
for (symbol in sp100) {
# 获取股票历史数据
data <- av_get(symbol = symbol, av_fun = "TIME_SERIES_DAILY_ADJUSTED")
# 提取收盘价数据
close_price <- data$adjusted_close
# 将数据添加到结果数据框中
sp100_data <- cbind(sp100_data, close_price)
}
# 设置列名为股票代码
colnames(sp100_data) <- sp100
以上代码将循环遍历SP100指数的股票代码,并使用Alphavantage的API获取每个股票的历史数据,并将收盘价数据存储在一个数据框中。
请注意,这只是一个示例代码,实际使用中可能需要根据具体需求进行修改和优化。另外,Alphavantage的免费API每分钟只能请求5次,如果需要更频繁的数据获取,可以考虑购买其付费版API。
推荐的腾讯云相关产品:腾讯云云服务器(https://cloud.tencent.com/product/cvm)和腾讯云数据库(https://cloud.tencent.com/product/cdb)可以提供稳定的云计算基础设施和数据库服务,以支持R语言开发和数据存储的需求。
领取专属 10元无门槛券
手把手带您无忧上云