Разделить канал так, чтобы вывод шел к двум отдельным командам - PullRequest
Новая
       45

Разделить канал так, чтобы вывод шел к двум отдельным командам

0 голосов
/ 04 ноября 2018

Я нахожусь в процессе изучения tidyverse и мне нравится поток, который предлагает трубный оператор. Мне было интересно, можно ли вообще разделить канал так, чтобы вывод из одной части канала мог идти к двум отдельным командам? Я провел небольшое исследование по этому вопросу и ничего не видел о возможности этого. Так что вместо того, чтобы делать что-то подобное, вам придется сохранить первый шаг. 

iris_filter <- iris %>% 
  filter(Sepal.Length <= 5.8)

iris_filter %>% 
  summarise(n= n())

iris_filter %>% 
  arrange(Sepal.Length)

Не могли бы вы вместо этого передать filter двум отдельным командам и продолжить работу по двум разным путям? Небольшое изображение, чтобы уточнить, что мне интересно, возможно. enter image description here

Ответы [ 2 ]

0 голосов
/ 04 ноября 2018

Оператор %T>% из пакета magrittr, похоже, то, что вы ищете.

Однако для этой конкретной проблемы я бы написал пользовательскую функцию, которая выводит исходные данные: 

library(tidyverse)

custom.function <- function(x) {
  summarise(x, n = n()) %>%
    print()

  return(x)
}

iris %>% 
  filter(Sepal.Length <= 5.8) %>%
  custom.function() %>%
  arrange(Sepal.Length)
