la fonction as.formula permet de fabriquer une formule à partir d ‘une chaine de caractères

data(iris)

chaine<-paste0(names(iris)[1],

" ~ ",paste(names(iris)[-1],collapse=" + "))

as.formula(chaine)

lm(as.formula(chaine),data=iris)