R:使用管道将单个参数传递到函数中的多个位置

Question

我试图专门使用管道来重写以下代码(使用来自 babynames 包的 babynames 数据:

library(babynames)
library(dplyr)

myDF <- babynames %>% 
group_by(year) %>% 
summarise(totalBirthsPerYear = sum(n))

slice(myDF, seq(1, nrow(myDF), by = 20))

我得到的最接近的是这个代码(不工作):

myDF <- babyNames %>% 
group_by(year) %>% 
summarise(totalBirthsPerYear = sum(n)) %>% 
slice( XXX, seq(1, nrow(XXX), by = 20))

其中 XXX 意味着通过管道传递到切片，但我被卡住了。任何帮助表示赞赏。

Answer 1

您可以使用 . 在函数的不同位置引用管道数据。在你的情况下:

myDF2 <- babynames %>%
    group_by(year) %>%
    summarize(totalBirthsPerYear = sum(n)) %>%
    slice(seq(1, nrow(.), by = 20))