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包对那句话中的数字进行提取