scale_colour_discrete doesn't work when reproducing an example in R cookbook

Question

I\'m trying to reproduce an example here R Cookbook that specifies both color and shape in the legend.

The original code is

# A different data set
df2