刪除比數據幀第95百分更大的數據

Question

我有這樣一個數據：

DF：

Group Point 
A  6000 
B  5000 
C  1000 
D  100 
F  70 

之前，我圖此DF，我只喜歡比第95百分位在刪除值我數據幀。任何機構告訴我該怎麼做？

Answer 1

使用quantile功能

> quantile(d$Point, 0.95) 
95% 
5800 

> d[d$Point < quantile(d$Point, 0.95), ] 
    Group Point 
2  B 5000 
3  C 1000 
4  D 100 
5  F 70 

Answer 2

或者使用 'dplyr' 庫：

> quantile(d$Point, 0.95) 
95% 
5800 

> df %>% filter(Point < quantile(df$Point, 0.95)) 
    Group Point 
1  B 5000 
2  C 1000 
3  D 100 
4  F 70