title: “Lab 1 - Survey Analysis Report” author: “Group 3” date: “03/24/2018” output: html_document: default
For the Lab 1 exercise we have created a “Management Development Feedback Survey” to collect people’s opinions on management development at their workplaces. The survey was designed and conducted in Google Form. There are six questions in total, among which four deployed Likert Scale method and two were multiple choices. The content of the questions ranges from overall satisfaction to evaluations on specific criteria. We have collected 17 responses in total. Please see our detailed analysis for each question below:
setwd("C:/Users/kangj/Dropbox/HU/ANLY-545-Analytical Methods II/Lab 1")
dat<-read.csv("survey.csv")
Q6<-read.csv("1.csv")
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.4.3
require(scales)
## Loading required package: scales
ggplot(dat, aes(x=q1)) +
geom_bar(aes(y=..count../sum(..count..))) +
labs(x="<<<< Strongly Disgree Strongly Agree >>>>", y="% of responses") +theme_bw() + scale_y_continuous(labels=percent)
The survey responses were quite scattered for this question. Roughly 24% percent of the respondants chose a neutral answer, while nearly 50% of the respondants indicated different levels of positive attitute in their answers.
ggplot(dat, aes(x=q2)) +
geom_bar(aes(y=..count../sum(..count..))) +
labs(x="<<<< Strongly Disagree Strongly Agree >>>>", y="% of responses") +
theme_bw() +
scale_y_continuous(labels=percent)
For this question, close to 60% of the respondants chose they agree or strongly agree with the statement and only 28.6% people don’t think their managers taking initiative. We can see that the majority of our respondant group have managers that take at least some level of initiative to cultivate career development.
ggplot(dat, aes(x=q3)) +
geom_bar(aes(y=..count../sum(..count..))) +
labs(x="<<<< Strongly Disagree Strongly Agree >>>>", y="% of responses") +
theme_bw() +
scale_y_continuous(labels=percent)
When it comes to setting clear career goals, the majority of the respondants provided affirmative answers, with 4% strongly agreeing with this statement and 58% showing some level of agreement.
ggplot(dat, aes(x=q4)) +
geom_bar(aes(y=..count../sum(..count..))) +
labs(x="<<<< Strongly Disagree Strongly Agree >>>>", y="% of responses") +
theme_bw() +
scale_y_continuous(labels=percent)
For this question, it is worth noticing the peak in the graph surrounding the somewhat neutral measures - the majority of the respondants didn’t seem to have a strong /clear understanding on how their performance is being evaluated by the management. This seems to be an interesting topic that calls for a deeper examination.
ggplot(data = Q6, aes(x=category, fill=skill))+geom_bar()
From the initial question, we could see that roughly 40% of our respondants either do not receive professional training or are unaware of the training they have received. Among the other 60% (approximation) who do receive professional training, the majority of the people received only technical skills directly relevant to their jobs.
ggplot(dat, aes(x=q7)) +
geom_bar(aes(y=..count../sum(..count..))) +
labs(x="<<<< Extremely Dissatisfied Extremely Satisfied >>>>", y="% of responses") +
theme_bw() +
scale_y_continuous(labels=percent)
From the result of this question we could see that the vast majority of the respondant (82.4%) showed positive attitute towards their managers, indicating the overall performance of the mangement teams of the interview group is at satisfactory level.
Although the result of the survey provided some insight on the satisfaction level of our respondants regarding management development, it is worth mentioning that the result of our survey might not be representative due to extreme small sample size. Other limitations, such as format and time also came into play during the survey design, so that a certain level of survey bias could have been introduced into the result.