An R script forsome descriptive figures