объединить тиблы по столбцу с повторяющимися значениями

Question

Это особый случай слияния тиблей.Мой воспроизводимый пример заключается в следующем.У меня есть следующие тиблы:

> tb1
# A tibble: 4 x 2
# Groups:   symbol [2]
  symbol tarima   
  <chr>   <dbl>   
 1 A        59.5
 2 A        61.7
 3 AA       33.1
 4 AA       32.5
 5 AAL      49.6  
 6 AAL      51.6  

> tb2
# A tibble: 6 x 4
# Groups:   symbol [3]
  symbol  open  high   low
  <chr>  <dbl> <dbl> <dbl>
1 A       60.8  61.2  60.8
2 A       60.3  60.5  59.1
3 AA      32.4  33    32.3
4 AA      33.6  34    32.8

Я хотел бы получить вывод:

# A tibble: 4 x 5
# Groups:   symbol [2]
  symbol      open  high   low    tarima
  <chr>       <dbl> <dbl> <dbl>    <dbl>
 1 A           60.8  61.2  60.8    59.5
 2 A           60.3  60.5  59.1    61.7
 3 AA          32.4  33    32.3    33.1
 4 AA          33.6  34    32.8    32.5

Я должен соблюдать тот же порядок.

Буду признателенесли кто-то может помочь мне с этим вопросом

Answer 1

A tidyverse возможность:

bind_cols(df2, df1 %>%
 filter(symbol %in% df2$symbol)) %>%
 select(-symbol1)

  symbol open high  low tarima
1      A 60.8 61.2 60.8   59.5
2      A 60.3 60.5 59.1   61.7
3     AA 32.4 33.0 32.3   33.1
4     AA 33.6 34.0 32.8   32.5

Он отфильтровывает значения из "символа" в df1, которые не находятся в "символе" в df2, и связывает два dfs по столбцам.