Выровненные метки в нескольких ggplots в цикле - PullRequest
Новая
       39

Выровненные метки в нескольких ggplots в цикле

0 голосов
/ 19 марта 2020

Я хочу сгенерировать несколько графиков для разных категорий, поэтому у меня есть следующий код: 

for (módulo in pruebas) {
  plot <- ggplot(data = pruebas.oficiales[pruebas.oficiales$prueba==módulo,],
                 aes(y = Promedio.prueba, x = año)) +
    geom_point(shape = 18, size = 4, 
               color = "#A32F4A") +
    geom_errorbar(data = pruebas.oficiales[pruebas.oficiales$prueba==módulo,],
                  aes(ymin = Promedio.prueba - Desviacion,
                      ymax = Promedio.prueba + Desviacion),
                  color = "#A32F4A", width = 0.4, size = 1.3) +
    theme(
      panel.background = element_rect(fill = "white", 
                                      color = rgb(198, 198, 198, 
                                                  maxColorValue = 255),
                                      size = 1, linetype = "solid"),
      panel.grid.minor = element_line(size = 0.1, linetype = "dashed",
                                      color = rgb(198,198,198, maxColorValue = 255)),
      axis.title = element_text(color = "#575756", family = "Montserrat"),
      axis.text = element_text(family = "Montserrat")
    ) + geom_text(aes(label = Promedio.prueba), hjust = "left",
                  nudge_x = 0.145, show.legend = F, color = "#575756",
                  size = 4, family = "Montserrat") +
    geom_text(aes(label = paste("(", Desviacion, ")")),
              show.legend = F, color = "#575756", hjust = "left",
              vjust = 2, nudge_x = 0.1, size = 4, family = "Montserrat") +
    xlab(NULL) + ylab("Promedio de la prueba")

  assign(paste0("plot.", módulo), plot)
}

Если соответствующая "prueba" имеет четыре категории для переменной "año", я получаю график типа

enter image description here

Если соответствующая «prueba» имеет две категории для переменной «año», я получаю график типа

enter image description here

Для последние, верхние метки не совпадают с нижними метками. Кто-нибудь знает, как я могу сделать так, чтобы на всех графиках были выровненные метки независимо от количества категорий для «año», которые они имеют?

...