Skip to main content
本文に 229 文字追加
ソース リンク
metropolis
  • 6,705
  • 2
  • 6
  • 16

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

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

標準関数

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
本文から 5 文字削除
ソース リンク
metropolis
  • 6,705
  • 2
  • 6
  • 16

R の標準関数だけを使って書くと以下の様になります(dplyr を利用すればスマートに書くことができるでしょう)。

dfx <- do.call('rbind',
  c(by(df, df$name, function(x) {
      iff (sum(<- x$year %in% 1999:2001
      if (sum(f)==3) x[x$year %in% 1999:2001[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

R の標準関数だけを使って書くと以下の様になります(dplyr を利用すればスマートに書くことができるでしょう)。

dfx <- do.call('rbind',
  c(by(df, df$name, function(x) {
      if (sum(x$year %in% 1999:2001)==3) x[x$year %in% 1999:2001,]}),
    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

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
ソース リンク
metropolis
  • 6,705
  • 2
  • 6
  • 16

R の標準関数だけを使って書くと以下の様になります(dplyr を利用すればスマートに書くことができるでしょう)。

dfx <- do.call('rbind',
  c(by(df, df$name, function(x) {
      if (sum(x$year %in% 1999:2001)==3) x[x$year %in% 1999:2001,]}),
    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