从品牌网站建设到网络营销策划,从策略到执行的一站式服务
R语言怎样抓取某网站JSON数据的代码,针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。
站在用户的角度思考问题,与客户深入沟通,找到信宜网站设计与信宜网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站建设、网站制作、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖信宜地区。R语言抓取某网站JSON数据的代码如下:
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")
关于R语言怎样抓取某网站JSON数据的代码问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注创新互联-成都网站建设公司行业资讯频道了解更多相关知识。