R : 百分位数 90% with tapply

R : Percentile 90% with tapply

我正在尝试将分位数函数应用于我的数据(选项卡)的列 (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%)

添加一个附加参数p=0.9:

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