Mini Lesson 11
Tin Le
December 7, 2017
knitr::opts_chunk$set(echo = TRUE)
library(shiny)
library(tidyverse)## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr## Conflicts with tidy packages ----------------------------------------------## filter(): dplyr, stats
## lag(): dplyr, statslibrary(readr)
survey <- read_csv("E:/Download/csc463/CSC_463_Project/survey_results_public.csv")## Parsed with column specification:
## cols(
## .default = col_character(),
## Respondent = col_integer(),
## CareerSatisfaction = col_integer(),
## JobSatisfaction = col_integer(),
## HoursPerWeek = col_integer(),
## StackOverflowSatisfaction = col_integer(),
## Salary = col_double(),
## ExpectedSalary = col_double()
## )## See spec(...) for full column specifications.looking at the dataset
summary(survey)## Respondent Professional ProgramHobby Country
## Min. : 1 Length:51392 Length:51392 Length:51392
## 1st Qu.:12849 Class :character Class :character Class :character
## Median :25697 Mode :character Mode :character Mode :character
## Mean :25697
## 3rd Qu.:38544
## Max. :51392
##
## University EmploymentStatus FormalEducation
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## MajorUndergrad HomeRemote CompanySize
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## CompanyType YearsProgram YearsCodedJob
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## YearsCodedJobPast DeveloperType WebDeveloperType
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## MobileDeveloperType NonDeveloperType CareerSatisfaction
## Length:51392 Length:51392 Min. : 0.000
## Class :character Class :character 1st Qu.: 6.000
## Mode :character Mode :character Median : 8.000
## Mean : 7.301
## 3rd Qu.: 9.000
## Max. :10.000
## NA's :8697
## JobSatisfaction ExCoderReturn ExCoderNotForMe ExCoderBalance
## Min. : 0.000 Length:51392 Length:51392 Length:51392
## 1st Qu.: 6.000 Class :character Class :character Class :character
## Median : 7.000 Mode :character Mode :character Mode :character
## Mean : 6.957
## 3rd Qu.: 8.000
## Max. :10.000
## NA's :11016
## ExCoder10Years ExCoderBelonged ExCoderSkills
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## ExCoderWillNotCode ExCoderActive PronounceGIF
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## ProblemSolving BuildingThings LearningNewTech
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## BoringDetails JobSecurity DiversityImportant
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## AnnoyingUI FriendsDevelopers RightWrongWay
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## UnderstandComputers SeriousWork InvestTimeTools
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## WorkPayCare KinshipDevelopers ChallengeMyself
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## CompetePeers ChangeWorld JobSeekingStatus HoursPerWeek
## Length:51392 Length:51392 Length:51392 Min. : 0.000
## Class :character Class :character Class :character 1st Qu.: 1.000
## Mode :character Mode :character Mode :character Median : 1.000
## Mean : 3.952
## 3rd Qu.: 4.000
## Max. :40.000
## NA's :30792
## LastNewJob AssessJobIndustry AssessJobRole
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## AssessJobExp AssessJobDept AssessJobTech
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## AssessJobProjects AssessJobCompensation AssessJobOffice
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## AssessJobCommute AssessJobRemote AssessJobLeaders
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## AssessJobProfDevel AssessJobDiversity AssessJobProduct
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## AssessJobFinances ImportantBenefits ClickyKeys
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## JobProfile ResumePrompted LearnedHiring
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## ImportantHiringAlgorithms ImportantHiringTechExp
## Length:51392 Length:51392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
##
## ImportantHiringCommunication ImportantHiringOpenSource
## Length:51392 Length:51392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
##
## ImportantHiringPMExp ImportantHiringCompanies ImportantHiringTitles
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## ImportantHiringEducation ImportantHiringRep
## Length:51392 Length:51392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
##
## ImportantHiringGettingThingsDone Currency Overpaid
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## TabsSpaces EducationImportant EducationTypes
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## SelfTaughtTypes TimeAfterBootcamp CousinEducation
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## WorkStart HaveWorkedLanguage WantWorkLanguage
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## HaveWorkedFramework WantWorkFramework HaveWorkedDatabase
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## WantWorkDatabase HaveWorkedPlatform WantWorkPlatform
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## IDE AuditoryEnvironment Methodology
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## VersionControl CheckInCode ShipIt
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## OtherPeoplesCode ProjectManagement EnjoyDebugging
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## InTheZone DifficultCommunication CollaborateRemote
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## MetricAssess EquipmentSatisfiedMonitors EquipmentSatisfiedCPU
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## EquipmentSatisfiedRAM EquipmentSatisfiedStorage EquipmentSatisfiedRW
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## InfluenceInternet InfluenceWorkstation InfluenceHardware
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## InfluenceServers InfluenceTechStack InfluenceDeptTech
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## InfluenceVizTools InfluenceDatabase InfluenceCloud
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## InfluenceConsultants InfluenceRecruitment InfluenceCommunication
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## StackOverflowDescribes StackOverflowSatisfaction StackOverflowDevices
## Length:51392 Min. : 0.00 Length:51392
## Class :character 1st Qu.: 8.00 Class :character
## Mode :character Median : 9.00 Mode :character
## Mean : 8.43
## 3rd Qu.:10.00
## Max. :10.00
## NA's :14800
## StackOverflowFoundAnswer StackOverflowCopiedCode StackOverflowJobListing
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## StackOverflowCompanyPage StackOverflowJobSearch StackOverflowNewQuestion
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## StackOverflowAnswer StackOverflowMetaChat StackOverflowAdsRelevant
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## StackOverflowAdsDistracting StackOverflowModeration
## Length:51392 Length:51392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
##
## StackOverflowCommunity StackOverflowHelpful StackOverflowBetter
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## StackOverflowWhatDo StackOverflowMakeMoney Gender
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## HighestEducationParents Race SurveyLong
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## QuestionsInteresting QuestionsConfusing InterestedAnswers
## Length:51392 Length:51392 Length:51392
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## Salary ExpectedSalary
## Min. : 0 Min. : 0
## 1st Qu.: 26440 1st Qu.: 4490
## Median : 50000 Median : 29364
## Mean : 56298 Mean : 33142
## 3rd Qu.: 80000 3rd Qu.: 50403
## Max. :197000 Max. :187500
## NA's :38501 NA's :48826## a but ton of columns. Looking for just a few
ShortSurvey <- survey %>%
select(Respondent,
Country,
Professional,
MajorUndergrad,
HoursPerWeek,
IDE,
Salary,
Gender,
JobProfile,
AuditoryEnvironment,
Race,
ClickyKeys,
CareerSatisfaction
) %>%
na.omit()
ShortSurvey## # A tibble: 2,669 x 13
## Respondent Country Professional
## <int> <chr> <chr>
## 1 26 United States Professional developer
## 2 35 Croatia Professional developer
## 3 58 Italy Professional developer
## 4 71 United States Professional developer
## 5 111 United Kingdom Professional developer
## 6 134 India Professional developer
## 7 135 United States Professional developer
## 8 149 Lithuania Professional developer
## 9 174 Ukraine Professional developer
## 10 216 India Professional developer
## # ... with 2,659 more rows, and 10 more variables: MajorUndergrad <chr>,
## # HoursPerWeek <int>, IDE <chr>, Salary <dbl>, Gender <chr>,
## # JobProfile <chr>, AuditoryEnvironment <chr>, Race <chr>,
## # ClickyKeys <chr>, CareerSatisfaction <int>thinking of some interesting variables to implement and answering a question I dont know yet???
Maybe trying to implement them in shiny, tableu or neither?
SalarySurvey <- ShortSurvey %>%
select(Respondent,
Country,
Professional,
Salary,
JobProfile)
# Where all the money at
ggplot(ShortSurvey, aes(Respondent, Salary, col = Country)) +
geom_point()
SalarySurvey %>%
group_by(Country) %>%
summarise(Salary = mean(Salary))## # A tibble: 98 x 2
## Country Salary
## <chr> <dbl>
## 1 Afghanistan 16143.50
## 2 Albania 80000.00
## 3 Argentina 24501.18
## 4 Armenia 10250.00
## 5 Australia 75757.58
## 6 Austria 50391.19
## 7 Bangladesh 7139.67
## 8 Belarus 80000.00
## 9 Belgium 44810.04
## 10 Bosnia-Herzegovina 22580.65
## # ... with 88 more rows# Lollipop Chart
ggplot(SalarySurvey, aes(x = reorder(Country, Salary), y = Salary)) +
geom_point(stat = "identity", fill = "black", size = 3) +
geom_segment(aes(y = 0,
x = Country,
yend = Salary,
xend = Country),
color = "black") +
labs(title = "Lollipop Chart",
subtitle = "average pay for each country") +
coord_flip()
ew