R: объединение двух кадров данных без умножения строк

Question

У меня есть два кадра данных, которые я хотел бы объединить:

df1:

Day   name 
1     A   
1     B     
1     C     
2     A   
2     B      
2     C    
3     A      
3     B   

df2:

Day   spending
2     25
2     30
3     20
3     15
3     10

Желаемый результат:

Day   name   spending
1     A      NA
1     B      NA
1     C      NA
2     A      25   
2     B      30
2     C      NA
3     A      20
3     B      15
3     NA     10 

Я попытался слить & join_all, но все, что я получил, было:

Day   name   spending
1     A      NA
1     B      NA
1     C      NA
2     A      25 
2     A      30
2     B      25      
2     B      30
2     C      NA
3     A      20
3     A      15
3     A      10
3     B      20
3     B      15
3     B      10
3     NA     20
3     NA     15
3     NA     10

Обратите внимание, что я sh хочу соединить два кадра данных по дням, не увеличивая при этом длину строк, несмотря на пропущенные данные в некоторых столбцах (например, данные дня 1 в df2 и пропущенное имя C в df1). Пожалуйста, сообщите

Answer 1

Это невозможно без добавления переменной time.

library(dplyr) #

full_join(
  df1 %>% group_by(Day) %>% mutate(time=row_number()),
  df2 %>% group_by(Day) %>% mutate(time=row_number()), 
by=c("Day", "time"))

---

# A tibble: 9 x 4
# Groups:   Day [3]
    Day name   time spending
  <int> <fct> <int>    <int>
1     1 A         1       NA
2     1 B         2       NA
3     1 C         3       NA
4     2 A         1       25
5     2 B         2       30
6     2 C         3       NA
7     3 A         1       20
8     3 B         2       15
9     3 NA        3       10

Answer 2

Вот базовое решение R, использующее ave + merge + subset, то есть

df1$id <- ave(1:nrow(df1),df1$Day,FUN = seq_along)
df2$id <- ave(1:nrow(df2),df2$Day,FUN = seq_along)
dfout <- subset(merge(df1,df2,by = c("Day","id"),all = TRUE),select = -id)

такое, что

> dfout
  Day name spending
1   1    A       NA
2   1    B       NA
3   1    C       NA
4   2    A       25
5   2    B       30
6   2    C       NA
7   3    A       20
8   3    B       15
9   3 <NA>       10