recode code snippets in r

recode some rows of dataframe in r