为复杂的ggplot创建图例

Question

我一直在为复杂的ggplot2情节修复传奇。

情节如下：

colors = brewer.pal(8, "Dark2")

p <- ggplot(dataf, aes(x = Category)) + 
  geom_linerange(aes(ymin = low_quantile, ymax = top_quantile),
                 linetype = 1, color = "#5B9BD5", size = 7) + 
  geom_point(aes(y = low_quantile, color=low_quantile_plot, shape=low_quantile_plot),
             size = 3) + 
  geom_point(aes(y = top_quantile,color=top_quantile_plot, shape=top_quantile_plot),
             size = 3) +
  geom_errorbar(aes(y = Mean, ymin = Mean, ymax = Mean,color='Mean'),
                lty=1, size=1, width=0.24) + 
  scale_color_manual(values = c('Mean'='red', 'top_quantile_plot'='green', 'low_quantile_plot'='blue'), 
                     labels = c('Mean', top_quantile_plot, low_quantile_plot)) + 
  scale_shape_manual(values = c(16, 17)) + 
  geom_text(aes(x = Category, y = (top_quantile + 10), 
                label = paste('€', specify_decimal(top_quantile, 2), 'm'))) 

问题在于将正确的颜色和形状映射在一起。

我没有提供数据集，因为我想知道我接近ggplot语法的方式是否正确。

输出应为行范围，顶部/低分位数（不同颜色和形状），误差条表示行范围中间的平均值（不同颜色）。

我能够正确生成绘图，但问题在于图例的正确映射。目前看起来像是这样，但这并不好。