使用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 = "北京二手房价格直方图") #添加标题