(1) 다음의 코딩라인을 실행하여 총 소비(total expenditure)와 각 소비재에 지출한 비용의 비율을 구합니다.
total = household$housing+household$food+household$goods+household$service
housing_prop = household$housing/total
food_prop = household$food/total
goods_prop = household$goods/total
service_prop = household$service/total
(2) “car” package의 scatterplot 함수를 이용합니다. 이 때에 x-축에 총지출을 위치하도록 합니다.
총지출과 서비스분야 지출 비용 간의 관계에 대한 R graphics command 예시는 다음과 같습니다.
car::scatterplot(service_prop~total, reg.line=lm, smooth=TRUE, spread=TRUE, boxplots=FALSE, span=0.5, xlab=”Total Expenditures”, ylab=”Proportional Service Expenses”, data=household)
