# NOT RUN {
# Create a radar/spider chart with ggplot:
if (require("dplyr") && require("tidyr") && require("ggplot2")) {
data <- iris %>%
group_by(Species) %>%
summarise_all(mean) %>%
pivot_longer(-Species)
data %>%
ggplot(aes(x = name, y = value, color = Species, group = Species)) +
geom_polygon(fill = NA, size = 2) +
coord_radar(start = -pi/4)
}
# }
Run the code above in your browser using DataLab