Updated PI Simulation with ggplot2 plots