Estoy intentando hacer un gráfico de medias de una variable denominada "Ronda" con intervalos de confidencia al 95%. Dado que las medias de Ronda son similares, deseo separar los puntos de las medias y las barras de error para que no aparezcan superpuestos.
Sin embargo, estoy teniendo dificultades para separar las líneas de error. Parece como si el código no leyese position_dodge(0.3)
dentro de geom_errorbar
.
Aquí el código que uso:
y <- datos$Ronda
z <- datos$Condicion
g <- datos$Terapia
g = factor(g, levels = c(0,0.1))
z = factor(z, levels = c("High isolation", "Moderate isolation", "Low isolation"))
data <- data.frame(y,z,g)
library(dplyr)
library(ggplot2)
library(tidyverse)
library(scales)
data %>%
group_by(g, z) %>%
summarise(media = mean(y),
desvio = sd(y), #Estimación de la media
error_est = desvio / sqrt(n()), #Error estandar de la estimación de la media.
intervalo_sup = media + (2*error_est), #Techo del intervalo.
intervalo_inf = media - (2*error_est)) %>% #Piso del intervalo al 95%.
#mutate(clave = paste("z",z,"x", x, sep="")) %>% #Genero una clave única para cada combinación de x y z.
ggplot(aes(x = g, y = media, color = z)) +
geom_point() +
#Para que genere una salida gráfica cuando sólo hay un data point.
geom_point(aes(group = z), size=2, position=position_dodge(0.3)) + #Las líneas que unen los puntos de cada grupos xz
geom_errorbar(aes(ymax = intervalo_sup, #Intervalor al 95% para cada punto.
ymin = intervalo_inf),
width=0.1,colour="black",position=position_dodge(0.3)) +
#theme_minimal() +
labs(x = "Terapia", y = "Ronda", color = "Condicion") +
scale_color_manual(labels = c("1", "2","3"), values = c("red", "green","blue")) +
theme(legend.position="bottom", legend.text=element_text(size=12)) +
theme(axis.text=element_text(size=14),
axis.title=element_text(size=14))
Aquí el gráfico que obtengo:
Aquí un link a los datos.