作者EricTao ()
看板R_Language
标题[问题] 非手写输入formula
时间Tue Jan 20 18:42:02 2015
[问题类型]:
程式谘询(我想用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://webptt.com/cn.aspx?n=bbs/R_Language/M.1421750525.A.4ED.html
1F：→ Wush978: ?reformulate 01/20 18:55
2F：→ Wush978: ?as.formula 01/20 18:55
3F：→ Wush978: 以上是我知道的两个关键字，希望有帮助 01/20 18:55
4F：→ EricTao: 感谢，刚刚有在看as.formula但是不太确定 01/20 19:52
5F：→ celestialgod: 我理解是类似这样的东西... as. formula(paste(resp 01/21 12:36
6F：→ celestialgod: onseName, paste(names(dataname[names(datname! =r 01/21 12:36
7F：→ celestialgod: esponseName)]), sep='+'), sep='~' ) 01/21 12:36
8F：→ celestialgod: 更正成names(dataname)[names(datname)! =responseN 01/21 12:37
9F：→ celestialgod: ame]这样才对 01/21 12:37
10F：→ Wush978: reformulate(colnames(data_frame_obj)) 01/21 13:29
11F：→ celestialgod: reformulate原来这样用 学了一招!! 01/22 10:28
12F：→ Wush978: 还有 ~ . 也可以all in 01/22 18:11
13F：→ EricTao: 感谢~用reformulate达成 能直接用dataFrame太棒了0.0 01/27 16:49
14F：→ EricTao: 不过我第一个column是ID，研究下怎麽把它拿掉 01/27 16:50
15F：→ Wush978: tail(x, -1) 可以拿掉x 的第一个element 01/28 21:17
感谢，最後还是写个介面来选择变数。
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