Figure 2 transferred to ggplot2