在一个dplyr调用中返回多个列

Question

假设我有一个数据框

df <- data.frame(id = 1:2, vectors = I(list(1:15, 4:20)))

我希望添加一些包含每个向量的分位数的列，我可以使用一行代码do()或某种形式的mutate()吗？

Answer 1

一个选项是

library(dplyr)
df1 <- df %>% 
          rowwise() %>%
          do(qnt= quantile(.$vectors))
bind_cols(df, as.data.frame(do.call(rbind, df1$qnt)))
#   id      vectors 0% 25% 50%  75% 100%
#1  1 1, 2, 3,....  1 4.5   8 11.5   15
#2  2 4, 5, 6,....  4 8.0  12 16.0   20

或者

bind_cols(df, df %>% 
                rowwise() %>%
                do(qnt= as.data.frame(t(quantile(.$vectors))))%>% 
                lapply(., bind_rows) %>%
               .$qnt)