data <- iris

Chart 1

Chart 2

[1] 4

Chart 3