Remplacer une valeur na avec la valeur d'une autre colonne dans la r

remplacer tout NA dans un bloc de données dans la 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
}