R语言求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

give.na<-function(x){

for(i in 1:ncol(x)){
if(is.factor(x[,i])==T){
x[is.na(x[,i]),names(x[i])]<-which.max(table(x[,i]))
}
if(is.numeric(x[,i]==T)){
x[is.na(x[,i]),names(x[i])]<-median(x[,i],na.rm=T)
}
}
}
建立函数后。运行这个函数无效，但是直接把list带入for循环有效，但是会警告
警告信息：
1: In Ops.factor(left, right) : ‘-’ 对因子没有意义
2: In Ops.factor(left, right) : ‘-’ 对因子没有意义
3: In Ops.factor(left, right) : ‘-’ 对因子没有意义

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 Give

刚才那个警告信息发错了
警告信息：
1: In `[<-.factor`(`*tmp*`, iseq, value = c(4L, 4L, 4L, 4L, 4L, 4L,  :
  invalid factor level, NA generated
2: In `[<-.factor`(`*tmp*`, iseq, value = c(2L, 2L, 2L, 2L, 2L, 2L,  :
  invalid factor level, NA generated
3: In `[<-.factor`(`*tmp*`, iseq, value = c(1L, 1L, 1L, 1L, 1L, 1L,  :
  invalid factor level, NA generated

这个赋值赋了水平中没有的数值