日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

   library(ggplot2)

   
   
   ggplot(data=employee,aes(x=salbegin,y=salary))+geom_point(shape=21,size=3)

   
   
   p <- ggplot(data=employee,aes(x=salbegin,y=salary))+geom_point(shape=21,size=3)
    p+geom_smooth(method = lm)

   
   
   p <- ggplot(data=employee,aes(x=salbegin,y=salary,color=jobcat))+geom_point(shape=21,size=3)

   
   
   p+geom_smooth(method = lm)

   
   
   p <- ggplot(data=employee,aes(x=salbegin,y=salary))+geom_point(shape=21,size=3)
    p+facet_wrap(~minority)