r - ggplot 顶部带有标题的水平图例

Question

我试图将图例的标题放在顶部，而值是水平分布的，但我不能。任何提示将不胜感激。

下面的代码提供了下面的图表，但我的图表上没有空间，所以我需要这样的东西:

性别

女性男性

df1 <- data.frame(
  sex = factor(c("Female","Female","Male","Male")),
  time = factor(c("Lunch","Dinner","Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(13.53, 16.81, 16.24, 17.42))

 lp1 <- ggplot(data=df1, 
          aes(x=time, y=total_bill, group=sex, shape=sex, colour=sex)) + 
  geom_line() + 
  geom_point() +
  theme_bw() +
  theme(
   legend.direction = "horizontal",
   ) +     
  scale_color_manual(values=c("#0000CC", "#CC0000"),
                     name = 'Gender') 
    lp1

Answer 1

尝试这个:

cols <- c("#0000CC", "#CC0000")

df1 %>%
  ggplot(aes(time, total_bill, group = sex, shape = sex, colour = sex)) +
  geom_line() +
  geom_point() +
  theme_bw() +
  scale_shape(
    guide = guide_legend(
      direction = "horizontal",
      title.position = "top"
    )
  ) +
  scale_color_manual(
    values = cols,
    name = "Gender",
    guide = guide_legend(
      direction = "horizontal",
      title.position = "top"
    )
  )