如何将Inc.com 2022年Inc5000数据导出至Excel？

无需代码的简易操作法 #

• 打开Chrome或Edge浏览器，访问目标页面
• 按下F12打开开发者工具，切换到「Network」标签页
• 在搜索框输入i5list，刷新页面后，找到名称包含i5list/2022的JSON类型请求
• 点击该请求，切换到「Response」标签，全选并复制所有内容
• 打开记事本，粘贴内容后保存为inc2022.json（注意将文件后缀从.txt改为.json）
• 打开Excel，点击「数据」选项卡→「获取数据」→「来自文件」→「来自JSON」，选择刚才保存的inc2022.json
• 在弹出的Power Query编辑器中，找到companies列，点击列名旁的展开按钮（双向箭头），展开所有字段
• 若需筛选Software行业，点击industry列的筛选按钮，选择「Software」即可
• 最后点击「关闭并上载」，数据就会导入Excel工作表

修正后的R代码方案（适配分页接口） #

原接口采用分页返回数据，每页仅98条，因此需要循环获取所有页面：

library(tidyverse)
library(jsonlite)

# 初始化空数据框存储所有公司数据
all_companies <- tibble()

# 循环获取全部52页数据（5000/98≈52）
for(page in 1:52) {
  # 构造分页请求地址
  api_url <- paste0("https://api.inc.com/rest/i5list/2022?page=", page)
  # 获取当前页数据并整理
  page_data <- fromJSON(api_url)$companies %>% bind_rows()
  # 合并到总数据框
  all_companies <- bind_rows(all_companies, page_data)
}

# 筛选Software行业（不需要可删除此行）
software_companies <- all_companies %>% filter(industry == "Software")

# 导出为CSV文件（Excel可直接打开）
write_csv(software_companies, "inc5000_2022_software.csv")

操作步骤：

• 打开RStudio，若未安装依赖包，在控制台输入install.packages(c("tidyverse", "jsonlite"))并回车安装
• 将上述代码复制到脚本窗口，点击运行按钮
• 运行完成后，工作目录下会生成目标CSV文件，直接用Excel打开即可

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