R 列の追加(2つのデータの結合）

Question

###前提・実現したいこと
2つのデータを結合したいのですが、データの仕様が違うため上手く行かないのです。

###発生している問題・エラーメッセージ
2つのデータがあります。
＃1

年	製品	購入者
2002	A1	佐藤
2002	A1	田中
2002	A1	吉田
2002	A1	林
2002	A2	田中
2002	A2	吉田
2002	B1	佐藤

＃2

製品	固有番号
A1	12
A2	2
B1	16

#1のデータの製品番号に合わせて#2の固有番号を追加したいのですが、上手く行きません。
flipTablesで何度か試みたのですが、できませんでした。何か良いアイディアがあればご教示いただけるとありがたいです。

###該当のソースコード

###試したこと

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

Comments

[KojiDoi]

うまくいったんでしょうか？ 解決したなら質問を解決済みに設定してくださいますか。

Answer 1

mergeを使います。

df1 <- as.data.frame(matrix(
 c(
  "2002", "A1", "佐藤",
  "2002", "A1", "田中",
  "2002", "A1", "吉田",
  "2002", "A1", "林",
  "2002", "A2", "田中",
  "2002", "A2", "吉田",
  "2002", "B1", "佐藤"
 ),
 byrow=T, ncol=3
))
names(df1) <- c("年", "製品", "購入者")

df2 <- as.data.frame(matrix(
 c(
  "A1", 12,
  "A2", 2,
  "B1", 16
 ),
 byrow=T, ncol=2
))
names(df2) <- c("製品", "固有番号")

dfm <- merge(df1, df2, by.x="製品", by.y="製品")
print(dfm)

実行例

    年 製品 購入者
1 2002   A1   佐藤
2 2002   A1   田中
3 2002   A1   吉田
4 2002   A1     林
5 2002   A2   田中
6 2002   A2   吉田
7 2002   B1   佐藤
  製品 固有番号
1   A1       12
2   A2        2
3   B1       16
  製品   年 購入者 固有番号
1   A1 2002   佐藤       12
2   A1 2002   田中       12
3   A1 2002   吉田       12
4   A1 2002     林       12
5   A2 2002   田中        2
6   A2 2002   吉田        2
7   B1 2002   佐藤       16
> 

Comments

[S.Hayashi]

どうも有り難うございました。スッキリいたしました。