devtools::install_github("ricardo-bion/ggradar", dependencies=TRUE)
library(ggradar)
library(dplyr)
library(scales)
library(tibble)
library(ggplot2)
mtcars %>%
rownames_to_column( var = "group" ) %>%
mutate_at(vars(-group),funs(rescale)) %>%
tail(4) %>% select(1:10) -> mtcars_radar
ggradar(mtcars_radar,
values.radar = c("1", "5", '10'),
group.line.width = .5, group.point.size = 1,
background.circle.colour = "#D7D6D1",
background.circle.transparency = 0.5,
legend.position = 'right',
legend.text.size = 11,
gridline.max.linetype = 'solid',
gridline.min.linetype = 'solid',
gridline.max.colour = 'black',
gridline.min.colour = 'black')
0.png
