标题在ggplot顶部的水平图例

Question

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

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

性

女性男性

"[{"name":"Bob","key":"201","active":true}]"

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"
    )
  )