1、在mysql建立資料庫，表

2、網址

貓眼專業版：http://piaofang.maoyan.com/dashboard

電影票房資料鏈接：https://box.maoyan.com/promovie/api/box/second.json

3、指令碼

library(xml2)
library(rvest)
movieData<-read_html('https://box.maoyan.com/promovie/api/box/second.json')
content<-movieData %>% html_nodes('p') %>% html_text()
library(RMySQL)
library(DBI)
library('jsonlite')
result<-fromJSON(content)
movieName<-result$data$list$movieName
boxInfo<-result$data$list$boxInfo
avgPeople<-result$data$list$avgShowView
insertData<-data.frame(movieName,boxInfo,avgPeople)
newData<-transform(insertData,time=result$data$'updateInfo')
conn <- dbConnect(MySQL(), dbname = "maoyan1", username="root", password="root", host="192.168.193.128", port=3306)

dbWriteTable(conn, "movie",newData,append=T,row.names=F)

4、可以將該文字複製，替換上一遍部落格中的test.R指令碼，重新建立定時任務，即可（當時我以為將test.R中的程式碼複製貼上就行了，結果發現之前定時執行test.R指令碼的定時任務不執行了，所以重新建立了定時任務就可以了）

上一篇部落格地址：https://blog.csdn.net/qq_15058425/article/details/80739067

這樣就可以定時爬取資料，將資料儲存到資料庫中，不過windows的時間間隔最小是5分鐘，不知道是不是還可以設定更小，暫時沒有找到設定方法，如果還想設定更小的間隔時間抓取資料，我考慮將R安裝在Linux上，利用crontab