【从网上批量下载图片】

从网上批量下载图片【R语言】

最近需要从国家统计局网站上下载一批统计年报数据，打开网址发现数据均是以图片形式存放，那么该如何批量获取呢，几行代码搞定。

首先打开网页中国统计年鉴，点击左侧任意目录，单击右键审查元素，会在右侧栏中显示该数据图片的链接地址，通过观察发现链接地址有一定排列规律可寻：
依据规律写个循环下载图片，代码如下：

setwd("f://test")
library(stringr)
for(i in 1:9){##下载9张图片到本地test文件###
  url<-str_c("http://www.stats.gov.cn/tjsj/ndsj/2021/html/C22-0",i,".jpg")
download.file(url,destfile=paste0("heath",i,".jpg"),mode="wb")
}

结果如下：