Legend keys overlapping when merging linetype and color

Question

I would like to merge the linetype and color legends to one but the keys are overlapping and cannot distinguish the colors

PLOT <- Plot %>% ggplot() + a