homework2

west_roxbury <- mlba::WestRoxbury
library(gridExtra)
library(grid)
library(ggplot2)
g1 <- ggplot(west_roxbury) + geom_boxplot(aes(x = factor(FLOORS), y = TOTAL.VALUE))
g2 <- ggplot(west_roxbury) + geom_boxplot(aes(x = factor(BEDROOMS), y = TOTAL.VALUE))
g3 <- ggplot(west_roxbury) + geom_boxplot(aes(x = factor(ROOMS), y = TOTAL.VALUE))
g4 <- ggplot(west_roxbury) + geom_boxplot(aes(x = factor(FIREPLACE), y = TOTAL.VALUE))
grid.arrange(g1, g2, g3, g4, ncol=2, nrow=2)

library(ggplot2)
g5 <- ggplot(west_roxbury,aes(x = FLOORS, y = TOTAL.VALUE)) + geom_bar(stat = "identity") 
g6 <- ggplot(west_roxbury,aes(x = BEDROOMS, y = TOTAL.VALUE)) + geom_bar(stat = "identity") 
g7 <- ggplot(west_roxbury,aes(x = ROOMS, y = TOTAL.VALUE)) + geom_bar(stat = "identity") 
g8 <- ggplot(west_roxbury,aes(x = FIREPLACE, y = TOTAL.VALUE)) + geom_bar(stat = "identity") 
grid.arrange(g5,g6,g7,g8, ncol=2, nrow=2)

hist(west_roxbury$TOTAL.VALUE, xlab="TOTAL.VALUE")

library(ggplot2)
ggplot(west_roxbury, aes(x = LIVING.AREA, y = TOTAL.VALUE)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE)

## `geom_smooth()` using formula = 'y ~ x'

cor_matrix <- west_roxbury[,-14]
heatmap(cor(cor_matrix),Rowv = NA,Colv = NA)

library(MASS)
par(mfcol = c(2,1))
parcoord(west_roxbury[west_roxbury$FULL.BATH == 1, -14], main = "FULL.BATH = 1")
parcoord(west_roxbury[west_roxbury$FULL.BATH == 2, -14], main = "FULL.BATH = 2")

library(treemap)
treemap(west_roxbury, index = "ROOMS", vSize = "LIVING.AREA")

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.