用R语言，怎么抓取如图位置数字？新手入门，求详细代码~

已解决，谢谢审核、版主、及解题的各位会员！

1. library(rvest)
   
2. library(dplyr)
   
3. 
   
4. keyword <- c('大国崛起','资本的故事')
   
5. 
   
6. keyword_num <- function(keyword){
   
7.   baidu_url <- paste0('http://www.baidu.com/s?wd=',keyword)
   
8.   web <- read_html(baidu_url,encoding="UTF-8")
   
9.   text_res <- web %>% html_nodes("div.head_nums_cont_outer.OP_LOG > div > div.nums") %>% html_text()
   
10.   res <- gsub('[^0-9]','',text_res) %>% as.integer()
    
11.   return(res)
    
12. }
    
13. 
    
14. for(i in 1:length(keyword)){
    
15.   df[i] <- keyword_num(keyword[i])
    
16. }
    
17. 
    
18. df_res <- data.frame(keyword=keyword,num=df)

复制代码

library(rvest)
web<-read_html("http://www.baidu.com/s?wd=大国崛起",encoding="UTF-8")
position<-web %>% html_nodes(".nums") %>% html_text()

用rvest，这么可以抓取那一句话下来，
怎么把这句话中的数据提取出来？
然后怎么将提取出的数据写入Excel？
如果，同一时间多提取几个数据，怎么依次写入同一个Excel文件？

可以用stringr包中的str_extract()去提取数字。
用xlsx包中的write.xlsx()将你的数字写入excel文件中。

软件包XML，可以对网页数据进行爬虫，然后用stringr包对那句话中的数字进行提取