[R]外部ファイルを利用したフラグの付与方法（mutate）

Question

いつもお世話になっております。
標記について質問させてください。

テキストファイルを読込、条件によってフラグ列を追加することを考えています。

今、テキストファイルには、下記のような文字列が含まれています。

hyo.csv

列
AAA
BBB
CCC

※崩れていますが、1列につもりです。

これらを読み取り、フラグ列を追加したいです。

元のデータは、下記です。

df.csv
|年月|データ1|データ2|
|:--|--|
|201801|あああ|AAA|
|201801|あああ|BBB|
|201801|あああ|CCC|
|201801|あああ|DDD|
|201801|あああ|FFF|
|201801|あああ|GGG|

これに対して、フラグ列を追加します。
|年月|データ1|データ2|フラグ|
|:--|--|
|201801|あああ|AAA|1|
|201801|あああ|BBB|1|
|201801|あああ|CCC|1|
|201801|あああ|DDD|0|
|201801|あああ|FFF|0|
|201801|あああ|GGG|0|

現状は下記のようなコードです。

df <- read.csv("sample.csv")
hyo <- read.csv("hyo.csv",,header=F,stringAsfactor=F)
df <- df %>% mutate(フラグ = ifelse(データ1 == hyo[1,] | 
                                    データ1==hyo[2,] | 
                                    データ1==hyo[3,] ,1,0)

しかし、この場合ですとcsvファイル側の条件が3行までしかできません。
もっと増やした場合には対応できません。

どのようにすればよいでしょうか。

どうぞよろしくお願い致します。

Answer 1

%in%演算子を使えばいいと思います。

Comments

[essa]

KojiDoi様

ご回答ありがとうございます。

df <- read.csv("sample.csv")
hyo <- read.csv("hyo.csv",,header=F,stringAsfactor=F)
df <- df %>% mutate(フラグ = ifelse(データ1 %in% hyo ,1,0)

ということでしょうか。

試してみましたが、全てFalseになってしまい、想定している結果にはなりませんでした。

もしよろしければ、どこで%in%演算子を使うのか教えていただけないでしょうか。

どうぞよろしくお願い致します。

[KojiDoi]

リスト・データフレームに直接%in%してもダメです。
データ1 %in% unlist(hyo)

[essa]

KojiDoi様

回答ありがとうございました。
問題なく動作しました。