Une façon de faire :

> df=data.frame(a=c(1:3,NA),b=c(NA,2,NA,5))
> df
a b
1 1 NA
2 2 2
3 3 NA
4 NA 5
> sapply(df,function(x) sum(is.na(x)))