Add soak data, R script for soak plot