Как добавить белую рамку к цветному Geom_Point

Question

Я читаю https://r4ds.had.co.nz/data-visualisation.html. Упражнение 3.6.1. просит создать это

Я пытался fill = drv

library(tidyverse)
ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point(shape = 21, colour = "white", fill = drv, size = 5, stroke = 5)

и fill = factor(drv)

ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point(shape = 21, colour = "white", fill = factor(drv), size = 5, stroke = 5)

И получить ошибку

объект 'drv' не найден