我一直在为复杂的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语法的方式是否正确。
输出应为行范围,顶部/低分位数(不同颜色和形状),误差条表示行范围中间的平均值(不同颜色)。
我能够正确生成绘图,但问题在于图例的正确映射。目前看起来像是这样,但这并不好。