легенды ggplot, когда график построен из двух фреймов данных

Question

У меня есть данные, поступающие из двух разных кадров данных. Я пытаюсь создать легенду для каждого фрейма данных. Я знаю, что я могу комбинировать фрейм данных и делать это, но из-за моего источника данных имеет смысл использовать график из двух разных кадров данных.

См. Упрощенный пример ниже. Я подошел, но «Основной прогноз» в легенде - только белый цвет. Я хочу показать, где «Основной Прогноз» красный с внешней стороны и белый внутри.

x = seq(1,10, 1) 
y = seq(10,100, 10) 

df = data.frame(x=x, y=y) 
df2 = data.frame(x=5, y=50) 

p = ggplot(data=df) + 
    geom_point(data=df,aes(x=x, y=y, color="Weekly Forecast"), fill="red", size=5, shape=16) + 
    geom_line(data=df,aes(x=x, y=y), color="red", size=1) + 
    geom_point(data=df2, aes(x=x, y=y, color="Main Forecast"), size=2, shape=16) + 
    scale_color_manual("Legend Title", breaks=c("Weekly Forecast", "Main Forecast"), values = c("white","red")) 
p 

Любая помощь будет принята с благодарностью.

Answer 1

Вам нужно использовать один из символов, который заполняет (pch = 21:25). Затем вам нужно использовать override.aes, чтобы получить легенду. Я переместил общие данные и aes в команду ggplot.

ggplot(data=df, aes(x=x, y=y)) + 
    geom_point(aes(color="Weekly Forecast"), shape=16, size = 5) + 
    geom_line(color="red", size=1) + 
    geom_point(data=df2, aes(color="Main Forecast"), shape=21, fill = "white", size = 5) + 
    scale_color_manual("Legend Title", limits=c("Weekly Forecast", "Main Forecast"), values = c("red","red")) + 
    guides(colour = guide_legend(override.aes = list(pch = c(16, 21), fill = c("red", "white")))) 

Это также может быть сделано без override.aes:

ggplot(data=df, aes(x=x, y=y)) + 
    geom_line(aes(color="Main Forecast"), size=1) + 
    geom_point(aes(color="Weekly Forecast", fill="Weekly Forecast"), shape=21, size = 5) + 
    geom_point(data=df2, aes(color="Main Forecast", fill="Main Forecast"), shape=21, size = 5) + 
    scale_color_manual(name="", values = c("red","red")) + 
    scale_fill_manual(name="", values=c("white","red"))