Full join

##Carga de datos

load("C:/Users/ileom/OneDrive/Escritorio/ACTUALIZACION BASE COMERCIO AGOSTO20/data_comercio_exterior_actualizacion.RData")
load("C:/Users/ileom/Downloads/data_SAC_completa.RData")

##Full join tablas

library(tidyr)
library(dplyr)

data_comercio_exterior_actualizacion %>% left_join(data_SAC_completa, by=c("sac"="codigo_")) -> datos_lab_parteB

##Guardar tabla

save(datos_lab_parteB,
     file="C:/Users/ileom/OneDrive/Escritorio/TAREA SAC 2020 50-63/datos_lab_parteB.RData")