ai_strategy_polar_plot.R

# Created by Jeroen Boeye (Faktion, Antwerp) in May 2018
#
# Faktion is a a European Applied A.I. boutique firm that combines strong business acumen 
# with technical mastery. We've been doing so for some of world’s largest companies.
#
# With specializations in natural language, signal data and computer vision, we support
# our customers from strategy and engineering, all the way to the integration into their
# business processes.
#
# Come on. Challenge us. We’d love to explore what we can do for you.
#


library(tidyverse)
library(ggthemes)

##### Fill in these two things: ########

customer = "MY COMPANY"
scores = c(1, 1, 1, 
           1, NA, 1, 
           1, 5, 1, 
           1, 1, 3)

##### Just run everything below and cross your fingers ########


dimensions = c('Monetization', 'Decision making', 'Roadmap',
               'Collection', 'Quality & Governance', 'Accessibility',
               'Maturity', 'Development', 'Organization',
               'Model lifecycle', 'Security', 'GDPR')

group = rep(c('Strategy  ','Technology  ', 'People  ', 'Process & Legal'), each=3)

level = c('Technology  ', 'Strategy  ', 'People  ', 'Process & Legal')


df = tibble(dimension = dimensions,
            score =  scores,
            group = group) %>% 
  mutate(group = factor(group, levels = level)) %>% 
  arrange(group) %>% 
  mutate(dimension = fct_inorder(dimension))

# plot
plt = df %>% 
  na.omit() %>% 
  ggplot(aes(x=dimension, y=score, fill=group)) +
  geom_col(alpha = 0.85) + 
  coord_polar()+
  labs(title = 'Faktion Artificial Intelligence Maturity Model',
       subtitle = paste0('For ', customer, '.')) +
  ggthemes::scale_fill_tableau()+
  scale_y_continuous(limits = c(0, 5))+
  theme_minimal()+
  theme(legend.position = 'bottom',
        legend.title=element_blank(),
        legend.text = element_text(size=rel(1)),
        panel.grid.major.y = element_line(colour = 'grey90', size = rel(0.3)),
        axis.title = element_blank(),
        axis.text.y = element_blank(), 
        axis.text.x = element_text(size=rel(1)))+
  guides(colour = guide_legend(override.aes = list(size = rel(4))))

plt

# ggsave(plot=plt, filename = paste0('strategy-polar-plot/plots/strategy_', customer, '.png'), width = 6, height = 7)