Limpiar Enviroment

rm(list=ls())

Habilitar Packages

library(data.table)
library(ggplot2)
library(ggvis)
library(plotly)
library(dplyr)

Crear un Path a las BBDDs

path <- "/Users/josecastex/Desktop/Sem 7/Data Science/Trabajo Final/"

Abrir BBDDs en R Studio formaro data.table

Base_Fert <- data.table(readxl::read_xlsx(paste0(path,"Base_Fert.xlsx")))
Base_Alfa <- data.table(readxl::read_xlsx(paste0(path,"Base_Alfa.xlsx")))
Base_Mundo <- data.table(readxl::read_xlsx(paste0(path,"Base_Mundo.xlsx")))

Crear gráficos para Tasa de Fertilidad (Nacimientos por cada 1000 mujeres entre 15 y 19 años)

ggplot(Base_Fert, aes(y=WLD, x=Year) ) + geom_point(color="blue3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes Mundo", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="blue")

ggplot(Base_Fert, aes(y=Africa_al_sur_del_Sahara, x=Year) ) + geom_point(color="red3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes Africa al Sur del Sahara", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="red")

ggplot(Base_Fert, aes(y=Asia_meridional, x=Year) ) + geom_point(color="orange3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes Asia Meridional", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="orange")

ggplot(Base_Fert, aes(y=Oriente_Medio_y_Norte_de_Africa, x=Year) ) + geom_point(color="green3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes Medio Oriente y Norte de África", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="green")

ggplot(Base_Fert, aes(y=America_Latina_y_el_Caribe, x=Year) ) + geom_point(color="yellow3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes América Latina y el Caribe", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="yellow")

ggplot(Base_Fert, aes(y=Europa_y_Asia_central, x=Year) ) + geom_point(color="pink3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes Europa y Asia central", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="pink")

ggplot(Base_Fert, aes(y=Asia_oriental_y_el_Pacifico, x=Year) ) + geom_point(color="purple3")+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes Asia oriental y el Pacífico", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad")+ geom_line(color="purple")

ggplot(Base_Fert, aes(y=America_del_Norte, x=Year)) + geom_point()+ theme_minimal() + labs(title="Tasa de Fertilidad en adolescentes América del Norte", subtitle = "Nacimientos por cada 1000 mujeres entre 15 y 19 años", x="Años", y="Tasa de Fertilidad") + geom_line(color="gray")

Obtener porcentaje de analfbetización creando nueva variable (100-X)

Base_Alfa[,Analfabetización_Asia_meridional:=100-Asia_meridional]
Base_Alfa[,Analfabetización_Europa_y_Asia_central:=100-Europa_y_Asia_central]
Base_Alfa[,Analfabetización_America_Latina_y_el_Caribe:=100-America_Latina_y_el_Caribe]
Base_Alfa[,Analfabetización_Oriente_Medio_y_Norte_de_Africa:=100-Oriente_Medio_y_Norte_de_Africa]
Base_Alfa[,Analfabetización_Asia_oriental_y_el_Pacifico:=100-Asia_oriental_y_el_Pacifico]
Base_Alfa[,Analfabetización_Africa_al_sur_del_Sahara:=100-Africa_al_sur_del_Sahara]
Base_Alfa[,Analfabetización_Mundo:=100-Mundo]

Crear gráficos para Analfabetización (Jóvenes entre 15 y 24 de años)

ggplot(Base_Alfa, aes(y=Analfabetización_Mundo, x=Year) ) + geom_point(color="blue3")+ theme_minimal() + labs(title="Tasa de Analfabetización Mundo", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización")+ geom_line(color="blue")

ggplot(Base_Alfa, aes(y=Analfabetización_Africa_al_sur_del_Sahara, x=Year) ) + geom_point(color="red3")+ theme_minimal() + labs(title="Tasa de Analfabetización África al sur del Sahara", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización")+ geom_line(color="red")

ggplot(Base_Alfa, aes(y=Analfabetización_Asia_meridional, x=Year) ) + geom_point(color="orange3")+ theme_minimal() + labs(title="Tasa de Analfabetización Asia meridional", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización")+ geom_line(color="orange")

ggplot(Base_Alfa, aes(y=Analfabetización_Oriente_Medio_y_Norte_de_Africa, x=Year) ) + geom_point(color="green3")+ theme_minimal() + labs(title="Tasa de Analfabetización Oriente Medio y Norte de África", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización") + geom_line(color="green")

ggplot(Base_Alfa, aes(y=Analfabetización_America_Latina_y_el_Caribe, x=Year) ) + geom_point(color="yellow3")+ theme_minimal() + labs(title="Tasa de Analfabetización América Latina y el Caribe", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización") + geom_line(color="yellow")

ggplot(Base_Alfa, aes(y=Analfabetización_Europa_y_Asia_central, x=Year) ) + geom_point(color="pink3")+ theme_minimal() + labs(title="Tasa de Analfabetización Europa y Asia_central", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización") + geom_line(color="pink")

ggplot(Base_Alfa, aes(y=Analfabetización_Asia_oriental_y_el_Pacifico, x=Year) ) + geom_point(color="purple3")+ theme_minimal() + labs(title="Tasa de Analfabetización Asia oriental y el Pacífico", subtitle = "Porcentaje en Jóvenes entre 15 y 24 años", x="Años", y="Tasa de Analfabetización") + geom_line(color="purple")