a$AREA[a$AREA<50]="50平米以下"  
a$AREA[a$AREA>50 | a$AREA<100]="50至100平米"  
a$AREA[a$AREA>100 | a$AREA<150]="100至150平米"
a$AREA[a$AREA>150 | a$AREA<200]="150至200平米"  
a$AREA[a$AREA>200]="200平米以上"
a$AREA=factor(a$AREA,c("50平米以下","50至100平米","100至150平米","150至200平米","200平米以上"))    ##更改因子水平顺序
boxplot(log(price)~AREA,data=a,col=c("orange"),         
        ylab="对 数 房 价",xlab="房 屋 面 积")
table(a$AREA)