Nobel winners

library(tidyverse)

Let’s first load the data:

nobel <- ___(___)

Then let’s split the data into two:

# stem laureates
___ <- nobel %>%
  filter(___)

# non-steam laureates
___ <- nobel %>%
  filter(___)

And finally write out the data:

# add code for writing out the two data frames here

References