PTT數位生活區 / R_Language

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

看板R_Language作者 (熊貓)時間7年前 (2018/01/03 23:16), 7年前編輯推噓3(3推 0噓 18→)
留言21則, 7人參與, 7年前最新討論串1/1
[問題類型]: 效能諮詢(我想讓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://www.ptt.cc/bbs/R_Language/M.1514992617.A.5F0.html
推
01/03 23:46, 7年前 , 1F
不知道要呈現什麼圖形，但是不是可以filter(學年%in%c(1
01/03 23:46, 1F
→
01/03 23:46, 7年前 , 2F
,2),性別%in%c(‘m’)這種就好，手機拍版見諒。
01/03 23:46, 2F
目前是跑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
→
01/04 00:35, 7年前 , 3F
? dplyr::case_when code那張圖應完整些才比較知道你要啥
01/04 00:35, 3F
推
01/04 09:10, 7年前 , 4F
沒寫過shiny，不過就是問簡化if else的寫法?
01/04 09:10, 4F
→
01/04 09:10, 7年前 , 5F
### 建立 temp，包含
01/04 09:10, 5F
→
01/04 09:11, 7年前 , 6F
### 3個年級、2種性別、3個學年度、2個學期、2個事件
01/04 09:11, 6F
→
01/04 09:11, 7年前 , 7F
temp=expand.grid(1:3,c('F','M'),105:107,1:2,1:2)
01/04 09:11, 7F
→
01/04 09:12, 7年前 , 8F
colnames(temp)=c('年級','性別','年度','學期',
01/04 09:12, 8F
→
01/04 09:12, 7年前 , 9F
'事件')
01/04 09:12, 9F
→
01/04 09:13, 7年前 , 10F
### 當 年級=1, 性別=F, 年度=105, 學期=事件=1
01/04 09:13, 10F
→
01/04 09:13, 7年前 , 11F
### 以A、B、C、D、E 作為index
01/04 09:13, 11F
→
01/04 09:13, 7年前 , 12F
A = 1; B = 'F'; C = 105; D = 1; E = 1
01/04 09:13, 12F
→
01/04 09:14, 7年前 , 13F
with(temp, which(年級==A & 性別==B & 年度==C &
01/04 09:14, 13F
→
01/04 09:14, 7年前 , 14F
學期==D &事件 == E))
01/04 09:14, 14F
→
01/04 09:14, 7年前 , 15F
###得到位置然後畫圖，這樣有解決您的問題嗎?
01/04 09:14, 15F
推
01/04 11:08, 7年前 , 16F
這只是篩選的問題，不需要ifelse，轉成data table，然後
01/04 11:08, 16F
→
01/04 11:08, 7年前 , 17F
，DT[年級 %in% input$年級][性別 %in% input$性別][年
01/04 11:08, 17F
→
01/04 11:08, 7年前 , 18F
度 %in% input$年度]......
01/04 11:08, 18F
→
01/04 12:44, 7年前 , 19F
阿..謝謝回答的大家，看起來方便好多,等等來研究一下
01/04 12:44, 19F
→
01/04 15:40, 7年前 , 20F
switch?
01/04 15:40, 20F
剛剛終於修改完畢，下午研究了一下大家提供的方法 最後使用chuubbyy大說的方法 把昨天3萬多行的ifelse程式縮到約100多行內 程式不熟，只能土法煉鋼，改完後，速度也快多了 ※ 編輯: daybreakya (120.127.169.50), 01/04/2018 18:47:39
→
01/04 19:19, 7年前 , 21F
我比較好奇三萬多行是要怎麼寫，也是很有耐心
01/04 19:19, 21F
‣ 更多 daybreakya 的文章
文章代碼(AID): #1QJFFfNm (R_Language)
R_Language 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 daybreakya 的文章
文章代碼(AID): #1QJFFfNm (R_Language)