[問題] 非手寫輸入formula (已解決)

看板R_Language作者時間9年前 (2015/01/20 18:42), 9年前編輯推噓0(0推 0噓 15→)
留言15則, 3人參與, 最新討論串1/1
[問題類型]: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) [軟體熟悉度]: 入門(寫過其他程式，只是對語法不熟悉) [問題敘述]: 正在摸索用SHINY來寫網頁，請問如何不靠手寫輸入formula? 例如像這樣一個函式 glm1 <- glm(Tr ~ age + educ + black + hisp + married + nodegr + + re74 + re75, family = binomial, data = lalonde) 變數是從CSV檔讀取的Header，不是固定的變數名稱。 另外也在考慮也許從網頁輸入EVAL? 在EVAL欄位產生default值， 這樣可以手動設定方程式的係數.. [關鍵字]: shiny, formula -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.112.137.56 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1421750525.A.4ED.html
→
01/20 18:55, , 1F
?reformulate
01/20 18:55, 1F
→
01/20 18:55, , 2F
?as.formula
01/20 18:55, 2F
→
01/20 18:55, , 3F
以上是我知道的兩個關鍵字，希望有幫助
01/20 18:55, 3F
→
01/20 19:52, , 4F
感謝，剛剛有在看as.formula但是不太確定
01/20 19:52, 4F
→
01/21 12:36, , 5F
我理解是類似這樣的東西... as. formula(paste(resp
01/21 12:36, 5F
→
01/21 12:36, , 6F
onseName, paste(names(dataname[names(datname! =r
01/21 12:36, 6F
→
01/21 12:36, , 7F
esponseName)]), sep='+'), sep='~' )
01/21 12:36, 7F
→
01/21 12:37, , 8F
更正成names(dataname)[names(datname)! =responseN
01/21 12:37, 8F
→
01/21 12:37, , 9F
ame]這樣才對
01/21 12:37, 9F
→
01/21 13:29, , 10F
reformulate(colnames(data_frame_obj))
01/21 13:29, 10F
→
01/22 10:28, , 11F
reformulate原來這樣用 學了一招!!
01/22 10:28, 11F
→
01/22 18:11, , 12F
還有 ~ . 也可以all in
01/22 18:11, 12F
→
01/27 16:49, , 13F
感謝~用reformulate達成 能直接用dataFrame太棒了0.0
01/27 16:49, 13F
→
01/27 16:50, , 14F
不過我第一個column是ID，研究下怎麼把它拿掉
01/27 16:50, 14F
→
01/28 21:17, , 15F
tail(x, -1) 可以拿掉x 的第一個element
01/28 21:17, 15F
感謝，最後還是寫個介面來選擇變數。 output$chooser<-renderUI({ checkboxGroupInput("cocho","choose covas",colnames(cova),selected=tail(colnames(cova),-1)) }) output$formula<-renderText({ as.character(reformulate(input$cocho,input$tr)) }) 長這樣 http://ppt.cc/wauk ※ 編輯: EricTao (140.112.137.56), 02/02/2015 00:24:35
‣ 更多 EricTao 的文章
文章代碼(AID): #1KlZ3zJj (R_Language)