Как добавить 2 набора данных один под другим, имеющие несколько разные имена столбцов?

Question

Набор данных1:

ID Name     Territory   Sales
1  Richard  NY            59
8  Sam      California    44

Набор данных2:

Terr ID  Name   Comments
 LA   5   Rick    yes
 MH   11  Oly     no

Я хочу, чтобы в окончательном наборе данных были только столбцы с 1-м набором данных, а идентификатор Territory совпадает с Terr и не переносит столбец Comments.

Окончательные данные должны выглядеть следующим образом:

ID Name     Territory  Sales
1  Richard  NY           59
8  Sam      California   44
5  Rick     LA           NA
11 Oly      MH           NA

Заранее спасибо

Answer 1

Возможное решение:

# create a named vector with names from 'set2' 
# with the positions of the matching columns in 'set1'
nms2 <- sort(unlist(sapply(names(set2), agrep, x = names(set1))))

# only keep the columns in 'set2' for which a match is found
# and give them the same names as in 'set1'
set2 <- setNames(set2[names(nms2)], names(set1[nms2]))

# bind the two dataset together

# option 1:
library(dplyr)
bind_rows(set1, set2)

# option 2:
library(data.table)
rbindlist(list(set1, set2), fill = TRUE)

, который дает (dplyr -выход на выходе):

  ID    Name  Territory Sales
1  1 Richard         NY    59
2  8     Sam California    44
3  5    Rick         LA    NA
4 11     Oly         MH    NA

---

Использованные данные:

set1 <- structure(list(ID = c(1L, 8L), 
                       Name = c("Richard", "Sam"),
                       Territory = c("NY", "California"),
                       Sales = c(59L, 44L)),
                  .Names = c("ID", "Name", "Territory", "Sales"), class = "data.frame", row.names = c(NA, -2L))
set2 <- structure(list(Terr = c("LA", "MH"),
                       ID = c(5L, 11L),
                       Name = c("Rick", "Oly"),
                       Comments = c("yes", "no")),
                  .Names = c("Terr", "ID", "Name", "Comments"), class = "data.frame", row.names = c(NA, -2L))