Data
library(xlsx)
## Loading required package: rJava
## Loading required package: xlsxjars
library(knitr)
hh.econ.10th <- read.xlsx("../data/20151102192605.xlsx", 1, startRow = 5, endRow = 18, colIndex = 3:32, header = FALSE)
str(hh.econ.10th)
## 'data.frame': 14 obs. of 30 variables:
## $ X3 : num 638957 673071 649122 671799 683203 ...
## $ X4 : num 771383 828004 831317 830030 843663 ...
## $ X5 : num 499632 531707 514805 535335 540632 ...
## $ X6 : num 1213987 1265991 1275328 1322811 1353447 ...
## $ X7 : num 1064871 1121099 1119699 1166227 1192463 ...
## $ X8 : num 1013238 1059608 1062670 1112744 1135996 ...
## $ X9 : num 1598817 1655633 1689025 1758039 1832627 ...
## $ X10: num 1280267 1310720 1356111 1371281 1455151 ...
## $ X11: num 1351738 1395148 1416201 1477023 1550665 ...
## $ X12: num 1927149 1986208 2066573 2126825 2245292 ...
## $ X13: num 1443076 1463386 1576043 1610478 1646896 ...
## $ X14: num 1619775 1671005 1740937 1783671 1889312 ...
## $ X15: num 2232278 2332860 2425283 2517061 2642452 ...
## $ X16: num 1546854 1658688 1707759 1741956 1816742 ...
## $ X17: num 1870906 1962932 2047323 2112193 2241705 ...
## $ X18: num 2569499 2694188 2803212 2929032 3070775 ...
## $ X19: num 1698793 1836103 1888584 1991659 2103231 ...
## $ X20: num 2155682 2264470 2357646 2465731 2571095 ...
## $ X21: num 2919431 3094474 3223571 3394694 3547411 ...
## $ X22: num 1858959 1990328 2041389 2177834 2189458 ...
## $ X23: num 2449625 2586964 2700177 2838408 2966114 ...
## $ X24: num 3368899 3598440 3729759 3965774 4147744 ...
## $ X25: num 2123705 2153714 2290080 2388914 2493963 ...
## $ X26: num 2801563 2996103 3108896 3286287 3420398 ...
## $ X27: num 4023426 4312748 4477114 4726081 5004508 ...
## $ X28: num 2270907 2430919 2565280 2728884 2783708 ...
## $ X29: num 3313307 3535344 3691981 3870752 4071327 ...
## $ X30: num 5809644 6266820 6636603 6962675 7466242 ...
## $ X31: num 2939906 3178186 3339722 3439734 3631205 ...
## $ X32: num 4758516 5081635 5391046 5591577 5929958 ...
kable(hh.econ.10th[, 1:15])
| 638957 |
771383 |
499632 |
1213987 |
1064871 |
1013238 |
1598817 |
1280267 |
1351738 |
1927149 |
1443076 |
1619775 |
2232278 |
1546854 |
1870906 |
| 673071 |
828004 |
531707 |
1265991 |
1121099 |
1059608 |
1655633 |
1310720 |
1395148 |
1986208 |
1463386 |
1671005 |
2332860 |
1658688 |
1962932 |
| 649122 |
831317 |
514805 |
1275328 |
1119699 |
1062670 |
1689025 |
1356111 |
1416201 |
2066573 |
1576043 |
1740937 |
2425283 |
1707759 |
2047323 |
| 671799 |
830030 |
535335 |
1322811 |
1166227 |
1112744 |
1758039 |
1371281 |
1477023 |
2126825 |
1610478 |
1783671 |
2517061 |
1741956 |
2112193 |
| 683203 |
843663 |
540632 |
1353447 |
1192463 |
1135996 |
1832627 |
1455151 |
1550665 |
2245292 |
1646896 |
1889312 |
2642452 |
1816742 |
2241705 |
| 720181 |
927028 |
571411 |
1438565 |
1264676 |
1209229 |
1931668 |
1541498 |
1620613 |
2361758 |
1761053 |
1982406 |
2789362 |
1959080 |
2337854 |
| 729358 |
926683 |
557415 |
1465066 |
1219949 |
1231803 |
1980492 |
1540278 |
1654173 |
2430070 |
1766031 |
2016402 |
2869515 |
1953277 |
2394767 |
| 805928 |
980810 |
632706 |
1576296 |
1321806 |
1314886 |
2152155 |
1661400 |
1811293 |
2647750 |
1928562 |
2211549 |
3076308 |
2106344 |
2533859 |
| 831396 |
1000341 |
646782 |
1678195 |
1436967 |
1389675 |
2289491 |
1763862 |
1898012 |
2811303 |
2074739 |
2338298 |
3268634 |
2302210 |
2707953 |
| 902742 |
1044575 |
721281 |
1800064 |
1463963 |
1483912 |
2451010 |
1785001 |
2048019 |
2976744 |
2085863 |
2475943 |
3446896 |
2271208 |
2866839 |
| 919787 |
1039679 |
737603 |
1845516 |
1476508 |
1511427 |
2539141 |
1856022 |
2132950 |
3068233 |
2174330 |
2553038 |
3527240 |
2211837 |
2915944 |
| 981849 |
1034899 |
811891 |
1938301 |
1478922 |
1603455 |
2601814 |
1900990 |
2170378 |
3130663 |
2144815 |
2603480 |
3659284 |
2402855 |
3035699 |
| 974405 |
1145701 |
762485 |
1928663 |
1548124 |
1567591 |
2599011 |
1916847 |
2173555 |
3192278 |
2174204 |
2634754 |
3720797 |
2508880 |
3071102 |
| 1031379 |
1064773 |
856136 |
1941004 |
1484887 |
1652888 |
2612981 |
1881521 |
2194945 |
3122067 |
2113323 |
2603139 |
3622703 |
2301690 |
2905283 |
kable(hh.econ.10th[, 16:30])
| 2569499 |
1698793 |
2155682 |
2919431 |
1858959 |
2449625 |
3368899 |
2123705 |
2801563 |
4023426 |
2270907 |
3313307 |
5809644 |
2939906 |
4758516 |
| 2694188 |
1836103 |
2264470 |
3094474 |
1990328 |
2586964 |
3598440 |
2153714 |
2996103 |
4312748 |
2430919 |
3535344 |
6266820 |
3178186 |
5081635 |
| 2803212 |
1888584 |
2357646 |
3223571 |
2041389 |
2700177 |
3729759 |
2290080 |
3108896 |
4477114 |
2565280 |
3691981 |
6636603 |
3339722 |
5391046 |
| 2929032 |
1991659 |
2465731 |
3394694 |
2177834 |
2838408 |
3965774 |
2388914 |
3286287 |
4726081 |
2728884 |
3870752 |
6962675 |
3439734 |
5591577 |
| 3070775 |
2103231 |
2571095 |
3547411 |
2189458 |
2966114 |
4147744 |
2493963 |
3420398 |
5004508 |
2783708 |
4071327 |
7466242 |
3631205 |
5929958 |
| 3243381 |
2104517 |
2734062 |
3742924 |
2341577 |
3126729 |
4379640 |
2618980 |
3589706 |
5316587 |
2905158 |
4354531 |
7977785 |
3716328 |
6337945 |
| 3323947 |
2220545 |
2748919 |
3822542 |
2378505 |
3161937 |
4449828 |
2647666 |
3634560 |
5345285 |
3042625 |
4348874 |
7898111 |
3793730 |
6302622 |
| 3512570 |
2326768 |
2922127 |
4044393 |
2559239 |
3334702 |
4671484 |
2814203 |
3777362 |
5611878 |
3191636 |
4533489 |
8206641 |
3974029 |
6496065 |
| 3742024 |
2399041 |
3098200 |
4268755 |
2706587 |
3476596 |
4913083 |
2977272 |
3988747 |
5914052 |
3251683 |
4713301 |
8692134 |
4011523 |
6930156 |
| 3946947 |
2550619 |
3284028 |
4517886 |
2668611 |
3704618 |
5228436 |
3099943 |
4220271 |
6277419 |
3391696 |
5012104 |
9212135 |
4210091 |
7350446 |
| 4034696 |
2508653 |
3340138 |
4624754 |
2870953 |
3786242 |
5362759 |
3031518 |
4357960 |
6417488 |
3387322 |
5128611 |
9269585 |
4247095 |
7338687 |
| 4175958 |
2660968 |
3446106 |
4752823 |
2798543 |
3897534 |
5519584 |
3113047 |
4462693 |
6637739 |
3546248 |
5316446 |
9621438 |
4427688 |
7628137 |
| 4266366 |
2752950 |
3515444 |
4926449 |
2881589 |
4029805 |
5739103 |
3317349 |
4605149 |
6982627 |
3731960 |
5698947 |
10828175 |
4551140 |
8613835 |
| 4134326 |
2680050 |
3397234 |
4700072 |
2750918 |
3825434 |
5381241 |
3110062 |
4368515 |
6402122 |
3227613 |
5169246 |
9748206 |
4325139 |
7857406 |
kable(rownames(hh.econ.10th) <- c(2003:2014, "15.14", "15.24"))
| 2003 |
| 2004 |
| 2005 |
| 2006 |
| 2007 |
| 2008 |
| 2009 |
| 2010 |
| 2011 |
| 2012 |
| 2013 |
| 2014 |
| 15.14 |
| 15.24 |
kable(colnames(hh.econ.10th) <- paste(rep(1:10, each = 3), c("분위.소득", "분위.소비지출", "분위.처분가능소득"), sep=""))
| 1분위.소득 |
| 1분위.소비지출 |
| 1분위.처분가능소득 |
| 2분위.소득 |
| 2분위.소비지출 |
| 2분위.처분가능소득 |
| 3분위.소득 |
| 3분위.소비지출 |
| 3분위.처분가능소득 |
| 4분위.소득 |
| 4분위.소비지출 |
| 4분위.처분가능소득 |
| 5분위.소득 |
| 5분위.소비지출 |
| 5분위.처분가능소득 |
| 6분위.소득 |
| 6분위.소비지출 |
| 6분위.처분가능소득 |
| 7분위.소득 |
| 7분위.소비지출 |
| 7분위.처분가능소득 |
| 8분위.소득 |
| 8분위.소비지출 |
| 8분위.처분가능소득 |
| 9분위.소득 |
| 9분위.소비지출 |
| 9분위.처분가능소득 |
| 10분위.소득 |
| 10분위.소비지출 |
| 10분위.처분가능소득 |
str(hh.econ.10th)
## 'data.frame': 14 obs. of 30 variables:
## $ 1분위.소득 : num 638957 673071 649122 671799 683203 ...
## $ 1분위.소비지출 : num 771383 828004 831317 830030 843663 ...
## $ 1분위.처분가능소득 : num 499632 531707 514805 535335 540632 ...
## $ 2분위.소득 : num 1213987 1265991 1275328 1322811 1353447 ...
## $ 2분위.소비지출 : num 1064871 1121099 1119699 1166227 1192463 ...
## $ 2분위.처분가능소득 : num 1013238 1059608 1062670 1112744 1135996 ...
## $ 3분위.소득 : num 1598817 1655633 1689025 1758039 1832627 ...
## $ 3분위.소비지출 : num 1280267 1310720 1356111 1371281 1455151 ...
## $ 3분위.처분가능소득 : num 1351738 1395148 1416201 1477023 1550665 ...
## $ 4분위.소득 : num 1927149 1986208 2066573 2126825 2245292 ...
## $ 4분위.소비지출 : num 1443076 1463386 1576043 1610478 1646896 ...
## $ 4분위.처분가능소득 : num 1619775 1671005 1740937 1783671 1889312 ...
## $ 5분위.소득 : num 2232278 2332860 2425283 2517061 2642452 ...
## $ 5분위.소비지출 : num 1546854 1658688 1707759 1741956 1816742 ...
## $ 5분위.처분가능소득 : num 1870906 1962932 2047323 2112193 2241705 ...
## $ 6분위.소득 : num 2569499 2694188 2803212 2929032 3070775 ...
## $ 6분위.소비지출 : num 1698793 1836103 1888584 1991659 2103231 ...
## $ 6분위.처분가능소득 : num 2155682 2264470 2357646 2465731 2571095 ...
## $ 7분위.소득 : num 2919431 3094474 3223571 3394694 3547411 ...
## $ 7분위.소비지출 : num 1858959 1990328 2041389 2177834 2189458 ...
## $ 7분위.처분가능소득 : num 2449625 2586964 2700177 2838408 2966114 ...
## $ 8분위.소득 : num 3368899 3598440 3729759 3965774 4147744 ...
## $ 8분위.소비지출 : num 2123705 2153714 2290080 2388914 2493963 ...
## $ 8분위.처분가능소득 : num 2801563 2996103 3108896 3286287 3420398 ...
## $ 9분위.소득 : num 4023426 4312748 4477114 4726081 5004508 ...
## $ 9분위.소비지출 : num 2270907 2430919 2565280 2728884 2783708 ...
## $ 9분위.처분가능소득 : num 3313307 3535344 3691981 3870752 4071327 ...
## $ 10분위.소득 : num 5809644 6266820 6636603 6962675 7466242 ...
## $ 10분위.소비지출 : num 2939906 3178186 3339722 3439734 3631205 ...
## $ 10분위.처분가능소득: num 4758516 5081635 5391046 5591577 5929958 ...
hh.econ.10th.11 <- matrix(as.numeric(hh.econ.10th["2011", ]), nrow = 3)
str(hh.econ.10th.11)
## num [1:3, 1:10] 831396 1000341 646782 1678195 1436967 ...
kable(hh.econ.10th.11, row.names = FALSE, col.names = paste(1:10, "분위"), caption = "소득 분위별 가계수지(2011년)")
소득 분위별 가계수지(2011년)
| 831396 |
1678195 |
2289491 |
2811303 |
3268634 |
3742024 |
4268755 |
4913083 |
5914052 |
8692134 |
| 1000341 |
1436967 |
1763862 |
2074739 |
2302210 |
2399041 |
2706587 |
2977272 |
3251683 |
4011523 |
| 646782 |
1389675 |
1898012 |
2338298 |
2707953 |
3098200 |
3476596 |
3988747 |
4713301 |
6930156 |
dimnames(hh.econ.10th.11) <- list(c("소득", "소비지출", "처분가능소득"), paste(1:10, "분위", sep = ""))
kable(hh.econ.10th.11, caption = "소득 분위별 가계수지(2011년)")
소득 분위별 가계수지(2011년)
| 소득 |
831396 |
1678195 |
2289491 |
2811303 |
3268634 |
3742024 |
4268755 |
4913083 |
5914052 |
8692134 |
| 소비지출 |
1000341 |
1436967 |
1763862 |
2074739 |
2302210 |
2399041 |
2706587 |
2977272 |
3251683 |
4011523 |
| 처분가능소득 |
646782 |
1389675 |
1898012 |
2338298 |
2707953 |
3098200 |
3476596 |
3988747 |
4713301 |
6930156 |
kable(hh.econ.10th.11.2 <- hh.econ.10th.11[c(1, 3, 2), ])
| 소득 |
831396 |
1678195 |
2289491 |
2811303 |
3268634 |
3742024 |
4268755 |
4913083 |
5914052 |
8692134 |
| 처분가능소득 |
646782 |
1389675 |
1898012 |
2338298 |
2707953 |
3098200 |
3476596 |
3988747 |
4713301 |
6930156 |
| 소비지출 |
1000341 |
1436967 |
1763862 |
2074739 |
2302210 |
2399041 |
2706587 |
2977272 |
3251683 |
4011523 |