R：百分位数90％与tapply

Question

我正在尝试将分位数函数应用于我的数据的列（y）（制表符） 考虑组（第x列）：

z <- with (tab, tapply (y, x, quantile))

tab
      x y
1 1 0.11
2 1 0.07
3 0.04
4 2 0.39
5 2 0.12
6 3 0.21
7 3 0.06
8 3 0.00
9 3 0.12
10 3 0.36
11 4 0.08
12 4 0.15
13 4 0.09
14 4 0.30
15 4 0.12
16 4 0.13
17 4 0.07

我的问题：如何只获得90％的百分位数？ （并非所有分位数0％25％50％75％100％）

Answer 1

添加其他参数p=0.9：

tapply(tab$y, tab$x, quantile, p=0.9)