作者daybreakya (熊猫)
看板R_Language
标题[问题] shiny判断式重复性高 简化方法
时间Wed Jan 3 23:16:55 2018
[问题类型]:
效能谘询(我想让R 跑更快)
[软体熟悉度]:
入门(写过其他程式，只是对语法不熟悉)
[问题叙述]:
[程式范例]:
因为研究的关系，选择R，其中对於shiny内使用if else
若有重复性高的程式，不知道可以怎麽处理? 例如：
https://imgur.com/a/QehYQ
文字说明：有5个 checkboxGroupInput
分别为年级、性别、年度、学期、事件
我想要让使用者可以自由的配对，然後显示出图形
可能会有很多种排列，而且5个checkbox每个一定都会有选择
大一、男、103年、第一学期、期末、除夕
大二、大四、男女、105年度、106年度、第二学期、暑假
找了各种关键字，在stackoverflow找到一篇类似的问题，但没人回...
网址：
https://goo.gl/KgDTrs
於是今天很笨拙地慢慢一个一个if else做判断
光是做完年级、性别的任意搭配，就已经3万多行...
https://imgur.com/a/Rtga1
虽然可以运行，但有点蠢，不知道有什麽关键字或是方法，处理呢?
谢谢
[环境叙述]:
R version 3.4.2 (2017-09-28)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
[关键字]:
选择性，也许未来有用
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.37.142.160
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1514992617.A.5F0.html
1F：推 seimwiwa: 不知道要呈现什麽图形，但是不是可以filter(学年%in%c(1 01/03 23:46
2F：→ seimwiwa: ,2),性别%in%c(‘m’)这种就好，手机拍版见谅。 01/03 23:46
目前是跑geom_point，现在我很多的if else程式码架构大概是
if(input$年级 是XXX){
if(input$性别 是男){
if(input$年度是 XXX){
if(input$学期是 XXX){
if(input$事件是 XXX){
再透过filter去筛选DF的资料，呈现图型
}
}
}
}
}else if(input$年级是 XXX){
.....
}
就是有多少可能性我都写好...
※ 编辑: daybreakya (114.37.142.160), 01/04/2018 00:15:37
3F：→ cywhale: ? dplyr::case_when code那张图应完整些才比较知道你要啥 01/04 00:35
4F：推 a78998042a: 没写过shiny，不过就是问简化if else的写法? 01/04 09:10
5F：→ a78998042a: ### 建立 temp，包含 01/04 09:10
6F：→ a78998042a: ### 3个年级、2种性别、3个学年度、2个学期、2个事件 01/04 09:11
7F：→ a78998042a: temp=expand.grid(1:3,c('F','M'),105:107,1:2,1:2) 01/04 09:11
8F：→ a78998042a: colnames(temp)=c('年级','性别','年度','学期', 01/04 09:12
9F：→ a78998042a: '事件') 01/04 09:12
10F：→ a78998042a: ### 当 年级=1, 性别=F, 年度=105, 学期=事件=1 01/04 09:13
11F：→ a78998042a: ### 以A、B、C、D、E 作为index 01/04 09:13
12F：→ a78998042a: A = 1; B = 'F'; C = 105; D = 1; E = 1 01/04 09:13
13F：→ a78998042a: with(temp, which(年级==A & 性别==B & 年度==C & 01/04 09:14
14F：→ a78998042a: 学期==D &事件 == E)) 01/04 09:14
15F：→ a78998042a: ###得到位置然後画图，这样有解决您的问题吗? 01/04 09:14
16F：推 chuubbyy: 这只是筛选的问题，不需要ifelse，转成data table，然後 01/04 11:08
17F：→ chuubbyy: ，DT[年级 %in% input$年级][性别 %in% input$性别][年 01/04 11:08
18F：→ chuubbyy: 度 %in% input$年度]...... 01/04 11:08
19F：→ daybreakya: 阿..谢谢回答的大家，看起来方便好多,等等来研究一下 01/04 12:44
20F：→ HumuHumu: switch? 01/04 15:40
刚刚终於修改完毕，下午研究了一下大家提供的方法
最後使用chuubbyy大说的方法
把昨天3万多行的ifelse程式缩到约100多行内
程式不熟，只能土法炼钢，改完後，速度也快多了
※ 编辑: daybreakya (120.127.169.50), 01/04/2018 18:47:39
21F：→ clansoda: 我比较好奇三万多行是要怎麽写，也是很有耐心 01/04 19:19