แทนที่ค่านากับค่าจากอีกคอลัมน์ในสเปนเซอร์รี้ดครับ r

แทนที่มีนายในข้อมูลของเฟรมในสเปนเซอร์รี้ดครับ 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
}