Graficar media y barras de error - Sesión 19

[@fabiolaleal7492]

Gracias!! era justo lo que buscaba 🤗

[@ricardoandresoviedocelis5397]

Excelente orientación

[@Dany60722]

muchas gracias!! Disculpa ¿Cómo se agregaria un color a cada barra de la gráfica?

[@gaya_ciencia]

Prueba incluyendo esta instrucción dentro de geom_bar:
fill= c("gray", "red", "blue")

[@gaya_ciencia]

Otra opción es incluir la siguiente instrucción:
scale_fill_manual(values = c("gray","steelblue","orange"))

[@Dany60722]

@@gaya_ciencia muchas gracias, si pude cambiar los colores, me gusto mucho el video que realizaste, lo explicas muy bien, me gusta mucho el contenido de tu canal. muchas geracias

[@gaya_ciencia]

@@Dany60722perfecto. Gracias a ti y éxito en los análisis de tu proyecto.

[@auraitzelgarciachargoy4480]

Muchas gracias, me sirvió mucho

[@hectorfernandocortesvelard2583]

Gracias! gran aporte.

[@camilauvidia5109]

He entendido todo a la perfección, como hago para cambiar el color de cada barra, lo he intentado de mil formas y no sale, tendrás el comando, por favor

[@gaya_ciencia]

Intenta con:
col= c("red","yellow","green"),

[@camilauvidia5109]

@@gaya_ciencia pero seguido de todos los scripts de tu video ? Con un + ?

[@gaya_ciencia]

@@camilauvidia5109 no,
solo poner una coma antes.

[@gaya_ciencia]

@@camilauvidia5109 hay que poner una coma antes

[@mateosuarez821]

muchas gracias, quería saber si hay manera de poner la etiquetas datos cuando se grafica solo la media?

[@gaya_ciencia]

No he visto cómo, pero te recomiendo ecar un vistazo a este manual: r-graphics.org/

[@RetriAnime_official]

Hola una consulta, y como se edita las letras de los gráficos y se colorea para los tres grupos?

[@gaya_ciencia]

Para colorear los 3 grupos puedes usar
+
scale_fill_manual(values = c("gray","steelblue","orange"))
Para aumentar la letra, no lo sé, casi siempre la ajusta por default.

[@Karen-pc6vn]

una pregunta, el ultimo codigo para graficar la desviación media no me funciona, y el último paquete a instalar "Hmisc" me aparece como que algunos nombres de sus funciones ya existen en otro paquete. no se si esto sera porque el video es de hace un año, y la versión de R actual tenga algo que no permita utilizar bien el paquete

[@gaya_ciencia]

Es muy probable que sea por alguna actualización. Lo ideal sería poner "Hmisc" en el panel de preguntas (en Utilidades) de RStudio para ver cómo solicita ahora la introducción de los argumentos.

[@gaya_ciencia]

Estuve revisando el script y sí me corrió.
Revísalo pegando lo siguiente:
ggplot(data = instrumento_9,
mapping = aes(x = Grupo,
y = Total)) +
stat_summary(fun = mean,
geom = "bar",
fill= "white",
color="black") +
stat_summary(fun.data = mean_sdl,
geom = "errorbar", width = .2,
position= "dodge")

[@Karen-pc6vn]

@@gaya_ciencia al final si pude identificar los paquetes que me causaban problemas y pude realizar el código bien, muchas gracias!!

[@JhonatanTiradoMalpartida]

Gracias por el tutorial. ¿Se podrá añadir la cifra de la media en las barras? así como se puede en excel

[@samanthavalchar6111]

Hola! Me ayudo muchísimo el video. Queria saber si hay alguna manera de ponerle colores diferentes a las barras, gracias!!

[@gaya_ciencia]

Prueba poniendo la instrucción "col = c("red", "blue", "yellow")"
Ejemplo:
barplot(media_reactivos,
ylim = c(0,25),
col= c("red","yellow","green"),
main = "Instrumento sobre depresión",
xlab = "Factores",
ylab = "Puntaje")

