Data Products

# load data
data(iris)

# check object class
class(iris)

[1] "data.frame"

summary(iris[, c("Sepal.Length","Sepal.Width")])

  Sepal.Length    Sepal.Width   
 Min.   :4.300   Min.   :2.000  
 1st Qu.:5.100   1st Qu.:2.800  
 Median :5.800   Median :3.000  
 Mean   :5.843   Mean   :3.057  
 3rd Qu.:6.400   3rd Qu.:3.300  
 Max.   :7.900   Max.   :4.400  

And now the following:

require(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species)

what will this code produce as a result?