我如何删除 R 中值频率大于 x 的行
how do i remove rows with value frequencies more than x in R
假设我有一个数据集：
x y
1 a
1 a
1 a
1 a
2 a
2 a
2 b
3 c
3 e
如何删除 x 频率重复超过 3 次（例如出现 4 次的“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
data.table
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
假设我有一个数据集：
x y
1 a
1 a
1 a
1 a
2 a
2 a
2 b
3 c
3 e
如何删除 x 频率重复超过 3 次（例如出现 4 次的“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
data.table
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