Как я могу поменять местами или указать положение элементов легенды?

Question

Неважно, что я пробовал, я не могу поменять местами два элемента легенды в моем сюжете.

я нуждаюсь Chats started появляться первым и Chats completed появиться рядом.

Вот кадр данных:

grouped <- structure(list(date = c("2018-07-16", "2018-07-17", "2018-07-18", 
"2018-07-19", "2018-07-20", "2018-07-21", "2018-07-22", "2018-07-23", 
"2018-07-24", "2018-07-25", "2018-07-26", "2018-07-27", "2018-07-28", 
"2018-07-29", "2018-07-30", "2018-07-31"), homepage_opens = c(5L, 
0L, 0L, 3L, 1L, 2L, 0L, 1L, 0L, 2L, 5L, 0L, 0L, 0L, 0L, 0L), 
    sitewide_opens = c(39L, 34L, 19L, 62L, 46L, 44L, 16L, 51L, 
    25L, 66L, 75L, 0L, 0L, 0L, 0L, 0L), chats_started = c(10L, 
    16L, 9L, 8L, 13L, 13L, 5L, 13L, 4L, 8L, 11L, 0L, 0L, 0L, 
    0L, 0L), chats_completed = c(7L, 13L, 8L, 4L, 5L, 9L, 6L, 
    13L, 2L, 7L, 5L, 0L, 0L, 0L, 0L, 0L)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -16L))

Вот код сюжета:

library(ggplot2)

ggplot(grouped) +
  geom_col(aes(x = date, y = chats_started, fill = "Chats started"),
           colour = "black",
           alpha = 0.5) +
  geom_col(aes(x = date, y = chats_completed, fill = "Chats completed"),
           colour = "black",
           alpha = 0.5) +
  geom_text(aes(x = date, y = chats_started, label = chats_started),
            colour = "black",
            hjust = -0.15,
            vjust = -1.5,
            size = 3) +
  geom_text(aes(x = date, y = chats_completed, label = chats_completed),
            hjust = -0.15,
            vjust = -1.5,
            size = 3,
            colour = "black") +
  labs(title = paste0("Chat Analysis\n(started vs. completed)"),
       x = "Date",
       y = "Count") +
  theme(legend.position = "top",
        legend.title = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.major.x = element_blank(),
        axis.text = element_text(colour = "black")) +
  scale_fill_manual(values = c("Chats completed" = "lightgreen", "Chats started" = "sandybrown"),
                    labels = c("Chats completed", "Chats started"))

И вот что я получаю в итоге:

Answer 1

Вам просто нужно guide = guide_legend(reverse=TRUE) как показано в Поваренной книге для R:

ggplot(grouped) +
    geom_col(aes(x = date, y = chats_started, fill = "Chats started"),
             colour = "black",
             alpha = 0.5) +
    geom_col(aes(x = date, y = chats_completed, fill = "Chats completed"),
             colour = "black",
             alpha = 0.5) +
    geom_text(aes(x = date, y = chats_started, label = chats_started),
              colour = "black",
              hjust = -0.15,
              vjust = -1.5,
              size = 3) +
    geom_text(aes(x = date, y = chats_completed, label = chats_completed),
              hjust = -0.15,
              vjust = -1.5,
              size = 3,
              colour = "black") +
    labs(title = paste0("Chat Analysis\n(started vs. completed)"),
         x = "Date",
         y = "Count") +
    theme(legend.position = "top",
          legend.title = element_blank(),
          panel.grid.minor.x = element_blank(),
          panel.grid.major.x = element_blank(),
          axis.text = element_text(colour = "black")) +
    scale_fill_manual(values = c("Chats completed" = "lightgreen", "Chats started" = "sandybrown"),
                      labels = c("Chats completed", "Chats started"),
                      guide = guide_legend(reverse=TRUE))

Для чего стоит, поиск показывает несколько разных вопросов, касающихся упорядочения легенды и различных решений похожих проблем:

• Легенды ggplot - изменение меток, порядка и названия
• Порядок легенды в ggplot2
• Как изменить порядок элементов в легенде?
• Как изменить порядок легенды в ggplot2?
• Управление порядком отображения легенды ggplot2

Однако ни один из ответов на эти вопросы не показал этого простого решения конкретной проблемы изменения порядка легенды, поэтому я предлагаю этот ответ, а не пытаюсь судить, действительно ли один из множества вопросов достаточно близок, чтобы пометить его как дубликат.,