surnames/global.R

library(shiny)
library(ggplot2)
library(fmsb)
library(dplyr)

load('surnames_final.RData')
surnames.final <- surnames_final %>% 
  filter(count >= 50,
         mean >= 0.70,
         white >= 45)

OURNAMES <- c('adams', 'brenn', 'aden', 'buie')
PROFILE  <- c('white', 'black', 'asian', 'native', 'multiple', 'hispanic')
CLUSTER_NAMES <- surnames.final$cluster_name

radarplot <- function(data, is_names = TRUE, ...) {
  data[is.na(data)] <- 0
  add_max_min_rows <- function(x, max, min) {
    rbind(rep(max, length(x)), rep(min, length(x)), x)
  }
  if (is_names) {
    data <- add_max_min_rows(data[, OURNAMES], 1, 0)
    pcol.this  <- rgb(0.2,0.5,0.5,0.9)
    pfcol.this <- rgb(0.2,0.5,0.5,0.5)
    caxislabels.this <- seq(0,1,5)
    title.this <- "Our Names"
  } else {
    data <- add_max_min_rows(data[, PROFILE], 100, 0)
    pcol.this  <- "#36648BE6"
    pfcol.this <- "#36648B80"
    caxislabels.this <- seq(0,100,20)
    title.this <- "Profile"
  }
  radarchart(data, title = title.this,
             pcol = pcol.this, pfcol = pfcol.this,
             plwd = 4,
             cglcol = 'grey', cglty = 1,
             axislabcol = "grey",
             caxislabels = seq(0, 1, 5),
             cglwd = 0.8,
             vlcex = 0.8,
             centerzero = TRUE,
             ...
  )
}