如何导入已失效的白宫FY2017预算数据集至R语言？

一、直接导入Wayback Machine存档的CSV数据 #

你可以直接用read.csv()读取存档链接，注意保留原始列名并处理带逗号的数值格式：

# 存档链接
url <- "https://web.archive.org/web/20160705194932/https://www.whitehouse.gov/sites/default/files/omb/budget/fy2017/assets/outlays.csv"
# 读取数据，check.names=FALSE避免年份列名被自动修改
outlays <- read.csv(url, stringsAsFactors = FALSE, check.names = FALSE)
# 处理带逗号的数值（如"26,946"），转换为数值型
year_columns <- colnames(outlays)[13:ncol(outlays)]
outlays[year_columns] <- lapply(outlays[year_columns], function(x) as.numeric(gsub(",", "", x)))

如果在线读取不稳定，可手动下载存档CSV到本地，再通过本地路径读取：

outlays <- read.csv("本地文件路径/outlays.csv", stringsAsFactors = FALSE, check.names = FALSE)
# 重复上述数值转换步骤
year_columns <- colnames(outlays)[13:ncol(outlays)]
outlays[year_columns] <- lapply(outlays[year_columns], function(x) as.numeric(gsub(",", "", x)))

二、替代数据源获取渠道 #

• 美国OMB官方存档：管理与预算办公室（OMB）官网保留历史财年预算数据，可查找FY2017对应支出数据集。
• 美国财政部数据平台：财政部公开数据门户收录联邦支出明细，可按机构、年份筛选匹配数据。
• Data.gov公开数据平台：搜索关键词"FY2017 federal outlays"，可获取同类型CSV/JSON格式数据集。

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