Medicina Basada en la Evidencia

Estadística básica – 526 – Anexo 5. Gráfico de sectores: procedimiento en RCommander/KMggplot2 y Script Anexo 6. Gráficos de barras: procedimiento en RCommander/KMggplot2 y Script Figura 8 . En RCommander/KMggplot2 accederemos a Gráficas de Sectores: Variable Sexo – Legend label: <auto> -Colour pattern: Greens R Script Figura 8: require(“ggplot2”) .df <- data.frame(y = Funda_graf$Sexo) .df <- as.data.frame(with(.df, prop.table(table(y)))) .plot <- ggplot(data = .df, aes(x = factor(1), y = Freq, fill = y)) + geom_bar(width = 1, stat = “identity”) + scale_y_continuous(labels = scales::percent_format(), limits = c(0, 1)) + scale_fill_brewer(palette = “Greens”) + coord_polar(theta = “y”) + xlab(NULL) + labs(fill = “Sexo”) + theme_bw(base_size = 10, base_family = “sans”) + theme(legend.position = “right”, axis.title.x = element_blank(), axis.title.y = element_blank(), axis.text.y = element_blank(), axis.ticks = element_blank()) print(.plot) rm(.df, .plot) Figura 9 . Para realizar el ejemplo de gráfico de barras hemos utilizado la variable Asma . RCommander ordena los valores de la variable por orden alfabético (Grave, Moderada, Leve). Para cambiar este orden se debe ejecutar primero el Script: Funda_ graf$Asma=factor(Funda_graf$Asma, levels=c(“Leve”, “Moderado”, “Grave”)) y, posteriormente, ejecutar el gráfico de barras. Desde RCommander/ KMggplot2 – Bar chart for discrete variables - X Variable: Asma – Horizontal axis label: Gravedad del Asma – Vertical axis label: Frecuencia – Axis scaling: Frequency counts R Script Figura 9 : Funda_graf$Asma=factor(Funda_graf$Asma, levels=c(“Leve”, “Moderado”, “Grave”)) require(“ggplot2”) .df <- data.frame(x = Funda_graf$Asma) .df <- as.data.frame(with(.df, table(x))) .plot <- ggplot(data = .df, aes(x = x, y = Freq)) + geom_bar(width = 0.6, stat = “identity”, fill=c(“green3”,”orange”,”red”)) + scale_y_continuous(expand = c(0.01, 0)) + xlab(“Gravedad del asma”) + ylab(“Frecuencia”) + theme_bw(base_size = 10, base_family = “sans”) print(.plot) rm(.df, .plot) Figura 10 . También se puede presentar la variable Asma según el tabaquismo familiar eligiendo en Stratum variable: Tabaquismo R Script Figura 10 : Funda_graf$Asma=factor(Funda_graf$Asma, levels=c(“Leve”, “Moderado”, “Grave”)) require(“ggplot2”) .df <- data.frame(x = Funda_graf$Asma, z = Funda_graf$Tabaquismo) .df <- as.data.frame(with(.df, table(x, z))) .plot <- ggplot(data = .df, aes(x = x, y = Freq, fill = z)) + geom_bar(width = 0.6, position = “stack”, stat = “identity”) + scale_fill_brewer(palette = “Paired”) + scale_y_continuous(expand = c(0.01, 0)) + xlab(“Gravedad del asma”) + ylab(“Frecuencia”) + labs(fill = “Tabaquismo”) + theme_bw(base_size = 10, base_family = “sans”) + theme(legend.position = “right”) print(.plot) rm(.df, .plot)