[問題] Magrittr 小問題

看板R_Language作者 (M)時間8年前 (2016/06/28 15:00), 8年前編輯推噓0(0013)
留言13則, 2人參與, 最新討論串1/2 (看更多)
[問題類型]:程式諮詢 [軟體熟悉度]: 入門 [問題敘述]: 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

06/28 15:12, , 1F
x %>% order %>% {x[.]}
06/28 15:12, 1F

06/28 15:27, , 2F
謝謝c大, 我想問的是,可以不在最後ㄧ個pipe再呼叫ㄧ
06/28 15:27, 2F

06/28 15:27, , 3F
次 x 嗎? 不好意思沒表達清楚!
06/28 15:27, 3F

06/28 15:27, , 4F
x %>% {.[order(.)]}這樣嗎
06/28 15:27, 4F

06/28 15:28, , 5F
只要隔了一個pipe就不能往回找前一個
06/28 15:28, 5F

06/28 15:29, , 6F
pipeR寫法: x %>>% (~ order_x <-order(x)) %>>%
06/28 15:29, 6F

06/28 15:29, , 7F
'['(order_x)
06/28 15:29, 7F

06/28 15:30, , 8F
06/28 15:30, 8F

06/28 15:30, , 9F
只是排序,為什麼不用x %>% sort?
06/28 15:30, 9F
※ 編輯: swedrf0112 (223.136.128.96), 06/28/2016 15:53:21

06/28 15:58, , 10F
ok 謝謝c 大! 我會仔細看ㄧ下pipeR 感謝!!
06/28 15:58, 10F

06/28 16:01, , 11F
儲存暫存變數跟計算應該是一個trade-off
06/28 16:01, 11F

06/28 16:01, , 12F
我覺得應該很難避免QQ
06/28 16:01, 12F

06/28 16:47, , 13F
沒錯 資料量ㄧ大又是另ㄧ個問題... 囧
06/28 16:47, 13F
文章代碼(AID): #1NSY1_rd (R_Language)
文章代碼(AID): #1NSY1_rd (R_Language)