r radar.R

Posted 2021-05-24

devtools::install_github("ricardo-bion/ggradar", 
                         dependencies=TRUE)

download.file("https://dl.dropboxusercontent.com/u/2364714/airbnb_ttf_fonts/Circular Air-Light 3.46.45 PM.ttf", "/Library/Fonts/Circular Air-Light 3.46.45 PM.ttf", method="curl")

extrafont::font_import(pattern = 'Circular', prompt=FALSE)

library(ggradar)

suppressPackageStartupMessages(library(dplyr))
library(scales)

mtcars %>%
  tibble::rownames_to_column( var = "group" ) %>%
  mutate_each(funs(rescale), -group) %>%
  head(4) %>% select(1:10) -> mtcars_radar

ggradar(mtcars_radar)