Как избежать геттеров и сеттеров

Это мое решение, которое, как я предполагаю, можно записать в одну строку:

df3 <- df1 %>% select(-Col,everything()) %>% mutate_if(is.numeric, funs(./Col)) 

df3[["Col"]]<-df1[["Col"]]

df3 <- df3 %>% select(Col, dKO1, dKO2, sdi1)