kraftheinz/Kahoot_Result
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ver 1.0

Browse Source
This commit is contained in:
Asitav Sen
2022-05-05 00:26:49 +02:00
parent 7104559db8
commit e10ce8e134
4 changed files with 592 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

182
Kahoot Result.Rmd
View File

@@ -2,12 +2,23 @@
title: "Kahoot Report"
author: "Scary Scarecrow"
date: "5/4/2022"
output: html_document
output:
html_document:
theme: lumen
highlight: tango
self_contained: true
toc: true
toc_depth: 4
toc_float: true
css: style.css
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
warning = FALSE
)
culture<-data.frame(Answer=c("Definitely","Somewhat","No Way","Not Sure","No Answer"),
Votes=c(0,7,0,0,1))
training<-data.frame(Answer=c("Definitely","Somewhat","No Way","Not Sure","No Answer"),
@@ -16,7 +27,7 @@ mentor<-data.frame(Answer=c("Definitely","Somewhat","No Way","Not Sure","No Answ
Votes=c(0,4,1,2,1))
documentation<-data.frame(Answer=c("Fully","Somewhat","Not Much","Not Clue","No Answer"),
Votes=c(0,3,3,1,0))
controls<-data.frame(Answer=c("Legislation","Business","Process","Risk","No Answer"),
controls<-data.frame(Answer=c("Legislation","Business","Rules","Risk","No Answer"),
Votes=c(5,6,3,5,0))
simulations<-data.frame(Answer=c("Definitely","Somewhat","No Way","Not Sure","No Answer"),
Votes=c(0,1,1,3,2))
@@ -39,31 +50,34 @@ library(dplyr)
library(wordcloud)
library(highcharter)
library(tidyr)
library(d3wordcloud)
```
## Technology
### Tech Use
```{r}
tech_use<-as.data.frame(table(tech_use))
wordcloud(tech_use$tech_use, tech_use$Freq, min.freq = 1, random.color = T, colors = c("red","green","purple","blue","cyan","magenta","grey2"), scale = c(2,0.5), rot.per = 0, fixed.asp = F)
d3wordcloud(tech_use$tech_use, tech_use$Freq, colors = c("#000000", "#0000FF", "#FF0000"), rangesizefont = c(30, 50),color.scale="sqrt",rotate.min=0, rotate.max=0,spiral="rectangular")
```
### Challenges in Tech Adoption
```{r}
tech_challenges<-as.data.frame(table(tech_challenges))
wordcloud(tech_challenges$tech_challenges, tech_challenges$Freq, min.freq = 1, random.color = T, colors = c("red","green","purple","blue","cyan","magenta","grey2"), scale = c(2,0.5), rot.per = 0, fixed.asp = F)
d3wordcloud(tech_challenges$tech_challenges, tech_challenges$Freq, colors = c("#000000", "#0000FF", "#FF0000"), rangesizefont = c(20, 50),color.scale="sqrt",rotate.min=0, rotate.max=0,spiral="rectangular")
```
## People
```{r}
culture
training
mentor
```{r}
culture |>
rename(Culture=Votes) |>
bind_cols(training) |>
@@ -93,7 +107,7 @@ culture |>
dataLabels = list(enabled = TRUE, format= "{point.score}%")) |>
hc_yAxis(title = list(text = "Average Score (%)"),
labels = list(format = "{value}%"), max = 100) |>
hc_title(text = "Score: People") |>
hc_title(text = "Mentorship and Training needs a boost") |>
hc_subtitle(text = "Average score from culture promotion and training and mentorship opportunities") |>
hc_credits(enabled = TRUE,
text = "LaNubia Data Science",
@@ -106,3 +120,149 @@ culture |>
## Data
```{r}
strunstr |>
rename(Data.Type=Votes) |>
bind_cols(quality) |>
select(1,2,4) |>
rename(Answer=Answer...1, Quality=Votes) |>
bind_cols(sources) |>
select(-4) |>
rename(Answer=Answer...1, Sources=Votes) |>
pivot_longer(!Answer,names_to = "Type",values_to = "values") |>
#pivot_wider(names_from = Answer, values_from = values)
mutate(point=case_when(
Answer=="Definitely" ~ 4,
Answer=="Somewhat" ~ 3,
Answer=="Nope" ~ 2,
Answer=="No Clue" ~ 1,
Answer=="No Answer" ~ 0,
)) |>
mutate(score=values*point) |>
group_by(Type) |>
summarise(score=sum(score)/sum(values)) |>
mutate(Max=4) |>
mutate(score=round(score*100/Max,2)) |>
ungroup() |>
arrange(score) |>
hchart("column", hcaes(x=Type, y=score), name="Data",
tooltip = list(pointFormat = "Avg. Score {point.Type}: {point.score}%"),
dataLabels = list(enabled = TRUE, format= "{point.score}%")) |>
hc_yAxis(title = list(text = "Average Score (%)"),
labels = list(format = "{value}%"), max = 100) |>
hc_title(text = "Data quality is a major issue") |>
hc_subtitle(text = "Average score from types of data used, its quality and sources") |>
hc_credits(enabled = TRUE,
text = "LaNubia Data Science",
href = "https://www.lanubia.com/") |>
hc_tooltip() |>
hc_add_theme(hc_theme_economist()) |>
hc_exporting(enabled = TRUE, # always enabled
filename = "Data")
```
## Process
```{r}
documentation |>
rename(Documentation=Votes) |>
bind_cols(simulations) |>
select(-3) |>
rename(Answer=Answer...1, Simulations=Votes) |>
pivot_longer(!Answer,names_to = "Type",values_to = "values") |>
#pivot_wider(names_from = Answer, values_from = values)
mutate(point=case_when(
Answer=="Fully" ~ 4,
Answer=="Somewhat" ~ 3,
Answer=="Not Much" ~ 2,
Answer=="Not Clue" ~ 1,
Answer=="No Answer" ~ 0,
)) |>
mutate(score=values*point) |>
group_by(Type) |>
summarise(score=sum(score)/sum(values)) |>
mutate(Max=4) |>
mutate(score=round(score*100/Max,2)) |>
ungroup() |>
arrange(score) |>
hchart("column", hcaes(x=Type, y=score), name="Process",
tooltip = list(pointFormat = "Avg. Score {point.Type}: {point.score}%"),
dataLabels = list(enabled = TRUE, format= "{point.score}%")) |>
hc_yAxis(title = list(text = "Average Score (%)"),
labels = list(format = "{value}%"), max = 100) |>
hc_title(text = "Opportunity exists in Process Simulation and Documentation") |>
hc_subtitle(text = "Average score from process documentation and simulations") |>
hc_credits(enabled = TRUE,
text = "LaNubia Data Science",
href = "https://www.lanubia.com/") |>
hc_tooltip() |>
hc_add_theme(hc_theme_economist()) |>
hc_exporting(enabled = TRUE, # always enabled
filename = "Process")
```
### Automation Opportunity
```{r}
automation |>
arrange(Votes) |>
hchart("column", hcaes(x=Answer, y=Votes), name="ProcessAutomation",
tooltip = list(pointFormat = "Votes {point.Answer}: {point.Votes}"),
dataLabels = list(enabled = TRUE, format= "{point.Votes}")) |>
hc_yAxis(title = list(text = "Count"),
labels = list(format = "{value}")) |>
hc_title(text = "Substantial Automation Opportunities Exist") |>
hc_subtitle(text = "Count of votes (Whether or not process automation opportunities exist)") |>
hc_credits(enabled = TRUE,
text = "LaNubia Data Science",
href = "https://www.lanubia.com/") |>
hc_tooltip() |>
hc_add_theme(hc_theme_economist()) |>
hc_exporting(enabled = TRUE, # always enabled
filename = "ProcessAuto")
```
### Process Controls
```{r}
controls |>
arrange(Votes) |>
hchart("column", hcaes(x=Answer, y=Votes), name="ProcessControl",
tooltip = list(pointFormat = "Votes {point.Answer}: {point.Votes}"),
dataLabels = list(enabled = TRUE, format= "{point.Votes}")) |>
hc_yAxis(title = list(text = "Count"),
labels = list(format = "{value}")) |>
hc_title(text = "Process rules need boost") |>
hc_subtitle(text = "Count of votes (Which controls exist)") |>
hc_credits(enabled = TRUE,
text = "LaNubia Data Science",
href = "https://www.lanubia.com/") |>
hc_tooltip() |>
hc_add_theme(hc_theme_economist()) |>
hc_exporting(enabled = TRUE, # always enabled
filename = "ProcessControl")
```

400
Kahoot-Result.html Normal file
View File

File diff suppressed because one or more lines are too long

BIN
logo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

21
style.css Normal file
View File

@@ -0,0 +1,21 @@
/*----------LOGO above TOC---------*/
#TOC::before {
content: "";
display: block;
height: 200px;
margin: 20px 20px 40px 20px;
background-image: url("logo.png");
background-size: contain;
background-position: center center;
background-repeat: no-repeat;
}
/*------------Table of Contents (TOC)----------- */
.tocify {
border: none; /*Removes border */
border-radius: 0px; /* Gets rid of rounded corners on TOC */
/*font-size: 16px;*/
}