R Code to plot my EOD diet results