Combine two ggplot plots

General
6

Here are two simplified examples of manually setting colors and generating a legend.

library(ggplot2)

DF <- data.frame(X=1:4,Y=2:5)
DF2 <- data.frame(X=1.5:4.5,Y=3)
ggplot(mapping=aes(X,Y))+
  geom_line(aes(color="First"),data=DF)+
  geom_line(aes(color="Second"),data=DF2)+
  scale_color_manual(values = c(First="blue",Second="red"))+
  labs(color="Source")




DF$Source <- "First"
DF2$Source <- "Second"
AllDat <- rbind(DF,DF2)

ggplot(AllDat,aes(X,Y))+
  geom_line(aes(color=Source))+
  scale_color_manual(values = c(First="blue",Second="red"))

Created on 2022-10-23 with reprex v2.0.2