First Chart

plot(mtcars$hp, mtcars$mpg, col=mtcars$cyl  , xlab = "hp", ylab = "mpg")

library(leaflet)
my_map=leaflet() %>%
  addTiles()
my_map=my_map %>%
  addMarkers(lat=49.205744 , lng= -123.049948, popup="MV")
my_map

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

plot(pressure)

## Warning in set.seed(425): '.Random.seed' is not an integer vector but of
## type 'NULL', so ignored