Xet bo du lieu mau iris

library(tidyverse)
iris %>% ggplot(aes(Sepal.Length, Sepal.Width, colour = Species)) + geom_point() + geom_smooth(method = "lm") + facet_wrap(~Species)

library(WDI)

mydf <- WDI(country = "all", 
            start = 2015, end = 2016, 
            indicator = c("SP.POP.TOTL"))

head(mydf)
##   iso2c                        country SP.POP.TOTL year
## 1    1A                     Arab World          NA 2016
## 2    1A                     Arab World   392168030 2015
## 3    S3         Caribbean small states          NA 2016
## 4    S3         Caribbean small states     7116360 2015
## 5    B8 Central Europe and the Baltics          NA 2016
## 6    B8 Central Europe and the Baltics   103256779 2015
vietnam <- mydf %>% filter(country == "Vietnam")

vietnam %>% ggplot(aes(year, SP.POP.TOTL)) + geom_point()

Cac thong ke co ban:

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  
##                 
##                 
##