codes in R Graphics Cookbook