用列号替换数据框中的条目

Question

我想在R数据框中根据它们的值找到条目，以便能够用每个条目所在的列数替换它们。嗯，很容易根据它们的位置修改特定条目或者基于它们的价值。假设这将用1：

替换数据框中的所有零

df[df==0]<-1

但是如何用df中的列数替换df中的所有零？

Answer 1

df[df==0] <- which(df==0, arr.ind = TRUE)[,2]

Answer 2

df[]<-lapply(1:ncol(df),function(i){
 ifelse(df[,i]!=0,df[,i],i)
})