To avoid mutate here: ``` R library(tidyr) library(dplyr) prob <- seq(0, 1, length = 10) mtcars %>% group_by(cyl) %>% summarise(q = list(quantile(mpg, prob)), p = list(prob)) %>% unnest() %>% mutate(p = format(p, digits = 2)) %>% spread(p, q, sep = "_") ```
To avoid mutate here: