# NOT RUN {
if (require("ggplot2") && require("poorman")) {
data <- iris[-5] %>%
aggregate(list(Species = iris$Species), mean) %>%
datawizard::reshape_longer(2:5)
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