Taller Segundo Corte

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

### TALLER INTRODUCCION A LA ECONOMETRIA ###
## LEANAR´D BAUTISTA / VIVIAN RUIZ / ANDRES PEÑA / JUAN DAVID BAREÑO
### UNION DE LAS BASES DE DATOS ### ----
setwd("/Users/juanbareno/Library/Mobile Documents/com~apple~CloudDocs/Universidad/6th Semestre/Introducción a la Econometría/Bases de Datos/Datos Taller Segundo Corte/GEIH_Julio_Marco_2018/CSV")
dir(pattern = "*.CSV ")
library(dplyr)
# Lectura de bases de datos GEIH
avh <- read.csv("Datos del hogar y la vivienda.CSV",sep = ";")
acg <- read.csv("Caracterกsticas generales, seguridad social en salud y educaciขn.CSV",sep=";")
aft <- read.csv("Fuerza de trabajo.CSV",sep = ";")
aoc <- read.csv("Ocupados.CSV",sep = ";")
adc <- read.csv("No ocupados.CSV",sep = ";")
ain <- read.csv("Migraciขn.CSV",sep = ";")
aoi <- read.csv("Otros ingresos e impuestos.CSV",sep = ";")
aoa <- read.csv("Otras formas de trabajo.CSV",sep = ";")
atp <- read.csv("Tipo de investigaciขn.CSV",sep = ";")
# Union
dim(avh)
dim(acg)
a20187 <- merge(avh,acg,by = c("DIRECTORIO","SECUENCIA_P"),all = TRUE)
a20187 <- merge(a20187,aft,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
a20187$factor <- round(as.numeric(gsub(",",".",a20187$FEX_C18)))
a20187$factor
a20187 <- select(a20187,-HOGAR.x,-REGIS.x,-AREA.x,-CLASE.x,-MES.x,
 -DPTO.x,-FEX_C18.x, -PERIODO.x,-PER.x,
 -HOGAR.y,-REGIS.y,-AREA.y,-MES.y,-DPTO.y,-FEX_C18.y,
 -PERIODO.y,-PER.y,-CLASE.y)
a20187 <- merge(a20187,aoc,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
a20187 <- merge(a20187,adc,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
a20187 <- select(a20187,-PERIODO.x, -MES.x,-PER.x, -HOGAR.x,-REGIS.x,-AREA.x,-CLASE.x,
 -FEX_C18.x, -DPTO.x, -PERIODO.y, -MES.y, -PER.y, 
 -HOGAR.y,-REGIS.y,-AREA.y,-CLASE.y,-FEX_C18.y,-DPTO.y)
a20187 <- merge(a20187,ain,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
a20187 <- merge(a20187,aoi,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
a20187 <- select(a20187,-PERIODO.x, -MES.x,-PER.x, -HOGAR.x,-REGIS.x,-AREA.x,-CLASE.x,
 -FEX_C18.x, -DPTO.x, -PERIODO.y, -MES.y, -PER.y, 
 -HOGAR.y,-REGIS.y,-AREA.y,-CLASE.y,-FEX_C18.y,-DPTO.y)
a20187 <- merge(a20187,aoa,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
a20187 <- select(a20187,-PERIODO.x, -MES.x,-PER.x, -HOGAR.x,-REGIS.x,-AREA.x,-CLASE.x,
 -FEX_C18.x, -DPTO.x, -PERIODO.y, -MES.y, -PER.y, 
 -HOGAR.y,-REGIS.y,-AREA.y,-CLASE.y,-FEX_C18.y,-DPTO.y)
a20187 <- merge(a20187,atp,by = c("DIRECTORIO","SECUENCIA_P","ORDEN"),all = TRUE)
dim(a20187) # 75963 obs y 536 var
# Grabar en disco la base de datos union
write.csv(a20187,"Base Unificada.csv")
Datos1 <- read.csv("Base Unificada.csv")
View(Datos1)