Как я могу использовать оператор цепочки "dplyr" %>% получить левую сторону в R?

Пакет "dplyr" имеет цепной оператор. Но у меня есть проблема с тем, как получить правильный термин.

Например:

c(5,7,8,1) %>% sum(`[`(1:3)) # get result 27 (This is wrong)

c(5,7,8,1) %>% sum(.[1:3]) # get result 41 (This is also wrong)

c(5,7,8,1) %>% `[`(1:3) %>% sum()   # get result 20 (This is right)

Почему коды первой и второй строк неверны? Что произошло в них?

Ответ 1

Точка . верна. Однако %>% также вставляет его в качестве первого аргумента:

x = c(5,7,8,1)
x %>% sum(.[1 : 3])

То же, что и:

sum(x, x[1 : 3])

Вы можете явно предотвратить это поведение, обернув выражение в фигурные скобки:

x %>% {sum(.[1 : 3])}

Однако в этот момент может быть лучше разбить конвейер немного больше (как вы сделали сами):

x %>% `[`(1 : 3) %>% sum()

Или, используя вспомогательные функции magrittr (требуется library(magrittr)):

x %>% extract(1 : 3) %>% sum()

Ответ 2

Процитировать документ:

Размещение lhs в качестве первого аргумента в вызове rhs. Поведение по умолчанию % > %, когда в вызове rhs требуется несколько аргументов, необходимо разместить lhs в качестве первого аргумента, т.е. x% > % f (y) эквивалентно f (x, y).

Итак, что происходит?

Когда вы вызываете сумму, она вызывается так:

n <- c(5,7,8,1) 
sum(n,n[1:3])

Lhs из %>% передается как первый arg для суммы, а подмножество - вторым аргументом. В вашей третьей форме только вывод селектора передается как аргумент sum