practice_analytics2.R

survey_data<-read.csv("Responses_cleaned.csv")

survey_data$importance<-factor(survey_data$importance)
survey_data$controlling<-factor(survey_data$controlling)
survey_data$survey_quality<-factor(survey_data$survey_quality)


survey_data$how_many_hour<-survey_data$hou_many_hour
survey_data$whether_exercise<-survey_data$whether_erercise

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.5.2

#importance
ggplot(survey_data, aes(x=importance, fill =as.factor(importance))) + geom_bar()+ggtitle("In your opinion, how important is exercise for a healthy lifestyle?")

#frequency
ggplot(survey_data, aes(x=frequency, fill =as.factor(frequency))) + geom_bar()+ggtitle("How often do you exercise in a week?")

#type
ggplot(survey_data, aes(x=type, fill =as.factor(type))) + geom_bar()+ggtitle("What type of exercise do you do?")

#diet
ggplot(survey_data, aes(x=controlling, fill =as.factor(controlling))) + geom_bar()+ggtitle("How important is controlling diet with your workout? (Rate from 1-4, 1 being lowest, 4 being highest)
")