在R中使用Alphavantage的SP100循环

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