test7

library(ggplot2) library(ggthemes) library(dplyr)

ggplot(data=mpg)+
  geom_point(mapping=aes(x=displ,y=hwy,color=class))

left

ggplot(data=mpg)+
  geom_point(mapping=aes(x=displ,y=hwy,alpha=class))

right

ggplot(data=mpg)+
  geom_point(mapping=aes(x=displ,y=hwy),color="red")

facet_wrap

ggplot(data=mpg)+
  geom_smooth(mapping=aes(x=displ,y=hwy,color=drv), show.legend = FALSE)

facet two variables

ggplot(data=mpg)+
  geom_point(mapping=aes(x=displ,y=hwy))+

  facet_grid(dry~cyl)

ggplot(data=mpg)+
  geom_smooth(mapping=aes(x=displ,y=hwy,linetype=drv))

ggplot(data=mpg)+

geom_point(mapping=aes(x=displ,y=hwy))+
geom_smooth(mapping = aes(x=displ,y=hwy))

bar chart

ggplot(data=diamonds)+
  geom_bar(mapping = aes(x=cut))

making adjustments

ggplot(data=diamonds)+
  geom_bar(mapping=aes(x=cut,color=cut))

ggplot(data=diamonds)+
  geom_bar(mapping=aes(x=cut,fill=cut))

ggplot(data=diamonds)+
  geom_bar(mapping=aes(x=cut,fill=clarity))

dodge

ggplot(data=diamonds)+
  geom_bar(mapping=aes(x=cut,fill=clarity),position="dodge")