Tema 1

Impacto del Covid en el Paraguay

Para hacer un análisis de los casos de Covid-19 en Paraguay se utilizaron datos de las EPH, los datos se descargaron de la página web del INE::INSTITUTO NACIONAL DE ESTADISTICAS . Luego se cargaron al programa R Studio con la funcion read.cvs2()configurando los parámetros de separación por “;” y teniendo en cuenta los encabezado de los datos.

Manipulación de los datos

Los datos fueron filtrados de la variable “S03A”, que contenía ocho categorías, de las cuales los casos de covid correspondian al nivel 4

Se utilizaron índices y condicionales para poder filtrar los datos referentes al Covid que era la variable objetivo, se omitieron los NA y se creo un data frame con las cantidades por año de casos de Covid, de los años 2020, 2021 y 2022

ephc2020 <- read.csv2("C:/Users/hernan/Desktop/Maestria/Examen/55f07reg02_ephc2020.csv", stringsAsFactors=TRUE,sep=";",header=TRUE)
ephc2021 <- read.csv2("C:/Users/hernan/Desktop/Maestria/Examen/9e824reg02_ephc2021.csv", stringsAsFactors=TRUE,sep=";",header=TRUE)
ephc2022 <- read.csv2("C:/Users/hernan/Desktop/Maestria/Inferencia/Trabajo practico/REG02_EPHC2022.csv", stringsAsFactors=TRUE,sep=";",header=TRUE)

Dengue20<-ephc2020["S03A"] #el nombre Dengue quedo de una variable anterior que se cambio
Dengue21<-ephc2021["S03A"]
Dengue22<-ephc2022["S03A"] 

covid2020<-na.omit(Dengue20[Dengue20$S03A ==4, ])
covid2021<-na.omit(Dengue21[Dengue21$S03A ==4, ])
covid2022<-na.omit(Dengue22[Dengue21$S03A ==4, ])

covid20<-length(covid2020)
covid21<-length(covid2021)
covid22<-length(covid2022)


dfcovid<-data.frame(covid20,covid21,covid22)
dfcovid

  covid20 covid21 covid22
1     286     164      42

Según muestran los resultados podemos ver que los casos de covid fueron disminuyendo año a año en los ultimos 3.

Reordenando nuestros datos y agregando un gráfico.

casos<-c(dfcovid$covid20,dfcovid$covid21,dfcovid$covid22)
años<-2020:2022
df2covid<-data.frame(años,casos)
df2covid

  años casos
1 2020   286
2 2021   164
3 2022    42

library(ggplot2)
y=40:290
ggplot(df2covid, aes(x = años, y = casos)) +
  geom_segment(aes(x = años, xend = años, y = 0, yend = casos)) +
  geom_point(size = 4, pch = 21, bg = 4, col = 1) +
  ggtitle("Casos de Covid en Paraguay") +
  ylab("Cantidad de casos")