R - Replacing values in dataframes with conditional statements and substrings

Question

I have a dataframe df p1

In this is a large dataframe with hundreds of columns of data. In particular is 40 columns of data with similar names TD1, TD2 ..... TD40. I woul