将一个data.frame的0都转换为中位数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. lapply(data.num, function(x){x[which(x==0)]<-median(x)})

复制代码

data.num是一个data.frame每列是一组数，我想把每组中的0都分别变成每组的中位数。上面的命令只会输出各组的中位数。求大神解答是哪里出了问题。感谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Frame Fram Data RAM FRA function median 中位数 R语言

可能是数据框中某些列全都不是0，然后会导致null

1. dat.num <- rbind(c(7, 6, 0),
   
2.                  c(3, 2, 1),
   
3.                  c(0, 8, 0))
   
4. dat.num
   
5. dat.num <- as.matrix(dat.num)
   
6. medn <- apply(dat.num, 2, median)
   
7. medn
   
8. wh <- which(dat.num == 0, arr.ind = TRUE)
   
9. wh
   
10. ## median column
    
11. mc <- wh[, "col"]
    
12. mc
    
13. umc <- unique(mc)
    
14. ## median values at the columns having 0
    
15. um <- medn[umc]
    
16. ## values in the 0 position
    
17. pos <- um[match(mc, umc)]
    
18. 
    
19. ## copy
    
20. dat.num.org <- dat.num
    
21. dat.num[wh] <- pos
    
22. 
    
23. ## double-check
    
24. dat.num.org
    
25. dat.num

复制代码

你试一下：

1. sapply(data.num, function(x){x[which(x == 0)] <- median(x); x})

复制代码

但是要考虑到，如果某一列的中位数刚好也是0，则结果不会有改变。

一个比较笨的方法：
for(i in seq_along(dat.num)) {
flag<-dat.num[,i]==0
dat.num[which(flag),i]<-median(dat.num[,i])
}