Creating Custom Legends for Scatter Plots in R using ggplot2 and DirectLabels: A Step-by-Step Guide