Untitled

data(iris)

plot(iris$Sepal.Length, iris$Petal.Length,
     main="Sepal vs Petal Length",
     xlab="Sepal Length",
     ylab="Petal Length",
     pch=19, col="purple")

hist(iris$Sepal.Length,
     main="Sepal Length Distribution",
     col="lightblue")

boxplot(Sepal.Length ~ Species, data=iris,
        main="Sepal Length by Species",
        col="lightgreen")

counts <- table(iris$Species)
barplot(counts,
        main="Species Counts",
        col="orange")