magrittr을 사용하여 단일 작업 흐름에서 두 개의 데이터 프레임을 만들 수 있습니까?

Question

magrittr 파이프 운영자 시작하기 단일 흐름에서 두 개의 데이터 프레임을 만들 수 있는지 궁금했습니다. 예를 들어, 플로팅을 위해 집계되지 않은 데이터 프레임을 생성하고 주문 요소에 집계 된 데이터 프레임을 생성하는 것이 도움이됩니다 (aggregate ordering example).

library(dplyr) 
library(tidyr) 
library(magrittr) 
library(ggplot2) # msleep 

vore_count <- 
    na.exclude(msleep) %>% 
    group_by(vore, order) %>% 
    summarise(count = n()) %>% 
    ungroup() 

agg <- vore_count %>% 
    spread(vore, count) 

모두 vore_count및agg는 동일한 플로우에서 발생 될 수 : 여기

는 그 문제를 예시 오히려 인위적인 예입니까?

필자는 분명히 작동하지 않는 % T> %를 사용하여 다음을 시도했습니다.

vore_count <- 
    na.exclude(msleep) %>% 
    group_by(vore, order) %>% 
    summarise(count = n()) %>% 
    ungroup() %>% 
     agg <- spread(vore, count) 

Answer 1

그런 다음 첫 번째 data.frame의 평가 후 agg을 연결 파이프에 list()를 사용할 수 있습니다. 여기서는 mtcars을 사용합니다. 결과는 두 개의 데이터 프레임의 명명 된 목록입니다. 당신이 지구 환경에 다음을 지정하려면

library(dplyr) 
library(tidyr) 

na.exclude(mtcars) %>% 
    group_by(cyl, disp) %>% 
    summarise(count = n()) %>% 
    ungroup %>% 
    list(cyl_count = .) %>% 
    c(list(agg = spread(.$cyl_count, cyl, count))) 

, 당신은

... %>% 
    list2env(globalenv()) 

ls(pattern = "agg|cyl_count") 
# [1] "agg"  "cyl_count" 

Answer 2

사이드 할당 pipeR에 쉽게 파이프의 끝에 다음 줄을 추가 할 수 있습니다.

library(pipeR) 
library(dplyr) 
library(ggplot2) 
library(tidyr) 
na.exclude(msleep) %>>% 
    group_by(vore, order) %>>% 
    summarise(count = n()) %>>% 
    ungroup() %>>% 
    (~ vore_count) %>>% 
    spread(vore, count)%>>% 
    (~ agg) 

Answer 3

유혹을 이해할 수 있지만 IMO는 하나의 워크 플로/파이프 라인에서 하나만 지정해야합니다. 더 깔끔하고 읽기 쉽고 연습도 더 좋습니다. 각 파이프 라인은 이상적으로 오직 하나의 목적만을 가져야합니다. 하나의 입력, 하나의 출력.