if (require("ggplot2") && require("poorman")) {
data <- iris[-5] %>%
aggregate(list(Species = iris$Species), mean) %>%
datawizard::reshape_longer(c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width"))
data %>%
ggplot(aes(
x = name,
y = value,
color = Species,
group = Species,
fill = Species
)) +
geom_polygon(size = 1, alpha = .1) +
coord_radar() +
theme_radar()
}
Run the code above in your browser using DataLab