Learn to modify legend
library(ggplot2)
library(dplyr)
library(tidyr)
ggplot(mtcars) + geom_point(aes(disp, mpg, color = factor(cyl))) +
scale_color_manual(values = c("red", "blue", "green"),
guide = guide_legend(title = "Cylinders"))
ggplot(mtcars) + geom_point(aes(disp, mpg, color = factor(cyl))) +
scale_color_manual(values = c(