使用quantmod的getSymbols调用FRED数据源失效问题求助

• 更新相关包到最新版本
  旧版本的quantmod或其依赖包可能存在FRED接口的URL处理bug，运行以下命令更新：

  update.packages(c("quantmod", "xts", "zoo", "curl"), ask = FALSE)
  

• 手动指定FRED的API URL
  尝试覆盖默认的FRED请求URL，避免URL解析错误：

  library(quantmod)
  options(getSymbols.FRED.url = "https://fred.stlouisfed.org/graph/fredgraph.csv")
  getSymbols('CPIAUCNS', src='FRED')
  

• 检查并配置网络代理
  若处于代理环境，需为R设置正确的代理；若无需代理，清空相关环境变量：

  # 设置代理（替换为实际代理地址）
  Sys.setenv(https_proxy = "http://proxy.example.com:8080")
  # 或清空代理设置
  Sys.unsetenv("https_proxy")
  Sys.unsetenv("http_proxy")
  

• 测试网络连通性
  用curl包验证能否正常访问FRED服务器：

  library(curl)
  resp <- curl_fetch_memory("https://fred.stlouisfed.org/series/CPIAUCNS")
  print(resp$status_code) # 返回200表示正常连通
  

  若返回非200状态码，需排查防火墙、DNS或网络环境问题。

• 直接通过CSV接口获取数据
  如果quantmod的接口仍无法使用，可绕过它直接读取FRED的CSV数据：

  # 读取原始CSV数据
  cpi_raw <- read.csv("https://fred.stlouisfed.org/graph/fredgraph.csv?id=CPIAUCNS")
  # 转换为xts格式（兼容quantmod的分析流程）
  library(xts)
  cpi_data <- xts(cpi_raw$CPIAUCNS, as.Date(cpi_raw$DATE))
  

内容的提问来源于stack exchange，提问作者James Picerno