Medicina Basada en la Evidencia

Representación gráfica de variables… – 525 – Anexo 3. Diagrama de cajas ( Box plot ): procedimiento en RCommander/KMggplot2 y Script Anexo 4. Discrete plot y gráfico de barras para variables cuantitativas discretas: procedimiento en RCommander (EZR) y Script Figura 4 . Desde KMggplot2 accederemos a Box plot/Violin plot/Confidence Interval – Y variable: Peso – Vertical axis label: Peso en Kg – Plot type: Box plot – Add data point: Jitter – Colour pattern: Paired R Script Figura 4 : require(“ggplot2”) .df <- data.frame(y = Funda_graf$Peso) .plot <- ggplot(data = .df, aes(x = factor(1), y = y)) + stat_boxplot(geom = “errorbar”, width = 0.5) + geom_boxplot(fill=”orange”, outlier.colour = “transparent”) + geom_jitter(colour = “black”, width = 0.1, height = 0) + scale_x_discrete(breaks = NULL) + xlab(“”) + ylab(“Peso”) + theme_bw(base_size = 12, base_family = “sans”) + theme(axis.title.x = element_blank(), axis.text.x = element_blank()) print(.plot) rm(.df, .plot) Figura 5 . También es posible realizar el diagrama de cajas de la variable Peso según el Sexo . Desde KMggplot2 accederemos a Box plot/Violin plot/Confidence Interval – Y variable: Peso – Stratum variable: Sexo – Horizontal axis label: Sexo - Vertical axis label: Peso en Kg – Plot type: Box plot – Add data point: Jitter – Colour pattern: RdYlBu R Script Figura 5 : require(“ggplot2”) .df <- data.frame(y = Funda_graf$Peso, z = Funda_graf$Sexo) .plot <- ggplot(data = .df, aes(x = z, y = y, fill = z)) + stat_boxplot(geom = “errorbar”, width = 0.5) + geom_boxplot(outlier.colour = “transparent”) + geom_jitter(colour = “black”, width = 0.1, height = 0) + scale_fill_brewer(palette = “RdYlBu”) + xlab(“Sexo”) + ylab(“Peso en Kg”) + labs(fill = “Sexo”) + theme_bw(base_size = 10, base_family = “sans”) print(.plot) rm(.df, .plot) Figura 6 . En RCommander accederemos a Gráficas - Dibujar una variable numérica discreta - Datos: Ingr_hosp - Opciones: Recuentos de frecuencias - Dibujar etiquetas - Etiqueta del eje x: Ingresos hospitalarios - Etiqueta del eje y: Frecuencia absoluta R Script Figura 6 : with(Funda_graf, discretePlot(Ingr_hosp, scale=”frequency”, xlab=”Ingresos por Asma”, ylab=”Frecuencia absoluta”)) Figura 7 . Mediante el plugin EZR de RCommander podemos usar también el gráfico de barras para describir este tipo de variables . Para ello desde Graphs and tables - Bar Graphs (Frequencies) - Variable: Ingr_hosp