Abstract

The below survey is conducted for the class assignment 1, for analytical methods II. The survey is about the graduate student of Harrisburg University of Science and Technology. The survey details in an attempt to understand the facilities available to the students also the communication from the graduate student center.

Methods

The data we collected from the survey already have a graphical element associated with it. We future tried to explore the data through R studio. The exploratory analysis could shed some light on the depth of understanding the survey. ####Participants The class was considered as the participants. A total of 9 responses were collected from 9 students. ####Procedure Exploratory data analysis - Bar charts, pie chart etc

Import survey data

Question 1

tries to understand the time the student has spent with the university. 44.4 % of the respondents ( 4 students) are in their 4th Semester. 3 students are in their 3rd semester (33.3%), 1 student from 2nd Second semester and 1 student from 6th semester. This can conclude how long a student has been with University of Harrisburg. We can actually understand this in more detail from the following table. 1st semester - 3 Months 2nd Semester - 6 Months 3rd Semester - 9 Months 4th Semester - 12 Months 5th Semester - 1 Year and 3 Months 6th Semester - 1 Year and 6 Months.

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.4.3
s<- read.csv("C:/Users/atan/Desktop/Grad experience at HU.csv",header=TRUE)
s1<- s[, c(1,2)]
p1<- ggplot(s1, aes(x=s1$Which.semester.are.you.currently.pursuing.at.HU.))+geom_bar(color="blue", fill="blue" )+ labs(title="Which semester are you currently pursuing at HU ")+xlab("Semester")
p1

Question 2

address the ease of access of the elevators in the building. 55.5% of the students expressed dislike to have ID cards to access Elevators (5 Students), while 1 student remains neutral and 33.3% actually like this facility (4 Students).

s2<- s[, c(1,3)]
p2<- ggplot(s2, aes(x=s2$On.a.scale.of.1.5..how.well.do.you.like.using.your.ID.card.the.access.the.elevator.))+geom_bar(color="dark green", fill="dark green" )+ labs(title=" Statisfaction using Elevator with ID access ")+xlab("Satisfaction") 
p2

Question 3 Should parking be free at HU

this question address the huge hassle for every student who commutes via a car. Parking is pretty expensive around HU and it cost $20 minimum to park at the university parking. 100% of the respondents agree that parking should be free for students.

slice<- c(9)
lbls <- c("Yes")
pct <- round(slice/sum(slice)*100)
lbls <- paste(lbls, pct)
lbls <- paste(lbls,"%",sep="")
pie(slice, labels=lbls, col=rainbow(length(lbls)), main="Pie Chart of Should Parking be free")

Question 4 Parking Fee,

this question tries to understand how much the students are willing to pay if parking is not free. 66.6% of the respondents feel $5 is a student friendly budget to park at the university parking (6 Students), while 33.3% were comfortable with paying $10 (3 Students).

library(plotrix)
## Warning: package 'plotrix' was built under R version 3.4.3
slice<- c(6,3)
lbls <-c("$5", "$10")
pie3D(slice, labels=lbls, explode=0.1, main="Pie Chart of Parking Fee")

Question 5, Should university need a cafeteria ?

address the issue of access to a cafeteria. 66.7% of the respondents feel they need to have a cafeteria in the building (6 students), while 33.3% of the respondents feel neutral for the need of cafeteria (3 Students).

s5<- s[, c(1,6)]
p5<- ggplot(s5, aes(x=s5$Should.the.university.need.to.have.a.cafeteria.))+geom_bar(color="purple", fill="purple" )+ labs(title=" Should the university need a cafeteria ")+xlab("Response")
p5

Question 6 ,Communication from graduate student center

addresses the most important issue of all, University communication. Often a slightest delay in addressing an issue can cause jeopardy to the student’s career or immigration status. 5 respondents feel neutral, while 3 respondents feel its bad and 1 student feels it’s good. The scale is given below 1-Very Bad 2-Bad 3- Neutral 4- good 5- Very Good

s6<- s[, c(1,7)]
p6<- ggplot(s6, aes(x=s6$How.satisfied.are.you.with.the.communication.from.the.graduate.student.center...1.being.the.lowest.and.5.being.extremely.satisfied.))+geom_bar(color="orange", fill="orange" )+ labs(title=" Communication from graduate student center ")+xlab("Satisfaction level")
p6

Question 7 Overall experience at HU

looks at the student satisfaction from an overall perspective. 6 Students remain neutral while 1 student feels it’s a good experience and 2 students feels it’s a very good experience. 1-Very Bad 2-Bad 3- Neutral 4- good 5- Very Good

s7<- s[, c(1,8)]
p7<- ggplot(s7, aes(x=s7$Rate.your.overall.experience.with.HU...1.being.the.lowest.and.5.being.extremely.satisfied.))+geom_bar(color="pink", fill="pink" )+ labs(title="overall experience at HU ")+xlab("Satisfaction level")
p7