statinf1 with ggplot+basic plots