#>    n
#> 1 80
#>    Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
#> 1           4.3         3.0          1.1         0.1     setosa
#> 2           4.4         2.9          1.4         0.2     setosa
#> 3           4.4         3.0          1.3         0.2     setosa
#> 4           4.4         3.2          1.3         0.2     setosa
#> 5           4.5         2.3          1.3         0.3     setosa
#> 6           4.6         3.1          1.5         0.2     setosa
#> 7           4.6         3.4          1.4         0.3     setosa
#> 8           4.6         3.6          1.0         0.2     setosa
#> 9           4.6         3.2          1.4         0.2     setosa
#> 10          4.7         3.2          1.3         0.2     setosa
#> 11          4.7         3.2          1.6         0.2     setosa
#> 12          4.8         3.4          1.6         0.2     setosa
#> 13          4.8         3.0          1.4         0.1     setosa
#> 14          4.8         3.4          1.9         0.2     setosa
#> 15          4.8         3.1          1.6         0.2     setosa
#> 16          4.8         3.0          1.4         0.3     setosa
#> 17          4.9         3.0          1.4         0.2     setosa
#> 18          4.9         3.1          1.5         0.1     setosa
#> 19          4.9         3.1          1.5         0.2     setosa
#> 20          4.9         3.6          1.4         0.1     setosa
#> 21          4.9         2.4          3.3         1.0 versicolor
#> 22          4.9         2.5          4.5         1.7  virginica
#> 23          5.0         3.6          1.4         0.2     setosa
#> 24          5.0         3.4          1.5         0.2     setosa
#> 25          5.0         3.0          1.6         0.2     setosa
#> 26          5.0         3.4          1.6         0.4     setosa
#> 27          5.0         3.2          1.2         0.2     setosa
#> 28          5.0         3.5          1.3         0.3     setosa
#> 29          5.0         3.5          1.6         0.6     setosa
#> 30          5.0         3.3          1.4         0.2     setosa
#> 31          5.0         2.0          3.5         1.0 versicolor
#> 32          5.0         2.3          3.3         1.0 versicolor
#> 33          5.1         3.5          1.4         0.2     setosa
#> 34          5.1         3.5          1.4         0.3     setosa
#> 35          5.1         3.8          1.5         0.3     setosa
#> 36          5.1         3.7          1.5         0.4     setosa
#> 37          5.1         3.3          1.7         0.5     setosa
#> 38          5.1         3.4          1.5         0.2     setosa
#> 39          5.1         3.8          1.9         0.4     setosa
#> 40          5.1         3.8          1.6         0.2     setosa
#> 41          5.1         2.5          3.0         1.1 versicolor
#> 42          5.2         3.5          1.5         0.2     setosa
#> 43          5.2         3.4          1.4         0.2     setosa
#> 44          5.2         4.1          1.5         0.1     setosa
#> 45          5.2         2.7          3.9         1.4 versicolor
#> 46          5.3         3.7          1.5         0.2     setosa
#> 47          5.4         3.9          1.7         0.4     setosa
#> 48          5.4         3.7          1.5         0.2     setosa
#> 49          5.4         3.9          1.3         0.4     setosa
#> 50          5.4         3.4          1.7         0.2     setosa
#> 51          5.4         3.4          1.5         0.4     setosa
#> 52          5.4         3.0          4.5         1.5 versicolor
#> 53          5.5         4.2          1.4         0.2     setosa
#> 54          5.5         3.5          1.3         0.2     setosa
#> 55          5.5         2.3          4.0         1.3 versicolor
#> 56          5.5         2.4          3.8         1.1 versicolor
#> 57          5.5         2.4          3.7         1.0 versicolor
#> 58          5.5         2.5          4.0         1.3 versicolor
#> 59          5.5         2.6          4.4         1.2 versicolor
#> 60          5.6         2.9          3.6         1.3 versicolor
#> 61          5.6         3.0          4.5         1.5 versicolor
#> 62          5.6         2.5          3.9         1.1 versicolor
#> 63          5.6         3.0          4.1         1.3 versicolor
#> 64          5.6         2.7          4.2         1.3 versicolor
#> 65          5.6         2.8          4.9         2.0  virginica
#> 66          5.7         4.4          1.5         0.4     setosa
#> 67          5.7         3.8          1.7         0.3     setosa
#> 68          5.7         2.8          4.5         1.3 versicolor
#> 69          5.7         2.6          3.5         1.0 versicolor
#> 70          5.7         3.0          4.2         1.2 versicolor
#> 71          5.7         2.9          4.2         1.3 versicolor
#> 72          5.7         2.8          4.1         1.3 versicolor
#> 73          5.7         2.5          5.0         2.0  virginica
#> 74          5.8         4.0          1.2         0.2     setosa
#> 75          5.8         2.7          4.1         1.0 versicolor
#> 76          5.8         2.7          3.9         1.2 versicolor
#> 77          5.8         2.6          4.0         1.2 versicolor
#> 78          5.8         2.7          5.1         1.9  virginica
#> 79          5.8         2.8          5.1         2.4  virginica
#> 80          5.8         2.7          5.1         1.9  virginica

Создано в 2018-11-04 пакетом представ. (v0.2.1)

0 голосов
/ 04 ноября 2018

Я не думаю, что это возможно. Одним из способов решения этой проблемы является сохранение промежуточных значений в полном кадре данных, например: 

iris %>% 
  add_tally() %>%
  filter(Sepal.Length <= 5.8) %>%
  arrange(Sepal.Length)

   Sepal.Length Sepal.Width Petal.Length Petal.Width Species     n
          <dbl>       <dbl>        <dbl>       <dbl> <fct>   <int>
 1          4.3         3            1.1         0.1 setosa    150
 2          4.4         2.9          1.4         0.2 setosa    150
 3          4.4         3            1.3         0.2 setosa    150
 4          4.4         3.2          1.3         0.2 setosa    150
 5          4.5         2.3          1.3         0.3 setosa    150

Здесь вы можете использовать такие функции, как add_tally() или add_count(group1, group2, ...), которые в основном являются эквивалентами более подробных mutate(n = n()) и group_by(group1, group2, ..) %>% mutate(n = n()).

Вы всегда можете использовать значения, сохраненные для дальнейших расчетов / диаграмм.

...