Introducción

En este trabajo se busca mostrar la cantidad de hogares que cuentan tanto con computadora/notebook, como con acceso a Internet en el año 2023, en base a la Encuesta Permanente de Hogares Continua que realiza el Instituto Nacional de Estadística de la República del Paraguay. El fin de este trabajo es poder generar una visualización para colaborar al desarrollo de políticas públicas que puedan fomentar la transformación digital. Para ello, se empleará un gráfico de barras en donde se mostrarán las distintas cantidades en base a las combinaciones de categorías que se forman:

-Posee Computadora/Notebook. posee acceso a internet, -Posee Computadora/Notebook, no posee acceso a internet, -No posee Computadora/Notebook, posee acceso a internet, -No posee Computadora/Notebook, no posee acceso a internet.

Fuente de Datos

https://www.ine.gov.py/microdatos/register/EPCH_ANUAL/EPHC_2023_ANUAL/REG01_EPHC_ANUAL_2023.csv

Gestión de Datos

Carga de Datos

library(ggplot2)
library(dplyr)
library(tidyr)
  
# Cargar los datos
data <- read.csv("REG01_EPHC_ANUAL_2023.csv", sep = ";", dec = ",")

Renombrado de columnas

# Renombrar las columnas para mayor claridad
colnames(data)[which(colnames(data) == "V23A1")] <- "Posee_Computador_Notebook"
colnames(data)[which(colnames(data) == "V23B")] <- "Tiene_Conexion_Internet"

Selección de columnas de interés

# Seleccionar las columnas relevantes
data_subset <- data[, c("Posee_Computador_Notebook", "Tiene_Conexion_Internet", "FEX.2022")]

Se etiquetan las categorías

# Reemplazar los valores por etiquetas
data_subset$Posee_Computador_Notebook <- factor(data_subset$Posee_Computador_Notebook, levels = c(1, 6, 9), labels = c("Sí", "No", "NR"))
data_subset$Tiene_Conexion_Internet <- factor(data_subset$Tiene_Conexion_Internet, levels = c(1, 6, 9), labels = c("Sí", "No", "NR"))

Se realiza el conteo de los valores para las columnas seleccionadas

# Contar los valores para ambas columnas
conteo <- data_subset %>%
  group_by(Posee_Computador_Notebook, Tiene_Conexion_Internet) %>%
  summarise(Conteo = sum(FEX.2022)) %>%
  ungroup()
## `summarise()` has grouped output by 'Posee_Computador_Notebook'. You can
## override using the `.groups` argument.

Se crean abreviaturas para facilitar la legibilidad del gráfico

# Crear una columna con abreviaturas para las combinaciones
conteo <- conteo %>%
  mutate(Abreviatura = factor(case_when(
    Posee_Computador_Notebook == "Sí" & Tiene_Conexion_Internet == "Sí" ~ "S-S",
    Posee_Computador_Notebook == "Sí" & Tiene_Conexion_Internet == "No" ~ "S-N",
    Posee_Computador_Notebook == "No" & Tiene_Conexion_Internet == "Sí" ~ "N-S",
    Posee_Computador_Notebook == "No" & Tiene_Conexion_Internet == "No" ~ "N-N"
  ), levels = c("S-S", "S-N", "N-S", "N-N"))) # Orden personalizado

Se realiza el gráfico de barras, donde se colocan en el eje X las categorías, y en el eje Y se encuentran los conteos totales

ggplot(data = conteo, aes(x = Abreviatura, y = round(Conteo), fill = Abreviatura)) +
  geom_bar(stat = "identity", width = 0.7, show.legend = FALSE) + # Mostrar barras sin leyenda
  geom_text(aes(label = format(round(Conteo), big.mark = ".", scientific = FALSE)), 
            vjust = -0.5, 
            size = 3.5) +
  scale_y_continuous(labels = scales::label_number(big.mark = ".", decimal.mark = ",")) +
  labs(x = "Combinaciones:
  
            S-S = Posee Computador/Notebook, posee Internet
            S-N = Posee Computador/Notebook, no posee Internet
            N-S = No posee Computador/Notebook, posee Internet
            N-N = No posee Computador/Notebook, no posee Internet", 
       y = "Cantidad de Viviendas", 
       title = "Acceso a Computadoras y Conexión a Internet en Hogares (2023)") +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5),
    axis.title.x = element_text(hjust = 0.5)
  )
## Warning in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L, :
## 'big.mark' and 'decimal.mark' are both '.', which could be confusing

Conclusión

Según la encuesta realizada en el año 2023, se estima que 386.119 hogares poseen computador/notebook y poseen acceso a internet. Mientras que aquellos hogares que poseen computador/notebook pero no poseen acceso a internet se estiman en 43.960 hogares.

Los hogares que no poseen computador/notebook pero poseen acceso a internet se estiman en 468.976. Y los hogares que no poseen computador/notebook y tampoco poseen acceso a internet se estiman en 767.229.

Estas cantidades muestran que el país tiene un gran desafío en cuanto a su transformación digital, considerando que, si bien la gran mayoría de los hogares cuenta con acceso a internet (855.095 hogares contra 811.189 hogares que no lo tienen), muchos de éstos no cuentan con un ordenador que les permita un mejor acceso a distintas posibilidades educativas, laborales y servicios en línea.