【发布时间】:2021-02-22 18:24:53
【问题描述】:
假设我有一个数据集:
x y
1 a
1 a
1 a
1 a
2 a
2 a
2 b
3 c
3 e
如何删除 x 频率重复超过 3 次的行(例如出现 4 次的“1”)?
【问题讨论】:
假设我有一个数据集:
x y
1 a
1 a
1 a
1 a
2 a
2 a
2 b
3 c
3 e
如何删除 x 频率重复超过 3 次的行(例如出现 4 次的“1”)?
【问题讨论】:
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
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
【讨论】: