Create ggplot-part1-section1to4