R10/5

洪浩博 b04611027 生機三

問題一:找出額度高實際消費低之族群住哪裡

test=mutate(cs,cs3=card2spent/cardspent)
test1=filter(test,cs3<0.3)
plot(test1$region,test1$cs3)

"先將額度與消費相除取出比值在 做比較"

## [1] "先將額度與消費相除取出比值在 做比較"

問題二:找出特定年齡層(壯年)之結婚與否

test2=filter(cs,age>20&age<65)
plot(test2$marital,test2$age)

"將所設定的年齡區間先規劃出來再做成圖表
藉由分布密度可以知道哪些層結婚比例較高"

## [1] "將所設定的年齡區間先規劃出來再做成圖表\n藉由分布密度可以知道哪些層結婚比例較高"

問題三 :討論男性的收入與購屋關係

test3=filter(cs,gender==1)
plot(test3$income,test3$homeown)

"把族群男性特別抓出來對擁有房子做圖表"

## [1] "把族群男性特別抓出來對擁有房子做圖表"