Respecto al sépalo:
data(iris) str(iris) # Media Sépalo mean(iris$Sepal.Length) mean(iris$Sepal.Width) # Media Pétalo mean(iris$Petal.Length) mean(iris$Petal.Width)