R code library-GGplot