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

因此，我使用ggplot和plotly创建了以下绘图：

它是使用geom_栏和geom_点的组合创建的。问题是，我想在一个图例中显示，黑色点是中间点，红色条是平均值。有可能吗？我知道在几何图形中，使用填充和形状是很简单的，但是当涉及到标记不同的几何图形时，我就不知所措了

这是生成它的代码：

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

---

p你可以通过稍微滥用美学系统来取得一些进步。将点颜色设置为文字字符串“中间值”，填充颜色设置为“平均值”，然后使用
scale\u fill\u manual
和
scale\u color\u 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')

p你可以通过稍微滥用美学系统来取得一些进步。将点颜色设置为文字字符串“中间值”，填充颜色设置为“平均值”，然后使用
scale\u fill\u manual
和
scale\u color\u 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')

p