作者celestialgod (天)
看板R_Language
标题Re: [问题] 如何转化数字
时间Sat Apr 30 01:24:42 2016
※ 引述《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
--
R资料整理套件系列文：
magrittr #1LhSWhpH (R_Language) http://tinyurl.com/j3ql84c
data.table #1LhW7Tvj (R_Language) http://tinyurl.com/hr77hrn
dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/jtg4hau
dplyr(下) #1Lhw8b-s (R_Language)
tidyr #1Liqls1R (R_Language) http://tinyurl.com/jq3o2g3
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.152.118
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1461950686.A.137.html
1F：→ laputaca: 非常感谢大大 ! 我试试 04/30 14:19
2F：推 laputaca: 成功!! 顺便补推~ 04/30 14:28
有搞定就好，不客气。
※ 编辑: celestialgod (140.109.73.233), 04/30/2016 18:45:56