DataVisual.R

#str(mtcars)
#'data.frame':	32 obs. of  11 variables:
#  $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
#$ cyl : num  6 6 4 6 8 6 8 4 4 6 ...
#$ disp: num  160 160 108 258 360 ...
#$ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
#$ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
#$ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
#$ qsec: num  16.5 17 18.6 19.4 17 ...
#$ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
#$ am  : num  1 1 1 0 0 0 0 0 0 0 ...
#$ gear: num  4 4 4 3 3 3 3 4 4 4 ...
#$ carb: num  4 4 1 1 2 1 4 2 2 4 ...
 library("ggplot2", lib.loc="~/R/win-library/3.5")
 ggplot(mtcars,aes(x=cyl,y=mpg))+geom_point()
 ggplot(mtcars,aes(x=cyl,y=mpg))+geom_point()
#ggplot(mtcars,aes(x= factor(cyl),y=mpg))+geom_point()
ggplot(mtcars,aes(x=wt,y=mpg))+geom_point()
ggplot(mtcars,aes(x=wt,y=mpg,color=disp))+geom_point()
ggplot(mtcars,aes(x=wt,y=mpg,size=disp))+geom_point()
ggplot(diamonds,aes(x=carat,y=price))+geom_point()
ggplot(diamonds,aes(x=carat,y=price))+geom_point()+geom_smooth()
ggplot(diamonds,aes(x=carat,y=price))+geom_point(alpha=0.4)
val=c("#E41A1C","#377EB8")
#> lab=c("Manual","Automatic")
#> cyl.am+geom_bar(position = "dodge")+scale_x_discrete("cylinders")+scale_fill_manual("Transmission",values = val,labels=lab)
> 
# dia_plot<-ggplot(diamonds,aes(x=carat,y=price))
# dia_plot
# class(dia_plot)
#[1] "gg"     "ggplot"
# dia_plot+geom_point()
# dia_plot+geom_point(aes(color=clarity))
ggplot(mtcars,aes(x=wt,y=mpg,col=cyl))+geom_point(shape=4,size=4)