如何总结DPLYR中一个case_when中的几个过滤突变？

Question

我想为一个变量计算一些分位数，并通过创建一个新变量来捕获分位数观察属于哪一个。我设法做到每一个步骤，并想知道如何把它们结合起来。我尝试了几个case_when版本，没有一个是有效的。如何缩短以下内容：

paneldata = data.frame(id=c(1,1,1,2,2,2,3,3,3,4,4,4), time=seq(1:3), 
                       x=c(21,22,23,24,25,26,27,28,29,30,31,32))

quants <- boxplot(paneldata$x, outline=FALSE)$stats

library(dplyr)

paneldata %>%
  filter(x <= quants[2]) %>%
  mutate(quantile = 1)

paneldata %>%
  filter(x > quants[2] & x < quants[3]) %>%
  mutate(quantile = 2)

paneldata %>%
  filter(x > quants[3] & x < quants[4]) %>%
  mutate(quantile = 3)

paneldata %>%
  filter(x >= quants[4]) %>%
  mutate(quantile = 4)

Answer 1

您可以通过dplyr中的ntile()在一个步骤中完成所有操作。

library(dplyr)

paneldata %>%
  mutate(quantile = ntile(x, 4))

   id time  x  quantile
1   1    1 21         1
2   1    2 22         1
3   1    3 23         1
4   2    1 24         2
5   2    2 25         2
6   2    3 26         2
7   3    1 27         3
8   3    2 28         3
9   3    3 29         3
10  4    1 30         4
11  4    2 31         4
12  4    3 32         4