Works in Base R 3.1, Rstudio, etc

I think the problem was that the ggplot was never actually displayed
with print(PlotJ(*))

I also added a comment of what I did (run everything), and the function
I used to get the results.