In this work, with google translate notebook, a spreadsheet is exported then imported to R studio to generate a webpage.

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")

library(maps) library(ggmap) data("USArrests") us_map <- map_data("state") USArrests$region <- tolower(rownames(USArrests)) map_data <- merge(us_map, USArrests, by = "region") map_plot <- ggplot(map_data, aes(x = long, y = lat, group = group, fill = Murder)) + geom_polygon(color = "black") + scale_fill_gradient(low = "white", high = "red") + labs(title = "Map: Murder Rate by State", fill = "Murder Rate") + theme_void() print(map_plot)