作者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/m.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