R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

setwd(“C:/Users/ronal/OneDrive/Desktop”) datos <- read.csv(“database (1).csv”, header = TRUE, sep = “,”, dec = “.”) ## Estadística Inferencial: Variables Nominales y Ordinales # Causa de categoría str(datos) cause_Category <- datos$Cause.Category # 1. Tabla de frecuencia absoluta freq_abs <- table(cause_Category)

2. Convertir a data frame

Tabla <- as.data.frame(freq_abs)

3. Renombrar columnas

colnames(Tabla) <- c(“x”, “ni”)

4. Frecuencia relativa simple

Tabla\(hi <- round(Tabla\)ni / sum(Tabla$ni), 4)

5. Crear fila TOTAL

fila_total <- data.frame( x = “TOTAL”, ni = sum(Tabla$ni), hi = 1.00 # equivalente a 100% )

6. Unir tabla con la fila total

TablaFinal <- rbind(Tabla, fila_total)

7. Mostrar

TablaFinal # Gráfica de barras para Cause Category barplot(Tabla\(ni, names.arg = Tabla\)x, col = “#4ECDC4”, main = “Gráfica No.1: Distribución por Categoría de Causa”, ylab = “Cantidad”, las = 2, # Rotar etiquetas cex.names = 0.8, # Tamaño de etiquetas ylim = c(0, max(Tabla\(ni) * 1.1)) # Espacio arriba # GRÁFICA 2: Barras para hi (Cause Category) barplot(Tabla\)hi, names.arg = Tabla\(x, col = "#4ECDC4", main = "Gráfica No.2:\nDistribución de Cause Category (Frecuencia Relativa)", ylab = "Cantidad", las = 2, # Etiquetas verticales rotadas cex.names = 0.8, ylim = c(0, max(Tabla\)hi) * 1.1)) ## GRÁFICA 3: Barras para hi * 100 (porcentaje) - Cause Category barplot(Tabla\(hi * 100, names.arg = Tabla\)x, col = “#4ECDC4”, main = “Gráfica Nº3:de Cause Category (Porcentaje)”, las = 2, # Rotar etiquetas cex.names = 0.8, # Tamaño nombres ylab = “cantidad”) #========================================================= # GRÁFICA 4: PASTEL CON LEYENDA TOTALMENTE FUERA #========================================================= # Márgenes MUY grandes a la derecha para separar la leyenda par(mar = c(4, 4, 4, 22)) # ← aumenté el margen derecho

Colores del pastel

azules <- colorRampPalette(c(“#1f77b4”, “#d4f1f9”))(nrow(Tabla))

Diagrama de pastel

pie( Tabla$hi, labels = NA, col = azules, main = “Gráfica Nº4:de Cause Category (Porcentaje)”, cex = 1.0, radius = 0.8 )

Leyenda EXTREMADAMENTE SEPARADA

legend( x = 1.5, # ← mueve la leyenda MUY lejos del pastel y = 0.5, legend = paste0( Tabla\(x, " - ", round(Tabla\)hi * 100, 1), “% (”, Tabla$ni, ” casos)” ), fill = azules, cex = 0.85, bty = “n”, xpd = TRUE # ← permite que la leyenda se dibuje fuera del área del gráfico )