ggplot(mpg, aes(displ, hwy)) + 
 geom_point(aes(color = class)) + 
 geom_label( 
 aes(label = model), 
 data = best_in_class, 
 nudge_y = 2, 
 alpha = 0.5 
 )