Ver 1.0

4 years ago · e10ce8e134
4 changed files with 592 additions and 11 deletions
--- a/Result.Rmd
+++ b/Result.Rmd
@ -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")
+```
+
+
+
+
+
+
+
+
+
+
--- a/Kahoot-Result.html
+++ b/Kahoot-Result.html
--- a/logo.png
+++ b/logo.png
--- a/style.css
+++ b/style.css
@ -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;*/
+}