使用ggplot2绘制箱线图
######*****绘制箱线图代码*****#######
data1$学区房 <- factor(data1$school, levels = 0:1, labels = c("否", "是"))
#设置学区房数据为因子类型
data1$CATE <- factor(data1$CATE,
levels = c('xicheng', 'dongcheng', 'haidian',
'chaoyang', 'fengtai', 'shijingshan'),
labels = c('西城', '东城', '海淀', '朝阳', '丰台', '石景山'))
#设置城区因子顺序
ggplot(data1, aes(x = CATE, y = price, fill = 学区房)) +
geom_boxplot( ) +
#绘制箱线图
labs(title = "北京二手房各城区单价箱线图",
x = '城区', y = '单价(元)', fill = '学区房')
#添加标题