用R语言高效下载图片

作者：刘小芬，R语言中文社区专栏作者。知乎专栏：https://www.zhihu.com/people/liu-xiao-fen-10/columns

有时候无法避免需要上网下载一些图片，一开始都是复制-粘贴，或者是右键另存为，不仅效率低，而且单纯手工操作，容易遗漏。于是，就想到曾经用R语言爬取网站表格数据，思考是不是可以用R语言下载图片呢？

参考杜雨的文章进行自己的实践操作。选择的网站是 http://www.uisdc.com/22-stunning-free-photos-websites，这是PPT大神阿文推荐的下载高清图片的网址，想着既然要操作，就选择自己需要的图片吧~

具体代码：

install.packages("downloader")
library(rvest)
library(downloader)
library(dplyr)

由于downloader不属于R中的基础包，所以在运用之前需要下载安装包，其余几个在之前练习中已经安装好了。

接着随机选取一张图片，右键选择“检查”，在网页右侧会出现一个网页结构信息，同时定位到这张图片所在的位置，如图所示：

其中，“img”是指图片，“str”是指图片的地址。

而我们是需要下载全部的图片，所以还需要查看整体的网页结果，也就是说找出img所在的分区结构，我的查找方法就是不断的往上找，例如顺着前面的三角符号往上查找它的上一级，就是img所在的分区结构“div”，如图所示：

于是，写入代码：

url <- 'http://www.uisdc.com/22-stunning-free-photos-websites'
picture<- read_html(url)%>% html_nodes("div.entry-content")%>%html_nodes("img")%>%html_attr("src")

代码中“%>%”表示将左边赋值为右边，“url”是图片所在的网址，“div.entry-content”图片所在的分区结构位置，“img”意味着选择了图片信息，“src”是图片所在的地址。

查看前面十个图片地址信息：

> head(picture,10)
 [1] "http://image.uisdc.com/wp-content/uploads/2015/04/22-stunning-free-photos-websites-1.jpg"
 [2] "http://image.uisdc.com/wp-content/uploads/2015/04/fancycrave.jpg"                          [3] "http://image.uisdc.com/wp-content/uploads/2015/04/madeinmoments.png"                     
 [4] "http://image.uisdc.com/wp-content/uploads/2015/04/realistic-shots-photo.jpg"             
 [5] "http://image.uisdc.com/wp-content/uploads/2015/04/snapographic.jpg"                      
 [6] "http://image.uisdc.com/wp-content/uploads/2015/04/designerspics.jpg"                     
 [7] "http://image.uisdc.com/wp-content/uploads/2015/04/goodstockphotos.jpg"                   
 [8] "http://image.uisdc.com/wp-content/uploads/2015/04/stokpic.jpg"                           
 [9] "http://image.uisdc.com/wp-content/uploads/2015/04/freenaturestock.jpg"                   
[10] "http://image.uisdc.com/wp-content/uploads/2015/04/freemagebank.jpg"                      
> 

最后，利用for循环语句和downloader包下载图片：

for(i in 1:length(picture)) 
{
  download(picture[i],paste("F:/数据可视化/Image/picture",i,".jpg",sep = ""), mode = "wb")
} 

最后的成果：

补充一点，有时候用如下代码会爬取到一些无法的网址信息，也就是说不是我们需要的网址。

url <- 'http://www.uisdc.com/22-stunning-free-photos-websites'
picture<- read_html(url)%>% html_nodes("div.entry-content")%>%html_nodes("img")%>%html_attr("src")

这个时候我们可以用“stringr”这个包进行筛选所需的网址，例如：

right = "https"
picture<-grep(right, picture,value=TRUE)

公众号后台回复关键字即可学习

回复 R               R语言快速入门免费视频 
回复 统计          统计方法及其在R中的实现
回复 用户画像   民生银行客户画像搭建与应用 
回复 大数据      大数据系列免费视频教程
回复 可视化      利用R语言做数据可视化
回复 数据挖掘   数据挖掘算法原理解释与应用
回复 机器学习   R&Python机器学习入门