금융자산과 부채 변수 구성하는 방법 - 자산과 부채액 구성하기
- Date2016.02.03
- Hit3,201
1. 금융 자산
금융자산과 금융소득을 혼동하는 연구자들이 종종 있다. 우선 용어의 정의를 살펴보면, ‘금융자산’이란 금융기관 혹은 개인적으로 빌려준 돈과 같이 가지고 있는 돈의 총액을 의미하는 저량(stock) 변수인 반면, ‘금융소득’은 이러한 자산을 통해 발생한 소득(예: 이자소득, 배당금)을 의미하는 유량(flow) 변수이다.
특히 금융자산과 관련하여 실제 가구용 설문에서는 금융자산의 소유여부를 각 항목별로 질문하여 [예]라고 응답한 경우 총액을 질문한다. 그러므로, 연구자가 가구의 ‘금융자산’ 전체 액수를 필요로 한다면 각 항목에 대한 총액을 모두 합산해서 사용해야 한다(※ 주의 : 조사시점을 기준으로 현재 시세).
2. 가구 부채
‘가구부채’는 ‘금융자산’과 유사한 구조로 조사되고 있다. 즉 항목별로 부채유무를 질문한 후, [예]라고 응답한 경우 현재 상환해야할 잔액을 묻는다. 따라서, 현재 가구에 남아있는 부채의 총액은 각 항목의 잔액을 모두 합산하면 된다. 다만, 부채항목에는 이외에도 ‘현재까지 상환한 원금과 이자’의 액수를 각각의 항목에 대해 묻고 있으므로, ‘잔액’및 ‘원금과 이자상환금’을 합산할 경우 처음 돈을 빌릴 당시의 부채액도 구할 수 있다.
*=======================================;
* SAS - 가구 자산과 부채 구성하기 ;
*=======================================;
data h19; set a.klips19h;
/*금융자산*/
/*결측치 처리*/
array h[6] h192562 h192564 h192566 h192568 h192570 h192572;
do i=1 to 6;
if h[i]=-1 then h[i]= .;
end;
if h192561=1 or h192563=1 or h192565=1 or h192567=1 or h192569=1 or h192571=1 then fin_y=1;/*금융자산 여부*/
fin1 = h192562; /* 은행예금 액수*/
fin2 = h192564; /* 주식, 채권, 신탁 액수*/
fin3 = h192566; /* 저축성보험 액수*/
fin4 = h192568; /* 아직 타지 않은 계 액수*/
fin5 = h192570; /* 개인적으로 다른 사람에게 빌려준 돈 액수*/
fin6 = h192572; /* 기타 금융자산 액수*/
fin = sum(of fin1-fin6); /* 금융자산 총액*/
/*부채*/
/*결측치 처리*/
array d[6] h192602 h192605 h192608 h192611 h192614 h192617;
do i=1 to 6;
if d[i]=-1 then d[i]= .;
end;
if h192601=1 or h192604=1 or h192607=1 or h192610=1 or h192613=1 or h192616=1 then deb_y=1;/*부채여부*/
deb1 = h192602; /*금융기관부채*/
deb2 = h192605; /*비금융기관 부채*/
deb3 = h192608; /*개인적으로 빌린 돈*/
deb4 = h192611; /*전세금, 임대보증금 받은 것*/
deb5 = h192614; /*머리 타고 앞으로 부어야 할 계*/
deb6 = h192617; /*기타 부채*/
deb= sum(of deb1-deb6);/*부채 총액*/
proc freq; table fin_y deb_y;
proc univariate; var fin deb;
run;
*=======================================.
* SPSS - 가구 자산과 부채 구성하기 .
*=======================================.
get file='D:\19차\users guide\19차년도\klips19h.sav'.
*금융자산*
RECODE h192562 h192564 h192566 h192568 h192570 h192572 (-1=SYSMIS) ./*결측치 처리*/
if (h192561=1 or h192563=1 or h192565=1 or h192567=1 or h192569=1 or h192571=1) fin_y=1./*금융자산 여부*/
compute fin1 = h192562. /* 은행예금 액수*/
compute fin2 = h192564. /* 주식, 채권, 신탁 액수*/
compute fin3 = h192566. /* 저축성보험 액수*/
compute fin4 = h192568. /* 아직 타지 않은 계 액수*/
compute fin5 = h192570. /* 개인적으로 다른 사람에게 빌려준 돈 액수*/
compute fin6 = h192572. /* 기타 금융자산 액수*/
compute fin = sum(fin1 to fin6). /* 금융자산 총액*/
/*부채*/
RECODE h192602 h192605 h192608 h192611 h192614 h192617 (-1=SYSMIS) ./*결측치 처리*/
if (h192601=1 or h192604=1 or h192607=1 or h192610=1 or h192613=1 or h192616=1) deb_y=1./*부채 여부*/
compute deb1 = h192602. /*금융기관부채*/
compute deb2 = h192605. /*비금융기관 부채*/
compute deb3 = h192608. /*개인적으로 빌린 돈*/
compute deb4 = h192611. /*전세금, 임대보증금 받은 것*/
compute deb5 = h192614. /*미리 타고 앞으로 부어야 할 계*/
compute deb6 = h192617. /*기타 부채*/
compute deb=sum(deb1 to deb6)./*부채액*/
execute.
fre fin_y deb_y.
des fin deb/stat=mean std min max.
/*======================================*/
/* stata - 가구 자산과 부채 구성하기 */
/*======================================*/
clear
use klips19h, clear
/*금융자산*/
recode h192562 h192564 h192566 h192568 h192570 h192572 (-1=.)/*결측치 처리*/
gen fin_y=1 if h192561==1|h192563==1|h192565==1|h192567==1|h192569==1|h192571==1 /*금융자산 여부*/
gen fin1 = h192562 /* 은행예금 액수*/
gen fin2 = h192564 /* 주식, 채권, 신탁 액수*/
gen fin3 = h192566 /* 저축성보험 액수*/
gen fin4 = h192568 /* 아직 타지 않은 계 액수*/
gen fin5 = h192570 /* 개인적으로 다른 사람에게 빌려준 돈 액수*/
gen fin6 = h192572 /* 기타 금융자산 액수*/
egen fin = rowtotal(fin1-fin6), m /* 금융자산 총액*/
/*부채*/
recode h192602 h192605 h192608 h192611 h192614 h192617(-1=.) /*결측치 처리*/
gen deb_y=1 if h192601==1|h192604==1|h192607==1|h192610==1|h192613==1|h192616==1 /*부채 여부*/
gen deb1 = h192602 /*금융기관부채*/
gen deb2 = h192605 /*비금융기관 부채*/
gen deb3 = h192608 /*개인적으로 빌린 돈*/
gen deb4 = h192611 /*전세금, 임대보증금 받은 것*/
gen deb5 = h192614 /*미리 타고 앞으로 부어야 할 계*/
gen deb6 = h192617 /*기타 부채*/
egen deb=rowtotal(deb1-deb6), m/*부채액*/
tab1 fin_y deb_y
sum fin deb
*==============================================#
* R – 가구 자산과 부채 구성하기 #
*==============================================#
library(foreign)
h19 ← read.spss(file = "C:\\Users\\KLI\\DATA\\1-19spss\\klips19h.sav", use.value.labels = FALSE, to.data.frame = TRUE )
############## 금융 자산 #############
#결측값 처리
h19[, c("h192562","h192564","h192566", "h192568", "h192570", "h192572")][h19[, c("h192562","h192564","h192566", "h192568", "h192570", "h192572")] == (-1)] ← NA
#금융자산 보유 여부 (1: 보유)
fin_y ← ifelse((h19$h192561 ==1 | h19$h192563 ==1 | h19$h192565 ==1 | h19$h192567 ==1 | h19$h192569 ==1 | h19$h192571 ==1), 1,NA)
#금융 자산 액수
fin1 ← h19$h192562 # 은행 예금 액수
fin2 ← h19$h192564 # 주식, 채권, 신탁 액수
fin3 ← h19$h192566 # 저축성보험 액수
fin4 ← h19$h192568 # 아직 타지 않은 계 액수
fin5 ← h19$h192570 # 개인적으로 다른 사람에게 빌려준 돈 액수
fin6 ← h19$h192572 # 기타 금융자산 액수
fintable ← data.frame(fin1,fin2,fin3,fin4,fin5,fin6)
fintable$fin ← rowSums(fintable,na.rm=TRUE) #금융 자산 총액을 fintable 에 추가
fintable
############## 부채 #############
#결측값 처리
h19[, c("h192602","h192605","h192608", "h192611", "h192614", "h192617")][h19[, c("h192602","h192605","h192608", "h192611", "h192614", "h192617")] == (-1)] ← NA
table(h19$h192562)
#부채 여부 (보유:1)
deb_y ← ifelse((h19$h192601 ==1 | h19$h192604 ==1 | h19$h192607 ==1 | h19$h192610 ==1 | h19$h192613 ==1 | h19$h192616 ==1), 1,NA)
#부채 액수
deb1 ← h19$h192602 #금융기관부채
deb2 ← h19$h192605 #비금융기관부채
deb3 ← h19$h192608 #개인적으로 빌린돈
deb4 ← h19$h192611 #전세금, 임대보증금 받은 것
deb5 ← h19$h192614 #미리 타고 앞으로 부어야 할 계
deb6 ← h19$h192617 #기타 부채
debtable ← data.frame(deb1,deb2,deb3,deb4,deb5,deb6)
debtable$deb ← rowSums(debtable,na.rm=TRUE) #부채 총액
#금융 자산, 부채 소유 유무 빈도
table(fin_y)
table(deb_y)
summary(fin_y)
summary(deb_y)
table(fintable$fin)
fintable$fin[fintable$fin==0] ← NA
summary(fintable$fin)
table(debtable$deb)
debtable$deb[debtable$deb==0] ← NA
summary(debtable$deb)
<한국노동패널 1~19차년도 조사자료 User's Guide 169p Q17 참고>
금융자산과 금융소득을 혼동하는 연구자들이 종종 있다. 우선 용어의 정의를 살펴보면, ‘금융자산’이란 금융기관 혹은 개인적으로 빌려준 돈과 같이 가지고 있는 돈의 총액을 의미하는 저량(stock) 변수인 반면, ‘금융소득’은 이러한 자산을 통해 발생한 소득(예: 이자소득, 배당금)을 의미하는 유량(flow) 변수이다.
특히 금융자산과 관련하여 실제 가구용 설문에서는 금융자산의 소유여부를 각 항목별로 질문하여 [예]라고 응답한 경우 총액을 질문한다. 그러므로, 연구자가 가구의 ‘금융자산’ 전체 액수를 필요로 한다면 각 항목에 대한 총액을 모두 합산해서 사용해야 한다(※ 주의 : 조사시점을 기준으로 현재 시세).
2. 가구 부채
‘가구부채’는 ‘금융자산’과 유사한 구조로 조사되고 있다. 즉 항목별로 부채유무를 질문한 후, [예]라고 응답한 경우 현재 상환해야할 잔액을 묻는다. 따라서, 현재 가구에 남아있는 부채의 총액은 각 항목의 잔액을 모두 합산하면 된다. 다만, 부채항목에는 이외에도 ‘현재까지 상환한 원금과 이자’의 액수를 각각의 항목에 대해 묻고 있으므로, ‘잔액’및 ‘원금과 이자상환금’을 합산할 경우 처음 돈을 빌릴 당시의 부채액도 구할 수 있다.
*=======================================;
* SAS - 가구 자산과 부채 구성하기 ;
*=======================================;
data h19; set a.klips19h;
/*금융자산*/
/*결측치 처리*/
array h[6] h192562 h192564 h192566 h192568 h192570 h192572;
do i=1 to 6;
if h[i]=-1 then h[i]= .;
end;
if h192561=1 or h192563=1 or h192565=1 or h192567=1 or h192569=1 or h192571=1 then fin_y=1;/*금융자산 여부*/
fin1 = h192562; /* 은행예금 액수*/
fin2 = h192564; /* 주식, 채권, 신탁 액수*/
fin3 = h192566; /* 저축성보험 액수*/
fin4 = h192568; /* 아직 타지 않은 계 액수*/
fin5 = h192570; /* 개인적으로 다른 사람에게 빌려준 돈 액수*/
fin6 = h192572; /* 기타 금융자산 액수*/
fin = sum(of fin1-fin6); /* 금융자산 총액*/
/*부채*/
/*결측치 처리*/
array d[6] h192602 h192605 h192608 h192611 h192614 h192617;
do i=1 to 6;
if d[i]=-1 then d[i]= .;
end;
if h192601=1 or h192604=1 or h192607=1 or h192610=1 or h192613=1 or h192616=1 then deb_y=1;/*부채여부*/
deb1 = h192602; /*금융기관부채*/
deb2 = h192605; /*비금융기관 부채*/
deb3 = h192608; /*개인적으로 빌린 돈*/
deb4 = h192611; /*전세금, 임대보증금 받은 것*/
deb5 = h192614; /*머리 타고 앞으로 부어야 할 계*/
deb6 = h192617; /*기타 부채*/
deb= sum(of deb1-deb6);/*부채 총액*/
proc freq; table fin_y deb_y;
proc univariate; var fin deb;
run;
*=======================================.
* SPSS - 가구 자산과 부채 구성하기 .
*=======================================.
get file='D:\19차\users guide\19차년도\klips19h.sav'.
*금융자산*
RECODE h192562 h192564 h192566 h192568 h192570 h192572 (-1=SYSMIS) ./*결측치 처리*/
if (h192561=1 or h192563=1 or h192565=1 or h192567=1 or h192569=1 or h192571=1) fin_y=1./*금융자산 여부*/
compute fin1 = h192562. /* 은행예금 액수*/
compute fin2 = h192564. /* 주식, 채권, 신탁 액수*/
compute fin3 = h192566. /* 저축성보험 액수*/
compute fin4 = h192568. /* 아직 타지 않은 계 액수*/
compute fin5 = h192570. /* 개인적으로 다른 사람에게 빌려준 돈 액수*/
compute fin6 = h192572. /* 기타 금융자산 액수*/
compute fin = sum(fin1 to fin6). /* 금융자산 총액*/
/*부채*/
RECODE h192602 h192605 h192608 h192611 h192614 h192617 (-1=SYSMIS) ./*결측치 처리*/
if (h192601=1 or h192604=1 or h192607=1 or h192610=1 or h192613=1 or h192616=1) deb_y=1./*부채 여부*/
compute deb1 = h192602. /*금융기관부채*/
compute deb2 = h192605. /*비금융기관 부채*/
compute deb3 = h192608. /*개인적으로 빌린 돈*/
compute deb4 = h192611. /*전세금, 임대보증금 받은 것*/
compute deb5 = h192614. /*미리 타고 앞으로 부어야 할 계*/
compute deb6 = h192617. /*기타 부채*/
compute deb=sum(deb1 to deb6)./*부채액*/
execute.
fre fin_y deb_y.
des fin deb/stat=mean std min max.
/*======================================*/
/* stata - 가구 자산과 부채 구성하기 */
/*======================================*/
clear
use klips19h, clear
/*금융자산*/
recode h192562 h192564 h192566 h192568 h192570 h192572 (-1=.)/*결측치 처리*/
gen fin_y=1 if h192561==1|h192563==1|h192565==1|h192567==1|h192569==1|h192571==1 /*금융자산 여부*/
gen fin1 = h192562 /* 은행예금 액수*/
gen fin2 = h192564 /* 주식, 채권, 신탁 액수*/
gen fin3 = h192566 /* 저축성보험 액수*/
gen fin4 = h192568 /* 아직 타지 않은 계 액수*/
gen fin5 = h192570 /* 개인적으로 다른 사람에게 빌려준 돈 액수*/
gen fin6 = h192572 /* 기타 금융자산 액수*/
egen fin = rowtotal(fin1-fin6), m /* 금융자산 총액*/
/*부채*/
recode h192602 h192605 h192608 h192611 h192614 h192617(-1=.) /*결측치 처리*/
gen deb_y=1 if h192601==1|h192604==1|h192607==1|h192610==1|h192613==1|h192616==1 /*부채 여부*/
gen deb1 = h192602 /*금융기관부채*/
gen deb2 = h192605 /*비금융기관 부채*/
gen deb3 = h192608 /*개인적으로 빌린 돈*/
gen deb4 = h192611 /*전세금, 임대보증금 받은 것*/
gen deb5 = h192614 /*미리 타고 앞으로 부어야 할 계*/
gen deb6 = h192617 /*기타 부채*/
egen deb=rowtotal(deb1-deb6), m/*부채액*/
tab1 fin_y deb_y
sum fin deb
*==============================================#
* R – 가구 자산과 부채 구성하기 #
*==============================================#
library(foreign)
h19 ← read.spss(file = "C:\\Users\\KLI\\DATA\\1-19spss\\klips19h.sav", use.value.labels = FALSE, to.data.frame = TRUE )
############## 금융 자산 #############
#결측값 처리
h19[, c("h192562","h192564","h192566", "h192568", "h192570", "h192572")][h19[, c("h192562","h192564","h192566", "h192568", "h192570", "h192572")] == (-1)] ← NA
#금융자산 보유 여부 (1: 보유)
fin_y ← ifelse((h19$h192561 ==1 | h19$h192563 ==1 | h19$h192565 ==1 | h19$h192567 ==1 | h19$h192569 ==1 | h19$h192571 ==1), 1,NA)
#금융 자산 액수
fin1 ← h19$h192562 # 은행 예금 액수
fin2 ← h19$h192564 # 주식, 채권, 신탁 액수
fin3 ← h19$h192566 # 저축성보험 액수
fin4 ← h19$h192568 # 아직 타지 않은 계 액수
fin5 ← h19$h192570 # 개인적으로 다른 사람에게 빌려준 돈 액수
fin6 ← h19$h192572 # 기타 금융자산 액수
fintable ← data.frame(fin1,fin2,fin3,fin4,fin5,fin6)
fintable$fin ← rowSums(fintable,na.rm=TRUE) #금융 자산 총액을 fintable 에 추가
fintable
############## 부채 #############
#결측값 처리
h19[, c("h192602","h192605","h192608", "h192611", "h192614", "h192617")][h19[, c("h192602","h192605","h192608", "h192611", "h192614", "h192617")] == (-1)] ← NA
table(h19$h192562)
#부채 여부 (보유:1)
deb_y ← ifelse((h19$h192601 ==1 | h19$h192604 ==1 | h19$h192607 ==1 | h19$h192610 ==1 | h19$h192613 ==1 | h19$h192616 ==1), 1,NA)
#부채 액수
deb1 ← h19$h192602 #금융기관부채
deb2 ← h19$h192605 #비금융기관부채
deb3 ← h19$h192608 #개인적으로 빌린돈
deb4 ← h19$h192611 #전세금, 임대보증금 받은 것
deb5 ← h19$h192614 #미리 타고 앞으로 부어야 할 계
deb6 ← h19$h192617 #기타 부채
debtable ← data.frame(deb1,deb2,deb3,deb4,deb5,deb6)
debtable$deb ← rowSums(debtable,na.rm=TRUE) #부채 총액
#금융 자산, 부채 소유 유무 빈도
table(fin_y)
table(deb_y)
summary(fin_y)
summary(deb_y)
table(fintable$fin)
fintable$fin[fintable$fin==0] ← NA
summary(fintable$fin)
table(debtable$deb)
debtable$deb[debtable$deb==0] ← NA
summary(debtable$deb)
<한국노동패널 1~19차년도 조사자료 User's Guide 169p Q17 참고>