ggplot add custom legend like in base r code example

Example: ggplot put legend in plot

p + theme(legend.position = c(0.8, 0.2))