※ 引述《laputaca (離歌笑)》之銘言：
: 各位大大好
: 小弟做了一個逐步迴歸 得到類似這樣的結果
: > result$call
: lm(formula = y ~ `15` + `16` + `17` + `25` + `28` , data = data)
: 想請問我該如何將`15` ,`16` , `17` , `25` , `28` 這些變數轉化成數字呢?
: 也就是得到 15,16,17,25,28
: 我有嘗試硬轉
: 如: as.numeric(names(result$aliased)[-1])
: 結果明顯是不行的XDD
: 請求各位大大幫忙
有一個函數叫做all.vars，可以試一下
dat <- data.frame(rnorm(100), rnorm(100), rnorm(100))
names(dat) <- c("y", "15", "16")
lm_object <- lm(y ~ `15` + `16`, dat)
lm_call <- lm_object$call
一般解法：
vars_formula <- all.vars(lm_call$formula)
as.integer(vars_formula[2:length(vars_formula)])
套用 %>%：
library(magrittr)
lm_call %>% .$formula %>% all.vars %>% .[2:length(.)] %>% as.integer
套用 %>>%：
library(pipeR)
lm_call %>>% (formula) %>>% all.vars %>>% (.[2:length(.)]) %>>% as.integer