在ggplot中使用正确颜色的图例？

我想单独绘制线条，这样我就可以控制每条线条的颜色和形状。如果我在aes()之外指定颜色，我会得到正确的颜色，但会丢失图例。

为什么在aes()中定义的线条不能获得正确的颜色？我不想使用gather或pivot_wider。

library(tidyverse)
library(lubridate)

set.seed(1500)

FakeData <- data.frame(Date = seq(as.Date("2020-01-01"), 
                                  to = as.Date("2020-01-31"), 
                                  by = "days"),
                       Level = runif(31, 0, 30), 
                       Flow = runif(31, 1,10),
                       PCP = runif(31, 0,25), 
                       MeanT = runif(31, 1, 30))
ggplot(data = FakeData, aes(x = Date))+
  geom_line(aes(y = Level, col = "black"))+
  geom_line(aes(y = Flow, col = "blue"))+
  geom_line(aes(y = PCP, col = "red"))+
  geom_line(aes(y = MeanT, col = "grey"))

转载请注明出处:http://www.jxbyjx.net/article/20230522/1632669.html