r programming and tidy_data_set