R語言怎樣抓取某網(wǎng)站JSON數(shù)據(jù)的代碼

R語言怎樣抓取某網(wǎng)站JSON數(shù)據(jù)的代碼，針對這個問題，這篇文章詳細(xì)介紹了相對應(yīng)的分析和解答，希望可以幫助更多想解決這個問題的小伙伴找到更簡單易行的方法。

為湘橋等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及湘橋網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站建設(shè)、做網(wǎng)站、湘橋網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

R語言抓取某網(wǎng)站JSON數(shù)據(jù)的代碼如下：

library(RCurl)
library(bitops)
library(jsonlite)
url<-"http://www.***.com/content/list"
x=1
for( x in 1:55643){
        web[[x]]<-fromJSON(postForm(url,page=x,category=-1,.opts=curlOptions(url=url,ssl.verifyhost=FALSE,ssl.verifypeer=FALSE)))
}
title<-as.character(sapply(web,function(x) x$data$contentBeans$title)) 
category<-as.character(sapply(web,function(x) x$data$contentBeans$category))
time<-as.character(sapply(web,function(x) x$data$contentBeans$time))
name<-as.character(sapply(web,function(x) x$data$contentBeans$name))
avatar<-as.character(sapply(web,function(x) x$data$contentBeans$avatar))
readCount<-as.character(sapply(web,function(x) x$data$contentBeans$readCount))
get_data<-data.frame(title,name,category,time,readCount,avatar)
write.csv(get_data,"~/Desktop/data2.csv")

關(guān)于R語言怎樣抓取某網(wǎng)站JSON數(shù)據(jù)的代碼問題的解答就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道了解更多相關(guān)知識。

分享名稱：R語言怎樣抓取某網(wǎng)站JSON數(shù)據(jù)的代碼
分享網(wǎng)址：http://m.jiaotiyi.com/article/jcpddj.html