R语言教程：缺失值处理脚本（2）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

二、操作代码（续）

2、一次性平均数、中位数、众数插补（因字数原因无法放出完整版，需要的同仁可以私聊）

1. #* writed by zhangxinyu from AHMU*#
   
2. 
   
3. #* This r code is used to handle missing datad*#
   
4. 
   
5. junshu=function(data){
   
6. 
   
7. for (i in 1:ncol(data)) {
   
8. 
   
9. data[is.na(data[,i]),i]=mean(data[,i],na.rm=T)
   
10. 
    
11. }
    
12. 
    
13. return(data)
    
14. 
    
15. }
    
16. 
    
17. 
    
18. 
    
19. zhongweishu=function(data){
    
20. 
    
21. for (i in 1:ncol(data)) {
    
22. 
    
23. data[is.na(data[,i]),i]=median(data[,i],na.rm=T)
    
24. 
    
25. }

复制代码

参数含义：

data: 传入的数据

id_junshu,id_zhongweishu,id_zhongshu：分别是要插补均数、中位数、众数所在的列（传入变量名或者变量所在的列号）

三、使用方法

运行以上所有代码：

1.我有一组数据，我想用均数插补第1,2列，中位数插补第4,5，众数插补第8,9列，那么应该这样写：

1. data=m_impute(data,id_junshu=c(1,2),id_zhongweishu=c(4,5),id_zhongshu=c(8,9))

复制代码

2.我有一组数据，我想用均数插补第1列，中位数插补第4,5列，众数插补第8,9列，那么应该这样写：

1. data=m_impute(data,id_junshu=1,id_zhongweishu=c(4,5),id_zhongshu=c(8,9))

复制代码

3.我有一组数据，我想用均数插补第1,2,3列,那么应该这样写：

1. data=m_impute(data,id_junshu=c(1,2,3))

复制代码

#数字换成变量名也是可以的，大家大胆往里面传，如果错误的话我写了校对模块。

如果你不会R也没事，我写了可视化操作工具，使用方法参考下一篇

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：缺失值处理 R语言教程 R语言 缺失值 function