可以认为基数R中的哪个功能等效于％>％（管道）？

Question

我有一个df_1：

set.seed(1)

df_1 <- data.frame(
  x = replicate(2, runif(30, 20, 100)), 
  y = sample(1:3, 30, replace = TRUE)
)

我将tidyverse与pipes一起使用：

df_1 %>% 
  select(1, 3) %>% 
  group_by(y) %>% 
  slice(1:2)

base R中的所有%>%和子集函数（例如[]和aggregate）如何？

Answer 1

我们可以使用by

do.call(rbind, by(df_1[c(1, 3)], df_1$y, head, 2))
#         x.1 y
#1.2 49.76991 1
#1.4 92.65662 1
#2.3 65.82827 2
#2.5 36.13455 2
#3.1 41.24069 3
#3.8 72.86382 3