在一個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)