boxplot(Sepal.Length ~ Species, data = iris, main = "Box Plot of Sepal Length by Species", col = "lightblue")

waffle(table(iris$Species), rows = 5, title = "Waffle Chart of Iris Species")

library(fmsb) iris_means <- aggregate(iris[, 1:4], by = list(iris$Species), FUN = mean) radarchart(iris_means[, -1], title = "Radar Chart of Iris Species Means")

Wordcloud

ggplot(airquality, aes(x = Temp, y = Ozone)) + geom_point() + geom_smooth(method = "lm", col = "red") + ggtitle("Regression Plot: Temperature vs Ozone") + xlab("Temperature") + ylab("Ozone")

plot(iris$Sepal.Length, type = "l", main = "Line Plot of Sepal Length", xlab = "Index", ylab = "Sepal Length", col = "purple")

plot(iris$Sepal.Length, iris$Sepal.Width, main = "Scatter Plot: Sepal Length vs Sepal Width", xlab = "Sepal Length", ylab = "Sepal Width", col = iris$Species, pch = 19)

pie(table(airquality$Month), main = "Pie Chart of Months in Airquality Dataset", col = rainbow(length(unique(airquality$Month))))

pie(table(iris$Species), main = "Pie Chart of Iris Species", col = rainbow(length(unique(iris$Species))))

hist(airquality$Temp, main = "Histogram of Temperature", xlab = "Temperature", col = "pink")

hist(iris$Sepal.Length, main = "Histogram of Sepal Length", xlab = "Sepal Length", col = "orange")

barplot(table(airquality$Month), main = "Bar Chart of Months in Airquality Dataset", xlab = "Month", ylab = "Count", col = "lightgreen")

barplot(table(iris$Species), main = "Bar Chart of Iris Species", xlab = "Species", ylab = "Count", col = "skyblue")