使用ggplot2包繪制直方圖
######*****繪制直方圖代碼*****#######
data1 <- data0[(data0[, 2] <= 500) & (data0[, 4] <= 150000), ]
#提取面積500以下且單價十五萬以下的觀測
ggplot(data1, aes(x = price)) + #選取單價作為橫軸
geom_histogram(bins = 30, fill = "grey60") + #畫直方圖
labs(x = "價格", y = "頻數", title = "北京二手房價格直方圖") #添加標題