I want to put black boxes around the alpha values in the legend, so the smallest value (70) actually shows up.
mtcars test_plot <- ggplot() + geom_point(data