The five questions are illustrated as follows

The five questions are illustrated as follows ## 1 Expenditures on Meals and Drinks ## 2 Expenditures on Rent and Amenity ## 3 Average Sleeping Hours Per Day for Each Month ## 4 Average Weight ## 5 Average Hours Spent in Gym Per Month

Expenditures on Meals and Drinks

H <- c(1215.8,1389.2,1267.3,1190.4,1890.1,1211.9,992.3)
M <- c("Jan","Feb","March","April","May","Jun","July")
png(file = "Expenditures on Meals and Drinks.png")
barplot(H,names.arg=M,xlab="Month",ylab="Dollars",col="blue", main="Expenditure chart",border="red")

Expenditures on Rent and Amenity

H <- c(1111,1200,1134,1190,1190,1023,1088)
M <- c("Jan","Feb","March","April","May","Jun","July")
png(file = "Expenditures on Rent and Amenity.png")
barplot(H,names.arg=M,xlab="Month",ylab="Dollars",col="blue", main="Expenditure chart",border="red")

Average Sleeping Hours Per Day for Each Month

H <- c(7,7.1,7.3,8,8.2,6.9,6.3)
M <- c("Jan","Feb","March","April","May","Jun","July")
png(file = "verage Sleeping Hours Per Day for Each Month.png")
barplot(H,names.arg=M,xlab="Month",ylab="Hours",col="blue", main="Hours chart",border="red")

Average Weight

H <- c(140,141,139,142.2,138,139,139)
M <- c("Jan","Feb","March","April","May","Jun","July")
png(file = "Average Weight.png")
barplot(H,names.arg=M,xlab="Month",ylab="Pounds",col="blue", main="Weight chart",border="red")

Average Hours Spent in Gym Per Month

H<- c(4,5,6,5,1,2,4)
M <- c("Jan","Feb","March","April","May","Jun","July")
png(file = "Average Hours in Gym.png")
barplot(H,names.arg=M,xlab="Month",ylab="Hours",col="blue", main="Weight chart",border="red")