作者swedrf0112 (M)
看板R_Language
標題[問題] Magrittr 小問題
時間Tue Jun 28 15:00:13 2016
[問題類型]:程式諮詢
[軟體熟悉度]: 入門
[問題敘述]: magrittr 的 pipe 可以抓到最一開始的物件嗎?
[程式範例]:
> x=runif(5,0,1)
>
> ## 將向量內的值排序
> x[order(x)]
[1] 0.1710200 0.2608820 0.2966179 0.5351188 0.9172524
>
> ## 想請問除了下面的方法外，最後一個 pipe 該怎麼下?
> x %>% order %>% x[.]
[1] 0.1710200 0.2608820 0.2966179 0.5351188 0.9172524
先謝謝各位!!
######
不好意思，我重新說明一次我的問題，
其實原本的問題是，在問題中的 x ，有些時候是一些經過處理的物件，
給我現在遇到的例子 :
# > head(season,20)
# [1] "2000-01" "2001-02" "2002-03" "2003-04" "2004-05" "2005-06" "2006-07"
"2007-08" "2008-09" "2009-10"
# [11] "2010-11" "2011-12" "2012-13" "2013-14" "2014-15" "2015-16" "1996-97"
"1997-98" "1998-99" "1999-00"
我想要針對 season 向量的 unique 進行排序，以一般的寫法，我寫成 :
# > unique(season)
# [1] "2000-01" "2001-02" "2002-03" "2003-04" "2004-05" "2005-06"
# [7] "2006-07" "2007-08" "2008-09" "2009-10" "2010-11" "2011-12"
# [13] "2012-13" "2013-14" "2014-15" "2015-16" "1996-97" "1997-98"
# [19] "1998-99" "1999-00"
unique(season)[order(as.numeric(substr(unique(season),1,4)))]
但是因為我覺得在裡面 season 必須被 unique 兩次，很浪費計算資源，
也可以先令一個 y=unique(season)，把原本的式子 unique(season) 改成 y ， 但這樣
會浪費記憶體記這一個暫時的向量
所以我想用 magrittr 寫，所以我才以剛剛這個簡單的例子，想問是否可以呼叫 pipe 最
一開始的物件，因為我在 magrittr 的 help 裡沒找到這件事XD
season %>% unique %>% substr(.,1,4) %>% as.numeric %>% order %>% "這邊應該要呼
叫最一開始的 season"
針對一開始沒把問題說清楚，跟 C 大與各位致歉，謝謝!
也請各位指正裡面的想法是否有錯誤，或許根本就不會發生我想的事XDD
[環境敘述]:
[關鍵字]: Magrittr
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.128.96
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1467097215.A.D67.html
※ 編輯: swedrf0112 (223.136.128.96), 06/28/2016 15:03:36
1F：→ celestialgod: x %>% order %>% {x[.]} 06/28 15:12
2F：→ swedrf0112: 謝謝c大, 我想問的是，可以不在最後ㄧ個pipe再呼叫ㄧ 06/28 15:27
3F：→ swedrf0112: 次 x 嗎？ 不好意思沒表達清楚! 06/28 15:27
4F：→ celestialgod: x %>% {.[order(.)]}這樣嗎 06/28 15:27
5F：→ celestialgod: 只要隔了一個pipe就不能往回找前一個 06/28 15:28
6F：→ celestialgod: pipeR寫法: x %>>% (~ order_x <-order(x)) %>>% 06/28 15:29
7F：→ celestialgod: '['(order_x) 06/28 15:29
9F：→ celestialgod: 只是排序，為什麼不用x %>% sort? 06/28 15:30
※ 編輯: swedrf0112 (223.136.128.96), 06/28/2016 15:53:21
10F：→ swedrf0112: ok 謝謝c 大! 我會仔細看ㄧ下pipeR 感謝!! 06/28 15:58
11F：→ celestialgod: 儲存暫存變數跟計算應該是一個trade-off 06/28 16:01
12F：→ celestialgod: 我覺得應該很難避免QQ 06/28 16:01
13F：→ swedrf0112: 沒錯 資料量ㄧ大又是另ㄧ個問題... 囧 06/28 16:47