R code for the fortify() method in Chapter 9