Objectives

To submit this homework you will create the document in Rstudio, using the knitr package (button included in Rstudio) and then submit the document to your Rpubs account. Once uploaded you will submit the link to that document on Canvas. Please make sure that this link is hyperlinked and that I can see the visualization and the code required to create it.

Look at the data

str(housing)
## 'data.frame':    72 obs. of  5 variables:
##  $ Sat : Ord.factor w/ 3 levels "Low"<"Medium"<..: 1 2 3 1 2 3 1 2 3 1 ...
##  $ Infl: Factor w/ 3 levels "Low","Medium",..: 1 1 1 2 2 2 3 3 3 1 ...
##  $ Type: Factor w/ 4 levels "Tower","Apartment",..: 1 1 1 1 1 1 1 1 1 2 ...
##  $ Cont: Factor w/ 2 levels "Low","High": 1 1 1 1 1 1 1 1 1 1 ...
##  $ Freq: int  21 21 28 34 22 36 10 11 36 61 ...

1. First plot

# place code for vis here
library(ggplot2)
p<-ggplot(housing, aes(x=Sat, y=Freq)) + geom_point(shape=1)
p+facet_grid(Cont~.)

For low contact residents that are afforded with other residents, residents have the low satisfaction about present housing circumstances have the highest numbers of residents in each class. For high contact residents that are afforded with other residents, residents have the highest satisfaction about present housing circumstances have the highest numbers of residents in each class. For both low and high contact residents that are afforded with other residents, residents have the medium satisfaction about present housing circumstances have the lowest numbers of residents in each class.

2. Second plot

# place code for vis here
p1<-ggplot(housing, aes(x=Infl, y=Freq)) + geom_point(shape=1)
p1+facet_grid(Cont~.)

For low contact residents that are afforded with other residents, residents that have low influence on management have the highest numbers of residents in each class. But for high contact residents that are afforded with other residents, residents that have Medium influence on management have the highest numbers of residents in each class.

3. Third plot

# place code for vis here
p2<-ggplot(housing, aes(x=Cont, y=Freq)) + geom_point(shape=1)
p2+facet_wrap(~Type,ncol=2)

For both low and high contact residents that are afforded with other residents, Atrium housing type has the lowest numbers of residents in each class,and Apartment housing type has the highest numbers of residents in each class

4. Fourth plot

# place code for vis here
p3<-ggplot(housing, aes(x=Sat,y=Freq)) + geom_point(shape=1)
p3+facet_grid(~Type)

For Tower/Apartment/Atrium housing type, residents with high satisfaction about present housing circumstances have the highest numbers of residents in each class. But for Terrace housing type, residents with low satisfaction about present housing circumstances have the highest numbers of residents in each class.

5. Fifth plot

# place code for vis here
p4<-ggplot(housing, aes(x=Sat, y=Freq)) + geom_point(shape=1)
p4+facet_grid(Type~Infl)

For Tower/Apartment/Atrium housing types, residents with high satisfaction about present housing circumstances and medium influence on management have the highest numbers of residents in each class. But for Terrace housing type, residents with low satisfaction about present housing circumstances and low influence on management have the highest numbers of residents in each class. For all four housing types, residents with low satisfaction about present housing circumstances and high influence on management have the lowest numbers of residents in each class.