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)