Week4 GGPLOT Practice

library(tidyverse)
library(ggplot2)
# 1
ggplot(data=BOD,mapping=aes(x=Time, y=demand))+
  geom_point(size=5)+
  geom_line(colour="red")

# 2
ggplot(BOD,aes(Time,demand))+geom_point(size=3)+geom_line(color="red")

# 3 
CO2%>%
  ggplot(aes(conc,uptake,
             colour=Treatment))+
  geom_point(size=3, alpha=0.5)+
  geom_smooth(method = lm,se=F)+
  facet_wrap(~Type)+
  labs(title="Zhiyuan Fan Wk4")+
  theme_bw()

# 4
CO2%>%
  ggplot(aes(Treatment,uptake))+
  geom_boxplot()+
  geom_point(alpha=0.5, 
             aes(size=conc,colour=Plant))+
  facet_wrap(~Type)+
  coord_flip()+
  theme_bw()+
  labs(title = "Chilled vs Non-Chilled")

  
# 5
mpg%>%
  filter(cty<25)%>%
  ggplot(aes(displ,cty))+
  geom_point(aes(colour=drv,size=trans),alpha=0.5)+
  geom_smooth(method = lm)+
  facet_wrap(~year,nrow=1)+
  labs(x="Engine Size",y="MPG",title = "Zhiyuan Fan Wk4")+
  theme_bw()