PEA

library(readxl)
library(ggplot2)
P_Data_Extract_From_World_Development_Indicators <- read_excel("~/Desktop/Clases/Medición_PTF_2022/P_Data_Extract_From_World_Development_Indicators.xlsx")
INEGI_PEA<- read_excel("~/Desktop/Clases/Medición_PTF_2022/Indicadores20230330125623.xls")

New names:
• `` -> `...2`

#Limpieza y visualización
Data<-na.omit(P_Data_Extract_From_World_Development_Indicators)
INEGI_PEA<-na.omit(INEGI_PEA)
Data<-Data[,-c(1,2,3,4)]
INEGI_PEA<-INEGI_PEA[-1,]
View(Data)
View(INEGI_PEA)

#Datos WB
n<-ncol(Data)
data<-matrix(rep(0,n),ncol=1)
suma<-0

for (i in 1:n){
  suma[i]<-colSums(Data[i])
  data[i]<-suma[i]
}
year<-matrix(c(2005:2021), ncol=1)
data<-cbind(year,data)
View(data)


#Datos INEGI
INEGI_PEA$...2<-as.numeric(INEGI_PEA$...2)
n<-nrow(INEGI_PEA)
datos<-0

for (i in seq(from=4, to=n, by=4)){
  datos[i]<-INEGI_PEA$...2[i]
}
datos<-na.omit(datos)
datos_inegi<-matrix(datos,ncol=1)
datos_inegi<-datos_inegi[-1,]
datos_inegi<-matrix(datos_inegi,ncol=1)
datos_inegi<-datos_inegi[-18,]
datos_inegi<-matrix(datos_inegi,ncol=1)

data<-cbind(data,datos_inegi)

colnames(data)<-c("year","Pop","PEA_INEGI")
data<-as.data.frame(data)


ggplot()+
  geom_line(data=data,aes(x=year,y=Pop),color="blue")+
  geom_line(data=data, aes(x=year,y=PEA_INEGI),color="red")

NA