initial crate plot1.R and png file