r - Rでデータフレームを結合し、データフレーム名を含む列を作成する

Question

2 つのデータフレームを結合しようとしていますが、各データフレームの名前の一部を含む列を作成して、各データがどのデータフレームから来たかを識別できるようにします。データフレームは

Acme_types_number <- structure(list(type = structure(c(3L, 1L, 2L, 4L, 3L), .Label = c("blue", "green", "red", "yellow"), class = "factor"), number = c(4L, 6L, 54L, 5L, 5L)), .Names = c("type", "number"), class = "data.frame", row.names = c(NA, -5L))

と

Acme2_types_number <- structure(list(type = structure(c(2L, 3L, 1L, 4L, 3L), .Label = c("blue", "green", "red", "yellow"), class = "factor"), number = c(4L, 5L, 6L, 5L, 5L)), .Names = c("type", "number"), class = "data.frame", row.names = c(NA, -5L))

を使用して、これらを単一のデータフレームに結合できます

df <- rbind(Acme_types_number, Acme2_types_number)

これにより、次のデータフレーム df が得られます。

type    number
red         4
blue        6
green       54
yellow      5
red         5
green       4
red         5
blue        6
yellow      5
red         5

ただし、各データフレーム名の最初の部分 (アンダースコアの前の部分など) を含む列も追加して、次のようにします。

factory   type number
   Acme    red      4
   Acme   blue      6
   Acme  green     54
   Acme yellow      5
   Acme    red      5
  Acme2  green      4
  Acme2    red      5
  Acme2   blue      6
  Acme2 yellow      5
  Acme2    red      5

Rでこれを行う方法を知っている人はいますか?