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、臉譜圖