Wymień wartość na wartości z innej kolumny w r

wymień dowolny NA w ramce danych w 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
}