lapply批量对多个数据框中的数值替换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位老师好，我想把list中所有数据框中出现的0替换成NA，就想用lapply函数进行批量操作，结果发现运行结果是错误的……随便找了一个小例子，结果也不行，请问什么原因呢，怎么修改呢，谢谢！

1. cash<-data.frame(company = c("A", "A", "B"),
   
2.                  cash_flow = c(100, 200, 300),
   
3.                  year = c(1, 3, 2))
   
4. mylist<-list(cash,cash)
   
5. lapply(mylist, function(x) x[x==100]=NA)
   
6. cash[cash==100]=NA
   
7. cash

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. cash<-data.frame(company = c("A", "A", "B"),
   
2.                  cash_flow = c(100, 200, 300),
   
3.                  year = c(1, 3, 2))
   
4. mylist<-list(cash,cash)
   
5. #看一下下面这个，你就明白了。
   
6. mylist <- lapply(mylist, function(x)x[x==100])
   
7. #所以：
   
8. fun <- function(x){
   
9.   x[x==100] <- NA
   
10.   return(x)}#必须要加这个return(x)
    
11. mylist<-list(cash,cash)
    
12. lapply(mylist, fun)

复制代码

caozhaowen 发表于 2020-4-2 19:35

谢谢老师，我这才体会到了return的用处，之前我一直以为只有结果显示到consol的时候才用的到return，原来它的妙处在这里，学习了