a = data.frame(a=c(NA,1,2,NA), b=c(1,1,2,NA),c=c(NA,NA,2,NA)) for (i in 1:3){ a[which(is.na(a[,i])),i] = 0 }