R语言代码运行出错如何解决

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

[color=var(--weui-LINK)][url=]Stata连享会公众号7月27日分享了一篇文章：[/url]
我娃 666 分，能去哪？列一份娃娃能去的大学名单按照微信公众号作者所给代码运行，作为填报高考志愿的参考，以下是代码
master_web = 'https://gaokao.baidu.com/gaokao/gkschool/scoreenroll?ajax=1&'
library(curl)
install.packages('curl')
library(jsonlite)
install.packages('jsonlite')
##定义函数
score_fun <- function(query,province,curriculum,batchName){
firstp = curl_escape(query)
secondp = curl_escape(province)
thirdp = curl_escape(curriculum)
fourthp = curl_escape(batchName)
url = paste(master_web,'query=',firstp,'&province=',secondp,'&curriculum=',thirdp,'&batchName=',fourthp,sep="")
web = readLines(url,encoding="UTF-8", warn=F)
rating <- fromJSON(web)
flag = rating$msg
if (flag=="没有符合条件的数据"){
       print("Not OK")
     }else{
data1 = rating$data$minScoreOrder
if (is.null(data1)==T) {
print("No")
}else{
pos = lapply(data1$value,function(x) x$value[1])
record = data.frame(school=query, year = data1$key,score=unlist(pos))
}
}
}
##省份循环
setwd("D:\\school_choose") #设置工作路径
#考生相关信息
curriculum="理科" #根据考生实际情况修改：文科或理科
batchName="本科一批" #根据考生实际情况修改：本科一批或本科二批
province = "湖南" #根据考生实际情况修改：考生所在省份

files = list.files(pattern=".csv")
for (i in 1:length(files)){ #省份循环
filename1 = substr(files,1,nchar(files)-4)
filename = paste("D:\\school_choose\\result\\",filename1,"_run",".csv",sep="")
listresult = list()
dataf = read.csv(files,stringsAsFactors = F)
query = dataf$name
for (j in 1:length(query)){ #省份内学校循环
print(query[j])
listresult[[j]] = score_fun(query[j],province,curriculum,batchName)
}
lresult = Filter(function(x) {is.null(nrow(x))==F}, listresult)
allresult = do.call(rbind,lresult)
write.csv(allresult,file=filename,row.names=F)
print(paste(filename1,"done"))
Sys.sleep(3)
}
setwd("D:\\school_choose\\result")
aim_score = 12466 #根据考生实际情况修改：考生在本省的排名
m_result = list()
files = list.files(pattern=".csv")
for (i in 1:length(files)){
print(i)
file_name1 = substr(files,1,nchar(files)-8)
mydata = try(read.csv(files),silent = T)
if (length(names(mydata))<=1) {
     print("Not qualified")
}else{
#subdata = subset(mydata,year!="Not qualified")
mydata$diff = suppressWarnings(as.numeric(as.vector(mydata$score))) - aim_score
mydata$p_name = file_name1
m_result[] = subset(mydata,diff > 0)
}
}
mlresult = Filter(function(x) {is.null(nrow(x))==F}, m_result)
m_result1 = do.call(rbind,mlresult)
aim_file = paste("D:\\school_choose\\school\\","f_二批",".csv",sep="")
write.csv(m_result1,file=aim_file,row.names=F)

运行之后的错误
Error in file(file, "rt") : 'description'参数不对

[1] 1
[1] "Not qualified"
[1] 0
[1] "Not qualified"

求教原因

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：运行出错 R语言 Packages Library install R语言代码运行出错如何解决

应该是你的数据的路径放置存在问题，你再核对下是否和推文中的一致。如果还有问题，请邮箱联系 hnstedu@163.com