Create sharedplot.r