Add sample code from R Graphs cookbook