Cleaned up formatting in plot4.R