1、基于 R语言在城乡收支水平差距预测的应用姓名：李圆圆班级：信计 C132班学号：135787- 2 -以 1990 年到 2008 年的城镇居民和农村居民的收入、消费和支出的数据来说明生活消费支出与可支配收入（或纯收入） 、人均储蓄存款之间的相关关系及所做的回归分析，并对回归分析的结果进行分析。20 世纪 90 年代以来，我国东、中、西部地区间发展差距仍在继续扩大，但随着国家逐步加大对中西部地区发展的支持力度，地区发展差距扩大的趋势逐渐变缓，并以 2009 年的东部、中部和西部的部分代表地区的数据来说明东西部地区之间的差异。以 1990 年到 2008 年的城镇居民和农村居民的收入、消费和支出
2、的数据来说明生活消费支出与可支配收入（或纯收入） 、人均储蓄存款之间的相关关系及所做的回归分析，并对回归分析的结果进行分析。表 1城镇居民家庭平均每人农村居民家庭平均每人年份可支配收入（元）生活消费支出（元）恩格尔系数（%）人均储蓄存款余额(元)纯收入（元）生活消费支出（元）恩格尔系数（%）人均储蓄存款余额(元)1990 1510.2 1278.9 54.2 622.9 686.3 584.6 58.8 622.91991 1700.6 1453.8 53.8 798.3 708.6 619.8 57.6 798.31992 2026.6 1671.7 53.0 1003.2 784.0 65
3、9.2 57.6 1003.21993 2577.4 2110.8 50.3 1281.9 921.6 769.7 58.1 1281.91994 3496.2 2851.3 50.0 1794.7 1221.0 1016.8 58.9 1794.71995 4283.0 3537.6 50.1 2447.4 1577.7 1310.4 58.6 2447.41996 4838.9 3919.5 48.8 3147.1 1926.1 1572.1 56.3 3147.11997 5160.3 4185.6 46.6 3744.3 2090.1 1617.2 55.1 3744.31998 54
4、25.1 4331.6 44.7 4279.4 2162.0 1590.3 53.4 4279.41999 5854.0 4615.9 42.1 4739.4 2210.3 1577.4 52.6 4739.42000 6280.0 4998.0 39.4 5077.5 2253.4 1670.1 49.1 5077.52001 6859.6 5309.0 38.2 5780.7 2366.4 1741.1 47.7 5780.72002 7702.8 6029.9 37.7 6768.7 2475.6 1834.3 46.3 6768.72003 8472.2 6510.9 37.1 801
5、9.9 2622.2 1943.3 45.6 8019.92004 9421.6 7182.1 37.7 9196.6 2936.4 2184.7 47.2 9196.62005 10493.0 7942.9 36.7 10792.0 3254.9 2555.4 45.5 10792.02006 11759.5 8696.6 35.8 12297.4 3587.0 2829.0 43.0 12297.42007 13785.8 9997.5 36.3 13051.0 4140.4 3223.9 43.1 13051.02008 15780.8 11242.9 37.9 16406.8 4760
6、.6 3660.7 43.7 16406.8由上表中数据做回归分析，结果如下：- 3 -1.对城镇居民的可支配收入（yc1） ，生活消费支出（yc2） ，人均储蓄存款余额（yc3）做一元回归分析，结果如下：chengzhen y=yc2; lm.sol summary(lm.sol)Call:lm(formula = y 1 + yc3)Residuals:Min 1Q Median 3Q Max -653.3 -321.9 150.1 321.3 483.1 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) 1548.9
7、712 144.1749 10.74 5.36e-09 *yc3 0.6152 0.0195 31.55 y=yc2; lm.sol summary(lm.sol)Call:lm(formula = y 1 + yc1)Residuals:Min 1Q Median 3Q Max -302.1 -136.0 65.9 117.1 177.1 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) 4.249e+02 6.709e+01 6.334 7.49e-06 *yc1 7.047e-01 8.608e-03 81.857
8、y=yc3 lm.sol summary(lm.sol)Call:lm(formula = y 1 + yc1)Residuals:- 5 -Min 1Q Median 3Q Max -812.0 -328.3 -126.1 364.6 726.5 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) -1.731e+03 2.221e+02 -7.797 5.17e-07 *yc1 1.131e+00 2.849e-02 39.701 y=yc2; lm.sol summary(lm.sol)Call:lm(formula
9、= y 1 + yc1 + yc3)Residuals:Min 1Q Median 3Q Max -271.66 -112.58 24.16 101.31 193.31 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) 241.34890 138.52096 1.742 0.101 yc1 0.82460 0.08044 10.252 1.94e-08 *yc3 -0.10603 0.07073 -1.499 0.153 -Signif. codes: 0 * 0.001 * 0.01 * 0.05 . 0.1 1 Res
10、idual standard error: 143.8 on 16 degrees of freedom- 6 -Multiple R-squared: 0.9978, Adjusted R-squared: 0.9975 F-statistic: 3597 on 2 and 16 DF, p-value: y=yn2; lm.sol summary(lm.sol)Call:lm(formula = y 1 + yn3)Residuals:Min 1Q Median 3Q Max -191.31 -144.66 -7.63 111.11 333.63 Coefficients:Estimate
11、 Std. Error t value Pr(|t|) (Intercept) 661.7588 63.5871 10.41 8.60e-09 *yn3 0.1833 0.0086 21.31 1.06e-13 *- 8 -Signif. codes: 0 * 0.001 * 0.01 * 0.05 . 0.1 1 Residual standard error: 169.3 on 17 degrees of freedomMultiple R-squared: 0.9639, Adjusted R-squared: 0.9618 F-statistic: 454 on 1 and 17 DF
12、, p-value: 1.06e-13 2）人均消费支出(yn2)与居民纯收入(yn1) y=yn2; lm.sol summary(lm.sol)Call:lm(formula = y 1 + yn1)Residuals:Min 1Q Median 3Q Max -130.09 -71.18 23.70 57.83 86.80 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) 46.25344 36.76717 1.258 0.225 yn1 0.75159 0.01465 51.293 y=yn3; lm.sol su
13、mmary(lm.sol)Call:lm(formula = y 1 + yn1)Residuals:Min 1Q Median 3Q Max -1491.289 -781.856 6.387 808.625 1133.527 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) -3041.9876 484.7854 -6.275 8.38e-06 *yn1 3.9604 0.1932 20.499 2.00e-13 *-Signif. codes: 0 * 0.001 * 0.01 * 0.05 . 0.1 1 Resid
14、ual standard error: 941.2 on 17 degrees of freedomMultiple R-squared: 0.9611, Adjusted R-squared: 0.9588 F-statistic: 420.2 on 1 and 17 DF, p-value: 2.000e-13 4）人均消费支出(yn2)与居民纯收入(yn1)、人均储蓄存款余额(yn3) y=yn2; lm.sol.1 summary(lm.sol.1)Call:lm(formula = y yn1 + yn3, data = nongcun)Residuals:Min 1Q Median
15、 3Q Max -108.73 -62.64 15.98 47.46 109.82 Coefficients:Estimate Std. Error t value Pr(|t|) (Intercept) 113.07182 66.05690 1.712 0.106 yn1 0.66460 0.07331 9.065 1.06e-07 *- 10 -yn3 0.02197 0.01815 1.210 0.244 -Signif. codes: 0 * 0.001 * 0.01 * 0.05 . 0.1 1 Residual standard error: 70.43 on 16 degrees
16、 of freedomMultiple R-squared: 0.9941, Adjusted R-squared: 0.9934 F-statistic: 1352 on 2 and 16 DF, p-value: 2.2e-16 由上述的回归分析可知，农村居民的纯收入（yn1） ，人均消费支出（yn2） ，人均储蓄存款余额（yn3）两两之间均显著，但由（4）中可看出 yn2 与 yn1 之间显著，yn2 与 yn3 不显著,常数项也不显著。数据回归拟合直线和散点图如下：图中 有部分数据异常,修改数据,删除第 6,7,8 这 3 个数据，继续进行回归分析.nongcun1-data.frame(year=c(1990,1991,1992,1993,1994,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008),
