Replace 0 with na in r dplyr

Print it