Lab 3.1: Make a plot

library(datasetsICR)
data("seeds")
library(ggplot2)
plot <- ggplot(data = seeds, mapping = aes(x = area, y = perimeter))

plot + geom_point() + geom_smooth()

plot + geom_point(mapping = aes(color = variety), size = 2) + geom_smooth(color = "black", method = "lm")

plot + geom_point(mapping = aes(color = variety), size = 2) + geom_smooth(color = "black", method = "lm") +
  labs( x = "Area (square millimeters)", y = "Perimeter (millimeters)", 
  title = "Wheat Seed Size By Variety", subtitle = "One data point is a seed",caption = "Source: datasetsICR v1.0")

Final_Plot