1、数据预览
（数据来源于国家统计局）
2、轮廓图
> par(mai=c(0.7,0.7,0.1,0.1),cex=0.8)
> matplot(t(income[,2:9]),type="b",lty = 1:7,col=1:7,xlab = "消费项目",ylab = "支出金额",pch = 1,xaxt="n")
> axis(side = 1,at=1:8,labels = c("食品","衣着","居住","家庭设备用品及服务","医疗保健","交通和通信","教育文化娱乐及服务","其他商品服务"),cex.axis=0.6)
> legend(x="topright",legend = c("最低收入用户","低收入用户","中等偏下收入用户","中等收入用户","中等偏上收入用户","高收入用户","最高收入用户"),lty=1:7,col=1:7,text.width=1,cex=0.7)
3、雷达图
> radarchart(income[,2:9],axistype = 0,seg = 4,maxmin = FALSE,vlabels = names(income[,2:9]),pcol = 1:7,plwd = 2.0)
> legend(x="topleft",legend = c("最低收入用户","低收入用户","中等偏下收入用户","中等收入用户","中等偏上收入用户","高收入用户","最高收入用户"),lty=1:7,col=1:7,text.width=0.6,lwd=0.8,cex=0.8)
4、星图
4.1、不同收入等级的星图
4.2、不同消费项目的星图
5、脸谱图