R 文字列抽出がしたい

Question

Rでデータフレームの抽出がしたい。

扱うデータは以下の形です。
データフレーム ...df1
|name|year|...|
|:--|:--:||
|A社|1999|...|
|A社|2000|...|
|A社|2001|...|
|A社|2002|...|
|B社|1999|...|
|B社|2000|...|
|C社|2001|...|
|C社|2002|...|
|D社|1999|...|
|D社|2000|...|
|D社|2001|...|
|E社|2002|...|

このデータの中から1999年∼2001年のデータが'全て'揃っている企業を抽出がしたいです。

現状では、以下のようなデータフレームになります。
試したコード

search<-c("1999","2000","2001")#抽出したい年度
df2 <- df1[df1$year %in% search,]

結果　df2
|name|year|...|
|:--|:--:||
|A社|1999|...|
|A社|2000|...|
|A社|2001|...|
|B社|1999|...|
|B社|2000|...|
|C社|2001|...|
|D社|1999|...|
|D社|2000|...|
|D社|2001|...|

この形ではB社の2001年度のデータと
C社の1999年度と2000年度のデータが無いのにも関わらず
抽出されています。

そうではなく、次のデータフレームの形で抽出したいです。
|name|year|...|
|:--|:--:||
|A社|1999|...|
|A社|2000|...|
|A社|2001|...|
|D社|1999|...|
|D社|2000|...|
|D社|2001|...|

言葉不足かも知れませんが、よろしくお願い致します。

Answer 1

all %in% を組合わせればよさそうです。こんな感じ？

df1 <- read.table("test.txt", header=T, sep="\t", stringsAsFactors=F)

y   <- c(1999:2005)
hit <- c()

for(coname in unique(df1$"企業名")){
  if(all(y %in% df1[df1$"企業名"==coname,"年度"])){
    print(paste("yes", coname))
    hit <- c(hit, coname)
  }else{
    print(paste("no", coname))
  }
}

求める会社名がhitに入る筈。

Comments

[0419OKAMON]

申し訳ございません。
言葉不足でした。
1999年から2005年のデータが揃っているデータフレームを新たに作りたいです。
上記のコードでは未定義の列が選ばれました。となりました。
もう一度アドバイスいただけませんか？

[KojiDoi]

newdf <- df1[df1[,1]%in%hit,]

[0419OKAMON]

ありがとうございます。
ですが、望んでいた結果と違いました。

newdf <- subset(df1,year %in% search)
search<-c("1999","2000","2001","2002","2003","2004","2005")
をした際に抽出されるデータはsearchに含まれている　OR　で抽出されています。それをANDで行いたいです。

[KojiDoi]

貴方の説明からは試した事の前後関係が掴めないし あなたの言う 「望んでいた結果」 がどんな物なのか理解できません。 コチラは適当に想像するしか無いのですよ。
newdf <- subset(df1,year %in% search)
ここでいうsearchはどういうものを想定しているのですか？
最終的に
search<-c("1999","2000","2001","2002","2003","2004","2005")
とすればsubsetの結果に関わらず searchには数値が5個入ったベクトルができるだけでandもorもクソもありません。
最終的に得たい結果の実例をキチンと示してください。質問で手を抜いて丸投げしないこと。

[0419OKAMON]

申し訳ございませんでした。
質問を追記・変更しましたので、よろしくお願い致します。
Searchは抽出したい年度を入れ、その結果をSubsetした結果が上記の質問のdf2になりました。

[KojiDoi]

上で示した通り newdf <- df1[df1[,1]%in%hit,]で質問文に追記されたのと寸分違わない結果が出ます。