本文首發(fā)于我的個人博客
％>％來自dplyr包的管道函數(shù)轨香，我們可以將其理解為車間里的流水線，經(jīng)過前一步加工的產(chǎn)品才能進入后一步進一步加工蔗牡，其作用是將前一步的結(jié)果直接傳參給下一步的函數(shù)颖系，從而省略了中間的賦值步驟，可以大量減少內(nèi)存中的對象辩越，節(jié)省內(nèi)存嘁扼。
符號%>%，這是管道操作黔攒，其意思是將%>%左邊的對象傳遞給右邊的函數(shù)趁啸，作為第一個選項的設(shè)置（或剩下唯一一個選項的設(shè)置。
簡單例子
比如我們要算f(x)=sin((x+1)^2)在x=4的值督惰，可以分為以下三步：
計算a = x+1的值不傅；
計算b = a^2的值；
計算c = sin(b)的值
這樣一來赏胚，c就是我們需要的最終結(jié)果了访娶。用R語言管道傳參，只需要這樣寫：
f1 <- function(x){return(x+1)}
f2 <- function(x){return(x^2)}
f3 <- function(x){return(sin(x))}
管道（%>%）調(diào)用函數(shù)
library(dplyr) #用管道傳參需要這個包
a <- 1
b <- a %>% f1 %>% f2 %>% f3
print(b)
[1] -0.7568025
管道傳參具體用法
a%>%f(b)等同于f(a,b)栅哀；
b%>%f(a,.,c)等同于f(a,b,c);
例如：
>library(dplyr)
> f1 <- function(x,y){return(x+y)}
> f2 <- function(x,y,z){return(x*y+z)}
> a1 <- 2
> a2 <- 3
> a3 <- 4
> d1 <- a1 %>% f1(a2)
> d1
[1] 5
> d2 <- a2 %>% f2(a1,.,a3)
> d2
[1] 10
> d3 <- a3 %>% f2(a1,a2,.)
> d3
[1] 10
創(chuàng)建一份數(shù)據(jù):
> library(tidyr)
>date <- as.Date('2017-6-22')+0:14
> hour <- sample(1:24, 15)
> min <- sample(1:60, 15)
> second <- sample(1:60, 15)
> dat <- data.frame(date,hour,min,second)
> dat
date hour min second
1 2017-06-22 22 54 15
2 2017-06-23 7 51 4
3 2017-06-24 11 23 38
4 2017-06-25 23 45 50
5 2017-06-26 14 60 44
6 2017-06-27 5 24 56
7 2017-06-28 9 39 25
8 2017-06-29 20 22 22
9 2017-06-30 2 17 43
10 2017-07-01 17 56 31
11 2017-07-02 19 11 33
12 2017-07-03 24 35 18
13 2017-07-04 15 6 13
14 2017-07-05 4 12 47
15 2017-07-06 12 7 30
我們想把它變成標(biāo)準(zhǔn)時間格式震肮，怎么辦呢？“tidyr”包的函數(shù)unite()可以以指定字符連接指定列留拾，形成新列戳晌，具體用法見下例：
> a1 <- rep(1,5)
> a2 <- rep(2,5)
> a3 <- rep(3,5)
> A <- data.frame(a1,a2,a3)
> A
a1 a2 a3
1 1 2 3
2 1 2 3
3 1 2 3
4 1 2 3
5 1 2 3
> A1 <- unite(A,a12,a1,a2,sep = '~')
或者> A1 <- A %>% unite(a12,a1,a2,sep = '~')
對數(shù)據(jù)A的列a1,a2合并為新列a12，用“~”連接痴柔。
> A1
a12 a3
1 1~2 3
2 1~2 3
3 1~2 3
4 1~2 3
5 1~2 3
再來一步：
> A2 <- unite(A1,a123,a12,a3,sep = '/')
> A2 <- A1 %>% unite(a123,a12,a3,sep = '/')
對A1里面的a12與a3用“/”連接沦偎，形成新列“a123”。
> A2
a123
1 1~2/3
2 1~2/3
3 1~2/3
4 1~2/3
5 1~2/3
也可以用管道傳參一步搞定：
> A %>%unite(a12,a1,a2,sep = '~') %>% unite(a123,a12,a3,sep = '/')
a123
1 1~2/3
2 1~2/3
3 1~2/3
4 1~2/3
5 1~2/3
回到我們的問題
看懂上例咳蔚，就可以用管道傳參一步搞定時間轉(zhuǎn)換問題豪嚎。
> dat1 <- dat %>%unite(datehour,date,hour,sep = ' ')%>%unite(datetime,datehour,min,second,sep = ':')
> dat1
datetime
1 2017-06-22 22:54:15
2 2017-06-23 7:51:4
3 2017-06-24 11:23:38
4 2017-06-25 23:45:50
5 2017-06-26 14:60:44
6 2017-06-27 5:24:56
7 2017-06-28 9:39:25
8 2017-06-29 20:22:22
9 2017-06-30 2:17:43
10 2017-07-01 17:56:31
11 2017-07-02 19:11:33
12 2017-07-03 24:35:18
13 2017-07-04 15:6:13
14 2017-07-05 4:12:47
15 2017-07-06 12:7:30
覺得不錯，記得點贊哦谈火，也可以分享侈询、讓更多的人看到！
