For Day 2

R for Data Vis

Section 1

Give an introduction to section 1A…viet phan chem gio

Sub Section 1

Write something in this sub section… chem gio affjfkfajf

library(dplyr)
library(ggplot2)

theme_set(theme_minimal())
iris %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Species, fill = Species)) + 
  geom_point() + 
  geom_smooth(method = "lm")

Sub Section 2

Write something in this sub section…

summary(iris)

##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 

Section 2

Give an introduction to section 2…

Sub Section 1

Write something in this sub section…

iris %>% 
  group_by(Species) %>% 
  count() %>% 
  ggplot(aes(Species, n, fill = Species)) + 
  geom_col()

Sub Section 2

Write something in this sub section…

Sub Section 3

Write something in this sub section…