假设我有一个数据框
df <- data.frame(id = 1:2, vectors = I(list(1:15, 4:20)))
我希望添加一些包含每个向量的分位数的列,我可以使用一行代码do()
或某种形式的mutate()
吗?
答案 0 :(得分: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)