Create plotPost.R