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")
}

原文链接：https://blog.csdn.net/weixin_46579654/article/details/124725696