ver0

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

Kahoot Result.Rmd

@@ -0,0 +1,108 @@
+---
+title: "Kahoot Report"
+author: "Scary Scarecrow"
+date: "5/4/2022"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+
+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"),
+                    Votes=c(0,3,3,2,0))
+mentor<-data.frame(Answer=c("Definitely","Somewhat","No Way","Not Sure","No Answer"),
+                    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"),
+                    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))
+automation<-data.frame(Answer=c("Yes","No"),
+                    Votes=c(7,0))
+
+tech_use<-c("AI","AI","excel","BI","Lucy","Recipe predict","Tableau","Cloud")
+
+tech_challenges<-c("Time","Time","Time","Resistance","Time","People","Knowledge",
+                   "People","People", "Excel", "Speed", "Data Availability", "Self Exp","Frequency")
+
+strunstr<-data.frame(Answer=c("Definitely","Somewhat","Nope","No Clue","No Answer"),
+                    Votes=c(3,2,2,0,0))
+quality<-data.frame(Answer=c("Definitely","Somewhat","Nope","No Clue","No Answer"),
+                    Votes=c(0,2,4,1,0))
+sources<-data.frame(Answer=c("Definitely","Somewhat","Nope","No Clue","No Answer"),
+                    Votes=c(2,4,1,0,0))
+
+library(dplyr)
+library(wordcloud)
+library(highcharter)
+library(tidyr)
+```
+
+## Technology
+
+```{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)
+```
+
+
+
+```{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)
+```
+
+## People
+
+```{r}
+culture
+training
+mentor
+
+culture |> 
+  rename(Culture=Votes) |> 
+  bind_cols(training) |> 
+  select(1,2,4) |> 
+  rename(Answer=Answer...1, Training=Votes) |> 
+  bind_cols(mentor) |> 
+  select(-4) |> 
+  rename(Answer=Answer...1, Mentor=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=="No Way" ~ 2,
+    Answer=="Not Sure" ~ 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="People",
+         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 = "Score: People") |>
+  hc_subtitle(text = "Average score from culture promotion and training and mentorship opportunities") |>
+  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 = "People")
+```
+
+
+

Kahoot_Result.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX