proyfin25-2

# Instalar y cargar paquetes si es necesario
if (!require(readxl)) install.packages("readxl")

## Cargando paquete requerido: readxl

library(readxl)

if (!require(dplyr)) install.packages("dplyr")

## Cargando paquete requerido: dplyr

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(dplyr)

if (!require(ggplot2)) install.packages("ggplot2")

## Cargando paquete requerido: ggplot2

library(ggplot2)

if (!require(scales)) install.packages("scales")

## Cargando paquete requerido: scales

library(scales)

# Leer la primera hoja del archivo Excel (asegúrate que el archivo esté en el mismo directorio que este .Rmd)
datos <- read_excel("Reporte.xlsx", sheet = "Sheet")

# Agrupar por NUMERO REGIMEN y hacer un conteo de cuantos afiliados son de cada Regimen
conteo_regimen <- datos %>%
  group_by(`NUMERO REGIMEN`) %>%
  summarise(Cantidad = n())

# Mostrar la tabla de cuantos afiliados perteneces a cada Regimen
print(conteo_regimen)

## # A tibble: 6 × 2
##   `NUMERO REGIMEN` Cantidad
##   <chr>               <int>
## 1 601                   123
## 2 605                  5182
## 3 612                  1758
## 4 621                   245
## 5 625                    57
## 6 626                  1383

# Graficar el conteo de la cantidad de afiliados en cada Regimen
ggplot(conteo_regimen, aes(x = `NUMERO REGIMEN`, y = Cantidad)) +
  geom_bar(stat = "identity", fill = "coral") +
  labs(title = "Cantidad por Número de Régimen",
       x = "Número de Régimen",
       y = "Cantidad") +
  theme_minimal()

# Leer la primera hoja del archivo Excel (asegúrate que el archivo esté en el mismo directorio que este .Rmd)
comisiones <- read_excel("COMISIONES.xlsx", sheet = "Hoja1")

# Agrupar la suma del monto pagado en 2024 por régimen
conteo_comisiones <- comisiones %>%
  group_by(Regimen) %>%
  summarise(MontoPagado = sum(`Payment Amount`, na.rm = TRUE)) %>%
  arrange(desc(MontoPagado))

# Mostrar tabla de suma de pagos por régimen
print(conteo_comisiones)

## # A tibble: 4 × 2
##   Regimen MontoPagado
##   <chr>         <dbl>
## 1 RESICO    71272801.
## 2 AS        56533543.
## 3 PF        40780215.
## 4 PM        28991710.

# Ordenar niveles de 'Regimen' según el monto pagado
conteo_comisiones$Regimen <- factor(conteo_comisiones$Regimen,
                                    levels = conteo_comisiones$Regimen[order(-conteo_comisiones$MontoPagado)])

# Graficar con formato de dinero en el eje Y
ggplot(conteo_comisiones, aes(x = Regimen, y = MontoPagado)) +
  geom_bar(stat = "identity", fill = "forestgreen") +
  labs(title = "Monto total pagado por Régimen en 2024",
       x = "Régimen",
       y = "Monto Pagado (MXN)") +
  scale_y_continuous(labels = label_dollar(prefix = "$", big.mark = ",", decimal.mark = ".")) +
  theme_minimal()