[問題] Magrittr 小問題

[swedrf0112 (M)]

[問題類型]:程式諮詢

[軟體熟悉度]: 入門

[問題敘述]: 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://www.ptt.cc/bbs/R_Language/M.1467097215.A.D67.html
※ 編輯: swedrf0112 (223.136.128.96), 06/28/2016 15:03:36
→ celestialgod: x %>% order %>% {x[.]}
→ swedrf0112: 謝謝c大, 我想問的是，可以不在最後ㄧ個pipe再呼叫ㄧ
→ swedrf0112: 次 x 嗎？ 不好意思沒表達清楚!
→ celestialgod: x %>% {.[order(.)]}這樣嗎
→ celestialgod: 只要隔了一個pipe就不能往回找前一個
→ celestialgod: pipeR寫法: x %>>% (~ order_x <-order(x)) %>>%
→ celestialgod: '['(order_x)
→ celestialgod: 詳細參考http://tinyurl.com/zx9pz76
→ celestialgod: 只是排序，為什麼不用x %>% sort?
※ 編輯: swedrf0112 (223.136.128.96), 06/28/2016 15:53:21
→ swedrf0112: ok 謝謝c 大! 我會仔細看ㄧ下pipeR 感謝!!
→ celestialgod: 儲存暫存變數跟計算應該是一個trade-off
→ celestialgod: 我覺得應該很難避免QQ
→ swedrf0112: 沒錯 資料量ㄧ大又是另ㄧ個問題... 囧