r - 我如何删除R中值频率超过x的行

Question

假设我有一个数据集：

x y
1 a
1 a
1 a
1 a
2 a
2 a
2 b 
3 c
3 e

如何删除 x 频率重复超过 3 的行（例如出现 4 次的“1”）？

标签： rrowapplyfrequency

Answer 1

碱基R

dat[ave(dat$x, dat$x, FUN=length) < 4,]
#   x y
# 5 2 a
# 6 2 a
# 7 2 b
# 8 3 c
# 9 3 e

dplyr

library(dplyr)
dat %>%
  group_by(x) %>%
  filter(n() < 4) %>%
  ungroup()
# # A tibble: 5 x 2
#       x y    
#   <int> <chr>
# 1     2 a    
# 2     2 a    
# 3     2 b    
# 4     3 c    
# 5     3 e    

数据表

library(data.table)
as.data.table(dat)[, .SD[.N < 4,], by = .(x)][]
#        x      y
#    <int> <char>
# 1:     2      a
# 2:     2      a
# 3:     2      b
# 4:     3      c
# 5:     3      e