具有单个类别的多个几何图形的图例

【问题标题】：Legend for more than a single geom having single category具有单个类别的多个几何图形的图例
【发布时间】：2019-01-10 21:32:08
【问题描述】：

所以我使用 ggplot 和 plotly 创建了以下情节：

它是使用 geom_bar 和 geom_point 的组合创建的。问题是我想在一个传说中显示黑点是中位数，红条是平均值。有可能吗？我知道在几何图形中使用填充和形状很简单，但是在标记不同的几何图形时我迷失了。

这是生成它的代码：

p <- ggplot(data=MoltdenDataset,aes(Level = LEVELNUMBER,Metric=value)) +
  geom_bar(data = MoltdenDataset[variable=="Average",] , aes(x=as.factor(LEVELNUMBER),y=value) , width = 0.5 , position = position_dodge(width=0.5) , stat="identity" , fill = "#FF4500") +
  geom_point(data = MoltdenDataset[variable=="Median",] , aes(x=as.factor(LEVELNUMBER),y=value))

【问题讨论】：

标签： r ggplot2

【解决方案1】：

稍微滥用一下审美系统，你或许可以取得一些进步。将点颜色设置为文字字符串“Median”，填充颜色为“Average”，然后使用scale_fill_manual 和scale_color_manual 设置颜色：

p <- ggplot(data=MoltdenDataset,aes(Level = LEVELNUMBER,Metric=value)) +
  geom_bar(data = MoltdenDataset[variable=="Average",] , aes(x=as.factor(LEVELNUMBER),y=value, fill = 'Average') , width = 0.5 , position = position_dodge(width=0.5) , stat="identity") +
  geom_point(data = MoltdenDataset[variable=="Median",] , aes(x=as.factor(LEVELNUMBER),y=value, color = 'Median')) +
  scale_fill_manual(values = '#FF4500') +
  scale_color_manual(values = '#000000')

或者，您可以使用预期的关键值（标签、x 和 y 坐标）创建一个数据框，然后使用 geom_text 将它们放入图中。

【讨论】：