r - 是否可以使用 magrittr 在单个工作流程中创建两个数据框？

Question

开始使用 magrittr管道运算符(operator)，并且很好奇是否可以在单个流中创建两个数据帧。例如，生成用于绘图的非聚合数据框和用于排序因子的聚合数据框(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

使用 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)