Create partial_plot.r