Re: [問題] 如何轉化數字
※ 引述《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://www.ptt.cc/bbs/R_Language/M.1461950686.A.137.html
→
04/30 14:19, , 1F
04/30 14:19, 1F
推
04/30 14:28, , 2F
04/30 14:28, 2F
有搞定就好，不客氣。
※ 編輯: celestialgod (140.109.73.233), 04/30/2016 18:45:56
討論串 (同標題文章)
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章