Update figure_S4.R

Make compatible with clean formatting of Dryad submission.