Supplement Number

1 Supplemental Number

# Gráfico de Barras
barplot(conteo,
        main = "Gráfico 1 Distribución por Categoría de Causa",
        ylab = "Cantidad",
        col = "orange",       
        border = "black",   
        las = 2,               
        cex.names = 0.8)      

proporciones <- prop.table(conteo)

# Gráfico de barras
proporciones_ord <- sort(proporciones, decreasing = FALSE)

# 5. Generar el Gráfico
barplot(proporciones_ord,
        main = "Gráfico 2 Densidad por Categoría de Causa",
        ylab = "Proporción",
        col = "orange",
        border = "black",
        las = 2,         
        cex.names = 0.8)

# Gráfico de barras
barplot(conteo,
        main = "Gráfico 3 Distribución general de Causas",
        ylab = "Cantidad",
        col = "orange",
        border = "black",
        ylim = c(0, 5000),    
        space = 1.5,          
        las = 2,              
        cex.names = 0.8)

# Gráfico circular
# 1. Cargar datos
datos <- read.csv("database-_1_.csv")
columna_datos <- datos[, 2]
nombre_columna <- names(datos)[2]
columna_datos <- columna_datos[!is.na(columna_datos)]

# 2. Categorizar en 5 rangos
etiquetas <- c("1. Rango Inferior", "2. Rango Bajo-Medio", "3. Rango Medio", "4. Rango Medio-Alto", "5. Rango Superior")
categorias <- cut(columna_datos, breaks = 5, include.lowest = TRUE, labels = etiquetas)

# 3. Calcular porcentajes
conteo <- table(categorias)
porcentajes <- round(prop.table(conteo) * 100, 1)
etiquetas_leyenda <- paste(names(conteo), " (", porcentajes, "%)", sep="")

# 4. Definir colores y DISMINUIR DENSIDAD (Alpha)
colores_solidos <- colorRampPalette(c("moccasin", "orange", "darkorange3"))(length(conteo))

colores_suaves <- adjustcolor(colores_solidos, alpha.f = 0.6)
pie(
    conteo,
    labels = NA, 
    main = paste("Gráfico 4 circular Porcentual del", nombre_columna),
    col = colores_suaves, 
    border = "white",
    clockwise = TRUE 
)
legend("topright", 
       legend = etiquetas_leyenda, 
       fill = colores_suaves, 
       title = "Rangos",
       cex = 0.7,
       bty = "n")