Nahradit hodnotu na hodnotu z jiného sloupce v r

vyměňte všechny NA v data frame v r

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
}