仅检索 data.frame 中子组的前 %

Question

我需要在 data.frame 中检索子组的前 %。关键是子组的长度不同，所以我不能选择任意等级来调整组子集的大小。我已经有一个排序正确的排名列。

vartype varname rank
a       one       1
a       two       2
b       one       1
b       two       2
b       three     3
b       four      4
c       one       1
c       two       2
c       three     3

为上表中的每个 vartype 选择 rank 的前 50% 将返回:

vartype varname rank
a       one     1
b       one     1
b       two     2
c       one     1
c       two     2

使用 floor 或 ceiling 作为截断并不重要。谢谢!!

Answer 1

如果您不介意使用 dplyr:

dat <- read.table(text = "vartype varname rank
 a       one       1
 a       two       2
 b       one       1
 b       two       2
 b       three     3
 b       four      4
 c       one       1
 c       two       2
 c       three     3",header = TRUE,sep = "")

> dat %>% group_by(vartype) %>% filter(percent_rank(rank) <= 0.5)
Source: local data frame [5 x 3]
Groups: vartype

  vartype varname rank
1       a     one    1
2       b     one    1
3       b     two    2
4       c     one    1
5       c     two    2