Create slopegraph.R