R の標準関数だけを使って書くと以下の様になります(dplyr
を利用すればスマートに書くことができるでしょう)。標準関数
dfx <- do.call('rbind',
c(by(df, df$name, function(x) {
f <- x$year %in% 1999:2001
if (sum(f)==3) x[f,]
}), make.row.names=F))
print(dfx)
#
name year
1 A社 1999
2 A社 2000
3 A社 2001
5 D社 1999
6 D社 2000
7 D社 2001
dplyr
library(dplyr)
dfx <-
df %>%
group_by(name) %>%
filter({f=year %in% 1999:2001;sum(f)==3&f})
print(dfx)
#
# A tibble: 6 x 2
# Groups: name [2]
name year
<chr> <dbl>
1 A社 1999
2 A社 2000
3 A社 2001
4 D社 1999
5 D社 2000
6 D社 2001