在R中下载西班牙文本文件：RGAP包fetchAmecoData函数失效求助

如果RGAP::fetchAmecoData突然失效，大概率是AMECO官网的接口或文件链接发生了变更，而包未及时更新适配。这里提供两种可靠的替代方案：

方案一：手动下载后读取 #

1. 打开你提供的AMECO年度数据集页面，找到对应西班牙的文本数据集（或完整年度数据集文件）并下载到本地
2. 在R中使用基础读取函数加载文件，示例代码：

# 根据实际文件名和分隔符调整参数
spain_ameco <- read.table("your_downloaded_file.txt", 
                          header = TRUE, 
                          sep = "\t", # 若文件是逗号分隔则改为sep = ","
                          stringsAsFactors = FALSE,
                          fileEncoding = "UTF-8")
# 筛选西班牙数据（部分AMECO文件用"CN"代表国家代码，西班牙代码为"ES"）
spain_data <- subset(spain_ameco, CN == "ES")

方案二：用R自动下载并筛选 #

通过httr和rvest包自动获取下载链接并加载数据，无需手动操作：

# 安装依赖包（首次运行需要）
if (!require(httr)) install.packages("httr")
if (!require(rvest)) install.packages("rvest")

library(httr)
library(rvest)

# 获取AMECO下载页面的文件链接
page <- GET("https://economy-finance.ec.europa.eu/economic-research-and-databases/economic-databases/ameco-database/download-annual-data-set-macro-economic-database-ameco_en") %>%
  read_html()

# 提取文本格式的数据集下载链接
download_link <- page %>%
  html_nodes("a[href$='.txt']") %>% # 定位txt格式文件链接
  html_attr("href") %>%
  # 补全相对链接为完整URL
  {if (grepl("^/", .)) paste0("https://economy-finance.ec.europa.eu", .) else .}

# 下载并读取文件
temp_file <- tempfile(fileext = ".txt")
GET(download_link, write_disk(temp_file, overwrite = TRUE))

full_ameco_data <- read.table(temp_file, 
                              header = TRUE, 
                              sep = "\t", 
                              stringsAsFactors = FALSE,
                              fileEncoding = "UTF-8")

# 筛选西班牙数据（国家代码ES）
spain_data <- subset(full_ameco_data, CN == "ES")

注意：如果AMECO页面的链接结构或文件格式有变化，可能需要调整html_nodes中的选择器，或者修改读取函数的参数（比如分隔符、列名）。

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