Anran WANG_B21070018_2

# import library
library(ggplot2) 

# read data
da <- mlba::WestRoxbury 
View(da) # View Dataset


# boxplot
boxplot(da$TOTAL.VALUE, ylab="TOTAL.VALUE") 

boxplot(da$TAX, ylab="TAX")

boxplot(da$LIVING.AREA, ylab="LIVING.AREA")

# histogram
ggplot(da) + geom_histogram(aes(x=TOTAL.VALUE), bins=9) + ylab("Cout") 

# scatter plot
plot(da$TOTAL.VALUE~da$LOT.SQFT, xlab="LOT.SQFT", ylab="TOTAL.VALUE") 

# bar chart
mydata <- aggregate(da$TOTAL.VALUE, by=list(da$BEDROOMS), FUN=mean)
str(mydata) 

## 'data.frame':    9 obs. of  2 variables:
##  $ Group.1: int  1 2 3 4 5 6 7 8 9
##  $ x      : num  274 318 375 443 523 ...

ggplot(mydata, aes(x=Group.1, y=x, fill=Group.1)) + geom_bar(stat="identity") + geom_text(aes(label = x), vjust = -0.5) +  xlab("bedrooms") + ylab("Average TAX")