手动创建第二个ggplot图例

Question

我要解决的问题是在ggplot中包含两个图例。

我可以自动生成第一个图例，但是我没有运气尝试手动生成第二个图例。

考虑以下示例：

library(tidyverse)

(pp <- mtcars %>% 
  # filter(mpg > 13, mpg < 20) %>% 
  ggplot(aes(x = mpg, y = disp)) + 
  geom_col(aes(fill = disp)) +

  geom_point(aes(y = hp, group = 1), stat = "summary", fun.y = sum)+
  stat_summary(aes(y = hp, group = 1), fun.y = sum, geom = "line", size = 1, colour = "red")

)

在上面的情节中，我想添加一个说明文字red line is hp

我该怎么做？