Labeling in ggplot on top of point

Question

library(dplyr)
#Code
mpg %>%
  mutate(Color=ifelse(class==\'2seater\',\'2seater\',\'Other\')) %>%
  ggplot(aes(displ, hwy, colour = Color)) + 
  geom_point()
<