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、雷达图