Quiz 2

year <- c(2000, 2005, 2010, 2015, 2020)
population <- c(282, 295, 309, 321, 331)

Scatterplot

plot(
  year,
  population,
  type="l",
  col="lightblue",
  main="Population by Year",
  ylab="Population (millions)",
  xlab="Year"
)+
  points(year, 
        population,
         pch= 8,
         col= "lightblue")

## integer(0)

Boxplot

head(iris)

##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa
## 4          4.6         3.1          1.5         0.2  setosa
## 5          5.0         3.6          1.4         0.2  setosa
## 6          5.4         3.9          1.7         0.4  setosa

boxplot(
  iris$Species,
 iris$Petal.Length,
  col = "maroon",
  xlab = "Species",
  ylab = "Petal Length",
  main = "Petal Length by Species"
)