dt <-
  data.frame(
    `asd fds ab` = rnorm(10),
    DSg = rnorm(10),
    `KLSD_fs  dfs()` = rnorm(10),
    ksdvm_23 = rnorm(10),
    check.names = F
  )
# 欄位名故意取得很醜是為了測試之後可否運作

IVs <- c(2, 3, 4)
DV <- c(1)
dtn <- names(dt)
library(magrittr)
myFormula <-
  paste0("`", dtn[IVs], "`") %>%
  paste0(collapse = " + ") %>%
  paste0("`", dtn[DV], "` ~ ", ., collapse = "") %>%
  as.formula

print(myFormula)
lm(myFormula, data = dt)
lm(`asd fds ab` ~ DSg + `KLSD_fs  dfs()` + ksdvm_23, data = dt) # same