[問題] shiny判斷式重複性高 簡化方法

作者: daybreakya (熊貓)   2018-01-03 23:16:55
[問題類型]:
效能諮詢(我想讓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)
[關鍵字]:
選擇性,也許未來有用
作者: seimwiwa (pezcadido)   2018-01-03 23:46:00
不知道要呈現什麼圖形,但是不是可以filter(學年%in%c(1,2),性別%in%c(‘m’)這種就好,手機拍版見諒。
作者: cywhale (cywhale)   2018-01-04 00:35:00
? dplyr::case_when code那張圖應完整些才比較知道你要啥
作者: a78998042a (Benjimine)   2018-01-04 09:10:00
沒寫過shiny,不過就是問簡化if else的寫法?### 建立 temp,包含### 3個年級、2種性別、3個學年度、2個學期、2個事件temp=expand.grid(1:3,c('F','M'),105:107,1:2,1:2)colnames(temp)=c('年級','性別','年度','學期','事件')### 當 年級=1, 性別=F, 年度=105, 學期=事件=1### 以A、B、C、D、E 作為indexA = 1; B = 'F'; C = 105; D = 1; E = 1with(temp, which(年級==A & 性別==B & 年度==C &學期==D &事件 == E))###得到位置然後畫圖,這樣有解決您的問題嗎?
作者: chuubbyy (byetos)   2018-01-04 11:08:00
這只是篩選的問題,不需要ifelse,轉成data table,然後,DT[年級 %in% input$年級][性別 %in% input$性別][年度 %in% input$年度]......
作者: daybreakya (熊貓)   2018-01-04 12:44:00
阿..謝謝回答的大家,看起來方便好多,等等來研究一下
作者: HumuHumu (呼姆呼姆)   2018-01-04 15:40:00
switch?
作者: clansoda (小笨)   2018-01-04 19:19:00
我比較好奇三萬多行是要怎麼寫,也是很有耐心

Links booklink

Contact Us: admin [ a t ] ucptt.com