Phase and annotation in R

Please post the data as part of a Reproducible Example and include calls to libraries() and code for making the plot as far as you know how. Thank you!