
I have the code of two graphs that I want to separate into two. I would like to see half of these results on one graph and the other half on another since the current plot contains too much information. Here is the code for my charts:
ATENCIONFUNCIONARIO <- Medellin8 %>%
group_by(NOMBRE_SERVICIO, NOMBRE, NOMBRE_SERVICIO) %>%
summarize(TIEMPO = mean(TIEMPO)) %>%
ungroup() %>%
mutate(NOMBRE_SERVICIO = factor(NOMBRE_SERVICIO, levels = unique(NOMBRE_SERVICIO)),
NOMBRE = as.factor(NOMBRE))
# First Chart
grafico5 <- ggplot(data = ATENCIONFUNCIONARIO,
aes(x = NOMBRE_SERVICIO, y = TIEMPO, group = NOMBRE, colour = NOMBRE)) +
xlab("SERVICIO") + ylab("CANTIDAD") +
ggtitle("TIEMPO PROMEDIO ATENCIÓN FUNCIONARIO")+
theme(axis.text.x=element_text(angle=90,hjust=1)) +
theme(plot.title = element_text(hjust = 0.5))+
theme(panel.border = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), axis.line = element_line(colour = "white"))+
geom_line(lwd=1)
grafico5
