使用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 = '学区房')                             
#添加标题