Last active
June 27, 2018 08:23
-
-
Save JosPolfliet/955dedbb0acdb1ddff07d5ec868c3030 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment