survey<-read.csv("C:/Users/supre/Desktop/Survey.csv")
salary.satisfaction<-survey$X1..Are.you.satisfied.with.your.current.salary.
benefit.satisfaction<-survey$X2..Please.evaluate.the.benefit.of.company.
working.environment<-survey$X3..Your.company.working.environment.is.excellent
team.satisfaction<-survey$X4..Are.you.satisfied.with.your.team
self.progress<-survey$X5..How.do.you.evaluate.your.progress.from.your.work.
overall.rating<-survey$X6..Overall..how.do.you.feel.about.working.in.your.company.

    1. Are you satisfied with your current salary?
summary(survey$X1..Are.you.satisfied.with.your.current.salary.)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.000   2.000   3.000   2.471   3.000   4.000
hist(survey$X1..Are.you.satisfied.with.your.current.salary.,xlab="survey$salary.satisfaction", 
     border="blue", 
     col="purple",xlim = c(0,6))

According to the histogram bar chart, from 0 to 5, the average rate is 2.47 which implies that most of people have neutral attitude regarding their salarie levels. The maximum rating of their salary is 4, since they may think themselves who deserve higher salaries. There are still some people who choose 1 or 2, because it seems like their salaries are undervalued.

  1. Please evaluate the benefit of company?
plot(survey$X2..Please.evaluate.the.benefit.of.company.)

From the bar chart, most of the interviewees are satisfied with their benefits. Only one person chose excellent and one chose poor, so perhaps it can be considered as an outlier.

  1. Your company working environment is excellent
slices <- c(1,7,8,1,0)
lbls <- c("Strongly agree", "Agree", "Neutral", "Disagree", "Strongly disagree")
pie(slices, labels = lbls, main="working environment satisfaction")

From the pie chart, large amount of employees have neutral attitude with regard to the working enviroment, that may indicates the working enviroment is not essential for them to justify the satisfaction of work life.

  1. Are you satisfied with your team
plot(survey$'X4..Are.you.satisfied.with.your.team')
title('Are you satisfied with your team')

According to the graph of question 4, more than half of the people are somewhat satisfied with their team. No one is extremely satisfied or unsatisfied with their team. This shows our classmates are in general satisfied with their team environment.

  1. How do you evaluate your progress from your work?
survey$'X5..How.do.you.evaluate.your.progress.from.your.work.' = as.factor( survey$'X5..How.do.you.evaluate.your.progress.from.your.work.')
plot(survey$'X5..How.do.you.evaluate.your.progress.from.your.work.')
title('How do you evaluate your progress from your work')

In terms of evaluating the progress of the work, most people rated 3 or 4 of the progress of their work. Only 1 person rated 5 and no one rate below 2. In general, our classmates are gaining positive experience from work.

  1. Overall, how do you feel about working in your company?
survey$'X6..Overall..how.do.you.feel.about.working.in.your.company.' = as.factor( survey$'X6..Overall..how.do.you.feel.about.working.in.your.company.')
plot(survey$'X6..Overall..how.do.you.feel.about.working.in.your.company.')
title('Overall how do you fell about working in your company')

Most classmates rated 2 for their work, which falls within the lower rate among 1 - 5. This means most people are not satisfied with their work overall.