library(dplyr);library(purrr)
x <-data_frame(i =c("a","b","c"), j =1:3)
y <-data_frame(i =c("b","c","d"), k =4:6)
z <-data_frame(i =c("c","d","a"), l =7:9)
// 创建x,y,z结果> x
# A tibble:3 x 2
i j
<chr><int>1 a 12 b 23 c 3> y
# A tibble:3 x 2
i k
<chr><int>1 b 42 c 53 d 6> z
# A tibble:3 x 2
i l
<chr><int>1 c 72 d 83 a 9
// 向左取>list(x, y, z)%>%reduce(left_join, by ="i")
# A tibble:3 x 4
i j k l
<chr><int><int><int>1 a 1NA92 b 24NA3 c 357
// 取union>list(x, y, z)%>%reduce(full_join, by ="i")
# A tibble:4 x 4
i j k l
<chr><int><int><int>1 a 1NA92 b 24NA3 c 3574 d NA68
// 取交集>list(x, y, z)%>%reduce(inner_join, by ="i")
# A tibble:1 x 4
i j k l
<chr><int><int><int>1 c 357