Блог

Я пытаюсь добавить легенду для нескольких geom_vlines в a facet_wrap , но мне не удается сохранить цвета на графиках. Я добавил aes по каждому vline , но они кажутся серыми.

 ggp    geom_vline (aes(xintercept = median(overall_vector), color = "red"), linetype = "dashed")    geom_vline (aes(xintercept = quantile(overall_vector,0.80), color = "green"), linetype = "dashed")     geom_vline (aes(xintercept = quantile(overall_vector,0.20), col = "orange"), linetype = "dashed")    scale_color_manual(name = "statistics", values = c(median = "red", "p 80" = "green", "p 20" = "orange"))  

Если я выну aes его, это просто не покажет легенду. То же самое произойдет, если я буду придерживаться aes только медианы vline

 ggp    geom_vline (xintercept = median(overall_vector), color = "red", linetype = "dashed")    geom_vline (xintercept = quantile(overall_vector,0.80), color = "green", linetype = "dashed")     geom_vline (xintercept = quantile(overall_vector,0.20), col = "orange", linetype = "dashed")    scale_color_manual(name = "statistics", values = c(median = "red", "p 80" = "green", "p 20" = "orange"))  

Легенда отображается только в том случае , если я добавлю aes хотя бы 1 vline , но это vline становится серым.

 ggp    geom_vline (xintercept = median(overall_vector), color = "red", linetype = "dashed")    geom_vline (xintercept = quantile(overall_vector,0.80), color = "green", linetype = "dashed")     geom_vline (aes(xintercept = quantile(overall_vector,0.20), col = "orange"), linetype = "dashed")    scale_color_manual(name = "statistics", values = c(median = "red", "p 80" = "green", "p 20" = "orange"))  

Спасибо!