使用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 = '學區房')
#添加標題