Iris Analysis

summary(iris)

list(iris)

nrow(iris)

ncol(iris)

num_numeric_vars <- sum(sapply(iris, is.numeric)) print(num_numeric_vars)

library(dplyr) n_distinct(iris$Species)

install.packages(“psych”) library(psych) describe(iris)

ggplot(iris) + geom_histogram(aes(x = Sepal.Length)) ggplot(iris) + geom_histogram(aes(x = Sepal.Width)) ggplot(iris) + geom_histogram(aes(x = Petal.Length)) ggplot(iris) + geom_histogram(aes(x = Petal.Width)) ggplot(iris) + geom_bar(aes(x = Species))