如何在r中使用ggplot对双杠进行排序？

Question

我正在学习r，在将双杠按升序或降序排序时遇到问题，我想在图的顶部设置图例，用两种颜色分别用一行和两列来表示图例，例如：] >

标题Time

框颜色Breakfast框颜色Dinner

和情节在这里

这是我的数据框：

dat <- data.frame(
  time = factor(c("Breakfast","Breakfast","Breakfast","Breakfast","Breakfast","Lunch","Lunch","Lunch","Lunch","Lunch","Lunch","Dinner","Dinner","Dinner","Dinner","Dinner","Dinner","Dinner"), levels=c("Breakfast","Lunch","Dinner")),
  class = c("a","a","b","b","c","a","b","b","c","c","c","a","a","b","b","b","c","c"))
这是我要更改的代码：

dat %>% 
  filter(time %in% c("Breakfast", "Dinner")) %>%
  droplevels %>%
  count(time, class) %>% 
  group_by(time) %>% 
  mutate(prop = n/sum(n)) %>%
  ggplot(aes(x = class, y = prop, fill = time, label = scales::percent(prop))) +
  geom_col(position = 'dodge') +
  geom_text(position = position_dodge(width = 0.9), vjust = 0.5, size = 3) + 
  scale_y_continuous(labels = scales::percent)+
  coord_flip()
任何帮助将不胜感激。

我正在学习r，在对双杠进行升序或降序排序时遇到问题，我想在图例的顶部设置图例，用两种颜色分别用一个颜色表示...

Answer 1

这样的事情应该接近您的要求，随时问更多]]

答案中参考的资源：http://www.sthda.com/english/wiki/ggplot2-legend-easy-steps-to-change-the-position-and-the-appearance-of-a-graph-legend-in-r-software

Answer 2

要使图例标题位于图例键上方，需要对主题和指南进行一些其他调整。