comment ggplot2 code, revise header info