R：90％帶有輕拍

Question

考慮到組（x列），我試圖將分位數功能應用於數據（標簽）的列（y）：

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)