[r] How to replace NaN value with zero in a huge data frame?