Попытка объединить два фрейма данных без использования merge () и использования union (), match () или% in%

Question

Я хочу построить два фрейма данных и объединить их без использования какой-либо формы слияния (). Вместо этого мне нужно использовать операции множеств union () и match () или% в операторе%. В следующих выходных данных должно отображаться содержимое d1, d2 и результат объединения d1 и d2.

Я выяснил, как это сделать с помощью merge (), но я не могу выяснить, как это сделать с помощью union () и match () или оператора% in%. Или любой другой способ сделать это. Также мой вывод не совпадает с тем, что должен быть. Я начинающий, спасибо за вашу помощь.

d1.Kids <- c("Jack", "Jill", "Jillian", "John", "James")
d1.States <- c("CA", "MA", "DE", "HI", "PA")

d1 <- data.frame(d1.Kids, d1.States, stringsAsFactors = FALSE)

d2.Ages <- c(10, 7, 12, 30)
d2.Kids <- c("Jill", "Jillian", "Jack", "Mary")

d2 <- data.frame(d2.Ages, d2.Kids, stringsAsFactors = FALSE)

# Merging two created data frame
merge <- merge(d1, d2, by.x = "d1.Kids", by.y = "d2.Kids", all = TRUE)

print(merge)

Output should be:

  kids    ages states 
1 Jack    12   CA
2 Jill    10   MA
3 Jillian 7    DE
4 John    NA   HI
5 James   NA   PA
6 Mary    30   NA

Answer 1

Что-то вроде этого будет делать то, что просит вопрос.
Это кажется длинным, но на самом деле это тот же набор инструкций для каждого из фреймов данных, которые должны быть объединены.

Kids <- union(d1$d1.Kids, d2$d2.Kids)

States <- rep(NA_character_, length(Kids))
Ages <- rep(NA_real_, length(Kids))

States[match(d1$d1.Kids, Kids)] <- as.character(d1$d1.States)
Ages[match(d2$d2.Kids, Kids)] <- d2$d2.Ages

mrg <- data.frame(Kids, States, Ages)

mrg
#     Kids States Ages
#1    Jack     CA   12
#2    Jill     MA   10
#3 Jillian     DE    7
#4    John     HI   NA
#5   James     PA   NA
#6    Mary   <NA>   30

Answer 2

Вот еще один способ использования match и извлечения.

nm <- c("kids", "ages", "states")
s1 <- na.omit(match(d1$d1.Kids, d2$d2.Kids))
s2 <- na.omit(match(d2$d2.Kids, d1$d1.Kids))
r1 <- setNames(data.frame(d1[s1, ], d2[s2, 1]), nm)
res <- if (!setequal(d1$d1.Kids, d2$d2.Kids)) {
  r2 <- setNames(data.frame(d1[-s1, ], NA), nm)
  r3 <- setNames(data.frame(d2[-s2, 2], NA, d2[-s2, 1]), nm)
  rbind(r1, r2, r3)
} else {
  r1
}
res
#       kids ages states
# 1     Jack   CA     10
# 2     Jill   MA      7
# 3  Jillian   DE     12
# 4     John   HI     NA
# 5    James   PA     NA
# 11    Mary <NA>     30

Answer 3

Использование базы R:

kids <- unique(c(d1$Kids, d2$Kids))
d3 <- data.frame("Kids" = kids, "ages" = NA, "states" = NA)
for (i in seq_along(kids)) {
if (any(d2$Kids == kids[i])) {
d3[which(d3$Kids == kids[i]),]$ages <- d2[which(d2$Kids == kids[i]),]$ages
} 
if (any(d1$Kids == kids[i])) {
d3[which(d1$Kids == kids[i]),]$states <- d1[which(d2$Kids == kids[i]),]$states
}
}