procv in R

Teste3 <- left_join(Teste2, Teste %>% select(ISIN, AVG_VOLUME), 
                    by = c("ISIN" = "ISIN"))

> Teste3 <- left_join(Teste2, Teste, 
+                     by = c("ISIN" = "ISIN"))
> Teste3
         X1        X2 ISIN AVG_VOLUME AVG_RETURN       VOL     PRICE
1 0.5896936 0.1847698   A1  0.3473872  0.1309524 0.6389297 0.3433055
2 0.9254054 0.1172393   A1  0.3473872  0.1309524 0.6389297 0.3433055
3 0.3235616 0.3382006   A3  0.1330457  0.2889567 0.3713113 0.8803770
4 0.8382510 0.6392993   A2  0.9750695  0.1394496 0.5789795 0.7136534
5 0.3537203 0.7187851   A2  0.9750695  0.1394496 0.5789795 0.7136534

# Left Join: keep all rows in x even if there's no match in y
merge(life_expectancy, income_disparity, all.x = TRUE)