How to rename suffixes when joining tables in dplyr

Problem

When joining two tables with dplyr, the suffixes .x and .y will be added to the non-joined duplicate variables to disambiguate them. In our example, to the column mpg: mpg.x y mpg.y. How can override these suffixes?

library(dplyr) 
left_join(mtcars, mtcars[, c("mpg", 'cyl')], by = c("cyl")) %>% head()

Output

  mpg.x cyl disp  hp drat   wt  qsec vs am gear carb mpg.y
1    21   6  160 110  3.9 2.62 16.46  0  1    4    4  21.0
2    21   6  160 110  3.9 2.62 16.46  0  1    4    4  21.0
3    21   6  160 110  3.9 2.62 16.46  0  1    4    4  21.4
4    21   6  160 110  3.9 2.62 16.46  0  1    4    4  18.1
5    21   6  160 110  3.9 2.62 16.46  0  1    4    4  19.2
6    21   6  160 110  3.9 2.62 16.46  0  1    4    4  17.8

Solution

We can pass the argument suffix, a character vector of length 2 with the desired names. In our example, mpg_original (suffix _original) and mpg_new (suffix_new).

left_join(mtcars, mtcars[,c("mpg","cyl")], 
              by = c("cyl"), 
              suffix = c("_original", "_new")) %>% head()

Output

  mpg_original cyl disp  hp drat   wt  qsec vs am gear carb mpg_new
1           21   6  160 110  3.9 2.62 16.46  0  1    4    4    21.0
2           21   6  160 110  3.9 2.62 16.46  0  1    4    4    21.0
3           21   6  160 110  3.9 2.62 16.46  0  1    4    4    21.4
4           21   6  160 110  3.9 2.62 16.46  0  1    4    4    18.1
5           21   6  160 110  3.9 2.62 16.46  0  1    4    4    19.2
6           21   6  160 110  3.9 2.62 16.46  0  1    4    4    17.8

References

• stackoverflow
• Join two tbls together

Cómo renombrar sufijos al unir tablas en dplyr

Problema

Cuando unimos dos tablas con dplyr, las columnas duplicadas de la primera tabla recibirán por defecto el sufijo .x y las de la segunda tabla el sufijo .y. En el siguiente ejemplo, las columnas mpg.x y mpg.y. ¿Cómo podemos modificar esos sufijos?

library(dplyr) 
left_join(mtcars, mtcars[, c("mpg", 'cyl')], by = c("cyl")) %>% head()

  mpg.x cyl disp  hp drat   wt  qsec vs am gear carb mpg.y
1    21   6  160 110  3.9 2.62 16.46  0  1    4    4  21.0
2    21   6  160 110  3.9 2.62 16.46  0  1    4    4  21.0
3    21   6  160 110  3.9 2.62 16.46  0  1    4    4  21.4
4    21   6  160 110  3.9 2.62 16.46  0  1    4    4  18.1
5    21   6  160 110  3.9 2.62 16.46  0  1    4    4  19.2
6    21   6  160 110  3.9 2.62 16.46  0  1    4    4  17.8

Solución

Empleamos el argumento suffix, suministrando un vector de longitud 2 para las dos tablas unidas. En nuestro ejemplo, nombramos las columnas mpg_original (sufijo _original) y mpg_new (sufijo _new).

left_join(mtcars, mtcars[,c("mpg","cyl")], 
              by = c("cyl"), 
              suffix = c("_original", "_new")) %>% head()

Datos

mpg_original cyl disp  hp drat   wt  qsec vs am gear carb mpg_new
1           21   6  160 110  3.9 2.62 16.46  0  1    4    4    21.0
2           21   6  160 110  3.9 2.62 16.46  0  1    4    4    21.0
3           21   6  160 110  3.9 2.62 16.46  0  1    4    4    21.4
4           21   6  160 110  3.9 2.62 16.46  0  1    4    4    18.1
5           21   6  160 110  3.9 2.62 16.46  0  1    4    4    19.2
6           21   6  160 110  3.9 2.62 16.46  0  1    4    4    17.8

Referencias

• stackoverflow
• Join two tbls together