Did it a few different ways .
First i saved a vector of colum names
negativas <- c("(adp18)","(adp20)","(adp22)","(adp24)","(adp26)","(adp18)","(aaa18)","(aaa26)","(aaa24)","(aaa22)","(aaa20)","(atc10)","(atc2)","(atc4)","(atc6)","(atc8)","(atm4)","(atm8)","(atm6)","(atm10)","(atm2)","(cli18)","(cli10)","(cli2)","(cli6)","(cli12)","(cli8)","(cpt10)","(cpt2)","(cpt4)","(cpt6)","(cpt8)","(crp10)","(crp12)","(crp18)","(crp20)","(crp4)","(crp6)","(crp8)","(ctd2)","(ctd4)","(ctd6)","(ctd8)","(cmd10)","(cmd2)","(cmd6)","(cmd4)","(cmd8)","(cmn4)","(cmn6)","(cmn8)","(cmn2)","(coo28)","(coo8)","(coo20)","(coo26)","(coo22)","(coo23)","(coo16)","(flx10)","(flx4)","(ldc6)","(ldc8)","(ldc10)","(ldc4)","(ldc2)","(mdc15)","(mdc12)","(mdc14)","(mdc6)","(mdc2)","(mdc10)","(mot10)","(mot4)","(mot2)","(mot6)","(mot8)","(plc10)","(plc2)","(plc4)","(plc6)","(plc8)","(rec8)","(rec2)","(rec12)","(rec4)","(rec14)","(rec17)","(rec10)","(tol6)","(tol4)","(tol17)","(tol10)","(tol2)","(tol8)")
merged_B <- merged_B %>% mutate(across(.cols = all_of(negativas),.fns = ~ 6 - .))
which resulted in
Erro: Problem with `mutate()` input `..1`.
x Can't subset columns that don't exist.
x Columns `(adp22)`, `(adp24)`, `(adp26)`, `(aaa18)`, `(aaa26)`, etc. don't exist.
i Input `..1` is `(function (.cols = everything(), .fns = NULL, ..., .names = NULL) ...`.
Then i tried it identifying them on merged_B
negativas <- c(merged_B$`(adp18)`,merged_B$`(adp20)`,merged_B$`(adp22)`,merged_B$`(adp24)`, merged_B$`(adp26)`,merged_B$`(adp18)`,merged_B$`(aaa18)`,merged_B$`(aaa26)`,merged_B$`(aaa24)`,merged_B$`(aaa22)`,merged_B$`(aaa20)`,merged_B$`(atc10)`,merged_B$`(atc2)`,merged_B$`(atc4)`,merged_B$`(atc6)`,merged_B$`(atc8)`,merged_B$`(atm4)`,merged_B$`(atm8)`,merged_B$`(atm6)`,merged_B$`(atm10)`,merged_B$`(atm2)`,merged_B$`(cli18)`,merged_B$`(cli10)`,merged_B$`(cli2)`,merged_B$`(cli6)`,merged_B$`(cli12)`,merged_B$`(cli8)`,merged_B$`(cpt10)`,merged_B$`(cpt2)`,merged_B$`(cpt4)`,merged_B$`(cpt6)`, merged_B$`(cpt8)`,merged_B$`(crp10)`,merged_B$`(crp12)`,merged_B$`(crp18)`,merged_B$`(crp20)`,merged_B$`(crp4)`,merged_B$`(crp6)`,merged_B$`(crp8)`,merged_B$`(ctd2)`,merged_B$`(ctd4)`,merged_B$`(ctd6)`,merged_B$`(ctd8)`,merged_B$`(cmd10)`,merged_B$`(cmd2)`,merged_B$`(cmd6)`,merged_B$`(cmd4)`,merged_B$`(cmd8)`,merged_B$`(cmn4)`,merged_B$`(cmn6)`,merged_B$`(cmn8)`,merged_B$`(cmn2)`,merged_B$`(coo28)`,merged_B$`(coo8)`,merged_B$`(coo20)`,merged_B$`(coo26)`,merged_B$`(coo22)`,merged_B$`(coo23)`, merged_B$`(coo16)`,merged_B$`(flx10)`,merged_B$`(flx4)`,merged_B$`(ldc6)`,merged_B$`(ldc8)`,merged_B$`(ldc10)`,merged_B$`(ldc4)`,merged_B$`(ldc2)`,merged_B$`(mdc15)`,merged_B$`(mdc12)`,merged_B$`(mdc14)`,merged_B$`(mdc6)`,merged_B$`(mdc2)`,merged_B$`(mdc10)`,merged_B$`(mot10)`,merged_B$`(mot4)`,merged_B$`(mot2)`,merged_B$`(mot6)`,merged_B$`(mot8)`,merged_B$`(plc10)`,merged_B$`(plc2)`,merged_B$`(plc4)`,merged_B$`(plc6)`,merged_B$`(plc8)`,merged_B$`(rec8)`,merged_B$`(rec2)`,merged_B$`(rec12)`,merged_B$`(rec4)`,merged_B$`(rec14)`,merged_B$`(rec17)`,merged_B$`(rec10)`,merged_B$`(tol6)`,merged_B$`(tol4)`,merged_B$`(tol17)`,merged_B$`(tol10)`,merged_B$`(tol2)`,merged_B$`(tol8)`)
merged_B <- merged_B %>% mutate(across(.cols = all_of(negativas),.fns = ~ 6 - .))
which resulted in
Erro: Problem with `mutate()` input `..1`.
x Can't subset columns that don't exist.
x Locations 5, 5, and 5 don't exist.
i There are only 4 columns.
i Input `..1` is `(function (.cols = everything(), .fns = NULL, ..., .names = NULL) ...`.