[@veronicajesuspilcomamani9694]

tienes el script del ejemplo que puedas compartir?

[@gaya_ciencia]

Sí, con gusto:
# cargar el paquete readxl
library(readxl)
# importar el archivo de Excel "instrumento_9"
#revisar el archivo de Excel
instrumento_9
# cargar la paquetería de tidyverse
library(tidyverse)
# obtener la media del vector "Total" por grupo
instrumento_9 %>% group_by(Grupo) %>%
summarise(media_total = mean(Total, na.rm = TRUE))
# guardar la media del vector "Total" por grupo
media_cognistat % group_by(Grupo) %>%
summarise(media = mean(Total, na.rm = TRUE))
# revisar la media del vector "Total"
media_cognistat
# obtener la mediana del vector "Total" por grupo
instrumento_9 %>% group_by(Grupo) %>%
summarise(mediana = median(Total, na.rm = TRUE))
# guardar la mediana del vector "Total" por grupo
mediana_cognistat % group_by(Grupo) %>%
summarise(mediana = median(Total, na.rm = TRUE))
# revisar la mediana del vector "Total"
mediana_cognistat
##########################################################################
# obtener las principales medidas de tendencia y dispersión del vector "Total"
instrumento_9 %>% group_by(Grupo) %>%
summarise(cantidad= n(),
media= mean(Total, na.rm = TRUE),
mediana= median(Total, na.rm = TRUE),
desv_std= sd(Total, na.rm = TRUE))
# guarda las principales medidas de tendencia y dispersión del vector "Total"
resultados_cognistat_total % group_by(Grupo)%>%
summarise(cantidad= n(),
media= mean(Total, na.rm = TRUE),
mediana= median(Total, na.rm = TRUE),
desv_std= sd(Total, na.rm = TRUE))
# revisa el vector
resultados_cognistat_total
##########################################################################
# filtrar los datos para grupos mayores a 3 sujetos
instrumento_9 %>% group_by(Grupo)%>%
summarise(cantidad= n(),
media= mean(Total, na.rm = TRUE),
mediana= median(Total, na.rm = TRUE),
desv_std= sd(Total, na.rm = TRUE)) %>%
filter(cantidad > 3)
# filtrar de menor a mayor según la media obtenida
instrumento_9 %>% group_by(Grupo)%>%
summarise(cantidad= n(),
media= mean(Total, na.rm = TRUE),
mediana= median(Total, na.rm = TRUE),
desv_std= sd(Total, na.rm = TRUE)) %>%
filter(cantidad > 3) %>%
arrange(media)
# filtrar de mayor a mayor según la media obtenida
instrumento_9 %>% group_by(Grupo)%>%
summarise(cantidad=n(),
media=mean(Total, na.rm = TRUE),
mediana=median(Total, na.rm = TRUE),
desv_std=sd(Total, na.rm = TRUE)) %>%
filter(cantidad > 3) %>%
arrange(desc(media))
##########################################################################
# graficar la media del Total con ggplot2
ggplot(data = instrumento_9,
mapping = aes(x=Grupo,
y=Total))+
stat_summary(fun = mean, geom = "bar", fill= "white", color="black")
# incluye las barras de desviación estándar con ggplot2.... y Hmisc
install.packages("Hmisc")
library(Hmisc)
ggplot(data = instrumento_9,
mapping = aes(x=Grupo,
y=Total))+
stat_summary(fun = mean,
geom = "bar",
fill= "white",
color="black")+
stat_summary(fun.data = mean_sdl,
geom = "errorbar", width = .2, position= "dodge")
# cambia las barras a error estandar con ggplot2.... y Hmisc
ggplot(data = instrumento_9,
mapping = aes(x=Grupo,
y=Total))+
stat_summary(fun = mean,
geom = "bar",
fill= "white",
color="black")+
stat_summary(fun.data = mean_se,
geom = "errorbar", width = .2, position= "dodge")

[@alexisgarciaagrolibano4604]

He entendio de una mejor forma como hacer las barras de error