Consolidated Analysis

install.packages("rmarkdown") # Make cool dynamic documents
install.packages("knitr") # Run R Code Chunks
install.packages("ggplot2") # For plotting
install.packages("DT") # Interactive HTML tables
install.packages("tidyverse") # Tidy Universe

What are the top individual skills in Data Science?

TopSkillsData <- ConsData %>% group_by(skill)  %>% summarise(Count=sum(count)) %>% arrange(desc(Count))

datatable(TopSkillsData)

What are the top groups skills?

SkillGroups <- read.csv("https://raw.githubusercontent.com/DATA607/Project3/master/SkillGroupings.txt", stringsAsFactors = FALSE, header = FALSE)
colnames(SkillGroups) <- c("Skill", "Group")
SkillGroups[1, 2] <- "Programming"
datatable(SkillGroups)

Skill group counts

TopSkillsGroupData <- ConsData %>% group_by(skill)  %>% summarise(Count=sum(count)) %>% arrange(desc(Count))

TopSkillsGroupData <- inner_join(TopSkillsGroupData, SkillGroups, by=c("skill" = "Skill"))
TopSkillsGroupData <- TopSkillsGroupData %>% group_by(Group) %>% summarise(GroupedCount=sum(Count)) %>% arrange(desc(GroupedCount))
datatable(TopSkillsGroupData)
TopSkillsGroupData <- TopSkillsGroupData %>% arrange(GroupedCount)
barplot(TopSkillsGroupData$GroupedCount, main="Top Skills by Groups", horiz=FALSE,
  names.arg=TopSkillsGroupData$Group, las=1, cex.axis = 0.5, cex.names=0.5)

Which cities values the Programming most in Data Science?

TopSkillsGroupData1 <- inner_join(ConsData, SkillGroups, by=c("skill" = "Skill"))
TopSkillsGroupDataProgByLocation <- TopSkillsGroupData1 %>% filter(Group=="Programming") %>% group_by(location) %>% summarise(Count=sum(count)) %>% arrange(desc(Count))
datatable(TopSkillsGroupDataProgByLocation)

If I am a programmer, what is the next best skill I should learn?

TopSkillsGroupData2 <- inner_join(ConsData, SkillGroups, by=c("skill" = "Skill"))
TopSkillsGroupData2 <- TopSkillsGroupData2 %>% filter(Group!="Programming")
TopNonProgSkills <- TopSkillsGroupData2 %>% group_by(skill) %>% summarise(Count=sum(count)) %>% arrange(desc(Count))
datatable(TopNonProgSkills)
options(warn=0)