雷达图

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