期末考试

best_in_class <- mpg %>%
 group_by(class) %>%
 filter(row_number(desc(hwy)) == 1)
ggplot(mpg, aes(displ, hwy)) +
 geom_point(aes(color = class)) +
 geom_text(aes(label = model), data = best_in_class)

ggplot(mpg, aes(displ, hwy)) +
 geom_point(aes(color = class)) +
 geom_point(size = 3, shape = 1, data = best_in_class) +
 ggrepel::geom_label_repel(
 aes(label = model),
 data = best_in_class
 )