【我初学R时遇到的十个错误问题】
学习R中遇到的10个错误问题
错误案例 1
> load("gse73614.RData")
Error in load("gse73614.RData") :
ReadItem: unknown type 189, perhaps written by later version of R ````
解决方案
错误原因：R需要更高版本才能运行“load”，
但是经检查确认是最新版，且打开工作目录发现文件在工作目录下，再次更新R与RStudio，
发现错误同样未解决，通过RStudio打开我的工作目录发现未找到文件，所以得出的结果是
文件在我的工作目录下已近损坏，RStudio无法打开，报错，重新替换为新文件后，错误解决
错误案例 2
tf<-tempexp&tempgpl #tempexp与tempgpl为一个向量
f1<-function(t1,t2)
{
for(i in 1:length(tempexp))
{
x<-grep(t[i],t2) #得到逻辑值放到x向量中
}
for(i in 1:l) #求t1在t2中的个数
{
ifelse(x[i]=="TRUE",1,0)
}
return(sum(x))
}
f1(tempexp,tempgpl)
运行后显示结果
Error in (function (cond) :
在为'grep'函数选择方法时评估'pattern'参数出了错: object of type 'closure' is not subsettable
解决方案
错误原因：grep()参数pattern出错了，查询的grep()使用方法如下：
grep(pattern, x, ignore.case = FALSE, perl = FALSE, value = FALSE,
fixed = FALSE, useBytes = FALSE, invert = FALSE)
pattern为单个字符，不可以为向量
错误案例 3
f<-C(1:10,5:150)
f1<-factor(f)
运行后显示结果
> f<-C(1:10,5:150)
Error in C(1:10, 5:150) : 不能把对象解释成因子
解决方案
错误原因是：定义向量 f时，使用了大写的 c，导致报错
方案：改为小写后则正确
错误案列 4
x3<-grep(tempexp,tempgpl) #tempexp与tempgpl为长度相同，内容类型相同的向量，内容为字符型
运行后显示结果
Warning message:
In grep(tempexp, tempgpl) :
argument 'pattern' has length > 1 and only the first element will be used
解决方案
错误原因是：pattern只能是一个元素
方案：应使用for()函数，一个一个提取tempexp一个一个对比，如下：
f<-function(x)
{
for(i in 1:length(tempexp))
{
x3[i]<-c(grep(tempexp[i],tempgpl),i)
}
return(x3)
}
错误案例 5
stewd("F://R.cx")
运行后显示结果
Error in stewd("F://R.cx") : could not find function "stewd"
解决方案
错误原因：stewd未找到
方案：写错了，重新拼写
错误案例 6
load("GSE73614.Rdata")
运行后显示的结果
Error in readChar(con, 5L, useBytes = TRUE) : cannot open the connection
In addition: Warning message:
In readChar(con, 5L, useBytes = TRUE) :
cannot open compressed file 'GSE73614.Rdata', probable reason 'No such file or directory'
解决方案
错误原因：数据包"GSE73614.Rata未找到，可能是不在工作目录下
方案：更改数据包的位置，使用一下函数改到工作目录下
stewd("工作目录全路径") #注意斜杠为双数
错误案例 7
install.packages(ggplot2)
运行后显示的结果
Error in install.packages : object 'ggplot2' not found
解决方案
错误原因：ggplot2未找到。
方案：加上双引号，如下：
install.packages("ggplto2")
错误案例 8
i<-2
S<-sprintf(“the square of %d is %d”,i,i^2)
运行后显示的结果
Error: unexpected input in "S<-sprint(“"
解决方案
错误原因：未识别到引号内容是啥，反复确认后观察出使用了中文引号
方案：改为英文引号，如下：
S<-sprintf("the square of %d is %d",i,i^2)
错误案例 9
x<-sample(c(0,1),100,T) #随机0，1生成100个
F<-function(X,k) #向量X中连续k个0或者1的位置
{
L<-length(X)
Site0<-NULL
Site1<-NULL
for (i in 1:(L-k+1))
{
if(all(X[i:(i+k-1)]==0))
{
Site0<-c(Site0,i) #有k个0的位置
}
}
for (i in 1:(L-k+1))
{
if(all(X[i:(i+k-1)]==1))
{
Site1<-c(Site1,i) #有k个1的位置
}
}
return(Site0,Site1) #返回连续有k个0与1的位置
}
F(x,3)
运行后显示的结果
Error in return(Site0, Site1) : multi-argument returns are not permitted
解决方案
错误原因：此操作下return不可多参数返回
方案：使用向量返回参数，如下：
return(c(Site0,Site1))
错误案例 10
f<-function()
{
s<-NULL
l<-length(x)
for(i in 1:l)
{
ifelse(x[i]=="TRUE",1,0)
}
return(sum(x))
}
f(tf)
运行后显示的结果
Error in f(tf) : unused argument (tf)
解决方案
错误原因：tf使用错误，发现function后括号内无参数，应加一个参数x
f<-function(x){...}