Apply row-wise transformation in R so that total percentage for each row will be 100%

Question

I have a data frame like this:

df <- structure(list(groups= c("group1", "group2", "group3", "group4"),