基于R语言在城乡收支水平差距预测的应用-毕业论文

以1990年到2008年的城镇居民和农村居民的收入、消费和支出的数据来

说明生活消费支出与可支配收入（或纯收入）、人均储蓄存款之间的相关关系及所做的回归分析，并对回归分析的结果进行分析。20世纪90年代以来，我国东、中、西部地区间发展差距仍在继续扩大，但随着国家逐步加大对中西部地区发

展的支持力度，地区发展差距扩大的趋势逐渐变缓，并以2009年的东部、中部

和西部的部分代表地区的数据来说明东西部地区之间的差异。

以1990年到2008年的城镇居民和农村居民的收入、消费和支出的数据来说明生活消费支出与可支配收入（或纯收入）、人均储蓄存款之间的相关关系及所做的回归分析，并对回归分析的结果进行分析。

表1

由上表中数据做回归分析，结果如下：

1.对城镇居民的可支配收入（yc1），生活消费支出（yc2），人均储蓄存款余额（yc3）做一元回归分析，结果如下：

chengzhen<-data.frame(

year=c(1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,20 02,2003,2004,2005,2006,2007,2008),

yc1=c(1510.2,1700.6,2026.6,2577.4,3496.2,4283.0,4838.9,5160.3,5425.1, 5854.0,6280.0,6859.6,7702.8,8472.2,9421.6,10493.0,11759.5,13785.8,157 80.8),

yc2=c(1278.9,1453.8,1671.7,2110.8,2851.3,3537.6,3919.5,4185.6,4331.6, 4615.9,4998.0,5309.0,6029.9,6510.9,7182.1,7942.9,8696.6,9997.5,11242.

9),

yc3=c(622.9,798.3,1003.2,1281.9,1794.7,2447.4,3147.1,3744.3,4279.4,47 39.4,5077.5,5780.7,6768.7,8019.9,9196.6,10792.0,12297.4,13051.0,16406 .8)

);chengzhen

1）生活消费支出(yc2)与人均储蓄存款余额(yc3)

> y=yc2;

> lm.sol<-lm(y~1+yc3)

> 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.9712 144.1749 10.74 5.36e-09 ***

yc3 0.6152 0.0195 31.55 < 2e-16 ***

---

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’

- 2 -

1

Residual standard error: 383.8 on 17 degrees of freedom

Multiple R-squared: 0.9832, Adjusted R-squared: 0.9822

F-statistic: 995.3 on 1 and 17 DF, p-value: < 2.2e-16

2）生活消费支出(yc2)与可支配收入(yc1)

> y=yc2;

> lm.sol<-lm(y~1+yc1)

> 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 < 2e-16 ***

---

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 149 on 17 degrees of freedom

Multiple R-squared: 0.9975, Adjusted R-squared: 0.9973

F-statistic: 6701 on 1 and 17 DF, p-value: < 2.2e-16

3）人均储蓄存款(yc3)与可支配收入(yc1)

> y=yc3

> lm.sol<-lm(y~1+yc1)

> summary(lm.sol)

Call:

lm(formula = y ~ 1 + yc1)

- 3 -

Residuals:

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 < 2e-16 ***

---

Signif. codes: 0 ‘***’ 0.001 ‘**’0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 493.1 on 17 degrees of freedom

Multiple R-squared: 0.9893, Adjusted R-squared: 0.9887

F-statistic: 1576 on 1 and 17 DF, p-value: < 2.2e-16

4）生活消费支出(yc2)与可支配收入(yc1)、人均储蓄存款余额(yc3)

> y=yc2;

> lm.sol<-lm(y~1+yc1+yc3)

> summary(lm.sol)

Call:

lm(formula = 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

- 4 -

Residual standard error: 143.8 on 16 degrees of freedom

Multiple R-squared: 0.9978, Adjusted R-squared: 0.9975

F-statistic: 3597 on 2 and 16 DF, p-value: < 2.2e-16

对yc2与yc3及yc2与yc1做线性拟合，结果如下：

attach(chengzhen)

plot(yc2~yc3);

abline(lm(yc2~yc3))

attach(chengzhen)

plot(yc2~yc1);

abline(lm(yc2~yc1))

- 5 -

由上述回归分析可知城镇居民的可支配收入（yc1），生活消费支出（yc2），人均储蓄存款余额（yc3）两两之间都显著，但由（4）可看出yc2和yc1显著，常数项和 yc3均不显著。但是由线性拟合的图可以看出拟合效果还好，所以可能是数据的统计或截取的年份较少所导致的不显著。

2.对农村居民的纯收入（yn1），人均消费支出（yn2），人均储蓄存款余额（yn3）做一元回归分析，结果如下：

建立数据框

nongcun<-data.frame(

year=c(1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,20 02,2003,2004,2005,2006,2007,2008),

yn1=c(686.3,708.6,784.0,921.6,1221.0,1577.7,1926.1,2090.1,2162.0,2210 .3,2253.4,2366.4,2475.6,2622.2,2936.4,3254.9,3587.0,4140.4,4760.6), yn2=c(584.6,619.8,659.2,769.7,1016.8,1310.4,1572.1,1617.2,1590.3,1577 .4,1670.1,1741.1,1834.3,1943.3,2184.7,2555.4,2829.0,3223.9,3660.7), yn3=c(622.9,798.3,1003.2,1281.9,1794.7,2447.4,3147.1,3744.3,4279.4,47 39.4,5077.5,5780.7,6768.7,8019.9,9196.6,10792.0,12297.4,13051.0,16406 .8)

);nongcun

1）人均消费支出(yn2)与人均储蓄存款余额(yn3)

> y=yn2;

> lm.sol<-lm(y~1+yn3)

> 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 Std. Error t value Pr(>|t|)

(Intercept) 661.7588 63.5871 10.41 8.60e-09 ***

- 6 -

yn3 0.1833 0.0086 21.31 1.06e-13 ***

---

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 169.3 on 17 degrees of freedom

Multiple R-squared: 0.9639, Adjusted R-squared: 0.9618

F-statistic: 454 on 1 and 17 DF, p-value: 1.06e-13

2）人均消费支出(yn2)与居民纯收入(yn1)

> y=yn2;

> lm.sol<-lm(y~1+yn1)

> 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 <2e-16 ***

---

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 71.38 on 17 degrees of freedom

Multiple R-squared: 0.9936, Adjusted R-squared: 0.9932

F-statistic: 2631 on 1 and 17 DF, p-value: < 2.2e-16

由结果可以看出,常数项不显著，yn2与yn1之间显著。

3）人均储蓄存款(yn3)与居民纯收入(yn1)

> y=yn3;

- 7 -

> lm.sol<-lm(y~1+yn1)

> summary(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

Residual standard error: 941.2 on 17 degrees of freedom

Multiple 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<-lm(y~yn1+yn3,data=nongcun)

> summary(lm.sol.1)

Call:

lm(formula = y ~ yn1 + yn3, data = nongcun)

Residuals:

Min 1Q Median 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

- 8 -

yn1 0.66460 0.07331 9.065 1.06e-07 ***

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 of freedom

Multiple 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,20

- 9 -

05,2006,2007,2008),

ynx1=c(686.3,708.6,784.0,921.6,1221.0,2162.0,2210.3,2253.4,2366.4,247 5.6,2622.2,2936.4,3254.9,3587.0,4140.4,4760.6),

ynx2=c(584.6,619.8,659.2,769.7,1016.8,1590.3,1577.4,1670.1,1741.1,183 4.3,1943.3,2184.7,2555.4,2829.0,3223.9,3660.7),

ynx3=c(622.9,798.3,1003.2,1281.9,1794.7,4279.4,4739.4,5077.5,5780.7,6 768.7,8019.9,9196.6,10792.0,12297.4,13051.0,16406.8)

);nongcun1

> y=ynx2;

> lm.sol.1<-lm(y~ynx1+ynx3,data=nongcun)

> summary(lm.sol.1)

Call:

lm(formula = y ~ ynx1 + ynx3, data = nongcun)

Residuals:

Min 1Q Median 3Q Max

-92.579 -33.421 4.779 23.887 93.264

Coefficients:

Estimate Std. Error t value Pr(>|t|)

(Intercept) 184.49095 57.48235 3.210 0.00684 **

ynx1 0.52588 0.07239 7.265 6.32e-06 ***

ynx3 0.05891 0.01834 3.213 0.00680 **

---

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 55.75 on 13 degrees of freedom

Multiple R-squared: 0.9969, Adjusted R-squared: 0.9965

F-statistic: 2124 on 2 and 13 DF, p-value: < 2.2e-16

- 10 -

由上述分析结果知：删除部分异常数据后，所得的回归方程中的常数项和ynx3均变得显著，且R2。所得回归方程为：

y^=184.491+0.526*ynx1+0.0589*ynx3

将新的数据nongcun1中的ynx2与ynx1,ynx2与ynx3做线性拟合，结果如下。attach(nongcun1)

plot(ynx2~ynx1);

abline(lm(ynx2~ynx1))

attach(nongcun1)

plot(ynx2~ynx3);

abline(lm(ynx2~ynx3))

下面以2015年东部地区、中部地区和西部地区的部分代表省市为研究对象来说明东、中、西部的可支配收入、储蓄存款、生活消费支出等方面的发展差异。

- 11 -

东部地区以北京、天津、河北、广东、海南、上海、江苏、浙江、福建等9个地区为代表，中部以山西、内蒙古、河南、湖北、湖南、吉林、黑龙江、安徽、江西等9个地区为代表，西部以四川、贵州、云南、西藏、陕西、甘肃、青海、宁夏、新疆等9个地区为代表。

- 12 -

- 13 -

图4：可支配收入 图5：储蓄存款 图6：生活消费支出

由图4，图5，图6的箱线图可以看出东西部之间的差距

社会主义市场经济的不断发展打破了计划经济体制下共同贫穷的格局，居民收入水平变化明显，人民生活水平显著提高。与此同时，我国居民收入差距也在逐渐拉大，尤其是东中西部地区之间居民收入差距的持续拉大。地区间居民收入差距过分拉大不利于经济发展和社会稳定，也不利于我国全面建设小康社会和共同富裕宏伟目标的实现。

目前我国东中西部居民收入差距持续拉大的现状，主要由区位、历史、资源差异，市场化发展程度和体制差异，政策倾向以及公共服务水平不平衡等几个方面分析了东中西部地区居民收入差距扩大影响。

我国调解东中西部居民收入差距的具体对策如下：

1.加快中西部经济发展，为缩小地区差距提供物质保障；

2.深化改革开放，为加快中西部地区发展提供制度保障；

3.加大对中西部政策扶持，加速中西部经济增长；

4.转变政府职能，统筹东中西部公共产品供给等几个方面为缩小地区收入差距提供了探索。

对可支配收入（y1）、储蓄存款（y2）、生活消费支出（y3）两两之间做相关性分析

cor.test(y1,y2)

Pearson's product-moment correlation

data: y1 and y2

t = 4.0473, df = 25, p-value = 0.0004387

alternative hypothesis: true correlation is not equal to 0

95 percent confidence interval:

0.3274475 0.8144540

sample estimates:

cor

0.6291708

由上述检验结果知：p-value = 0.0004387<0.05，拒绝原假设，所以变量y1与y2相关，即可支配收入与储蓄存款是相关的。

cor.test(y1,y3)

Pearson's product-moment correlation

data: y1 and y3

t = 13.1296, df = 25, p-value = 1.020e-12

alternative hypothesis: true correlation is not equal to 0

95 percent confidence interval:

0.8598922 0.9700465

sample estimates:

cor

0.9345291

由上述检验结果知：p-value = 1.020e-12<0.05，拒绝原假设，所以变量y1与y3是相关的，即可支配收入与生活消费支出是相关的。

cor.test(y2,y3)

Pearson's product-moment correlation

data: y2 and y3

t = 3.4673, df = 25, p-value = 0.001916

alternative hypothesis: true correlation is not equal to 0

95 percent confidence interval:

0.2423070 0.7807839

sample estimates:

cor

0.5698492

由上述检验结果知：p-value = 0.001916<0.05，拒绝原假设，所以变量y2与y3是相关的，即储蓄存款与生活消费支出是相关的。

根据凯恩斯的理论，收入是居民储蓄的重要的决定因素，储蓄是收入的增函数，并且边际储蓄倾向是上升的。居民的可支配收入水平越高，储蓄存款就会越

- 14 -

多，城乡居民的储蓄存款额与居民的人均可支配收入水平同方向变动。

理论上，银行存款利率的高低对于城乡居民储蓄存款应有很大的影响，但由于我国经济发展水平不高，人们存款的主要动机主要是备于未来不时之需。当名义利率高于通货膨胀率，即实际利率大于零时，居民将收入存入银行才能得到资本的增值，而当名义利率低于通货膨胀率时，居民将钱存入银行不但不会使未来的消费增加反而会降低他们的实际消费水平。

收入高低是影响储蓄率的重要因素，要想使经济增长，储蓄水平较高，首先必须提高城乡居民的收入水平。具体来讲，可采取以下措施：

对城镇居民而言，一是要重点增加低收入职工的收入，切实抓好再就业工程，拓宽就业渠道；二是要鼓励支持居民拓宽投资渠道，实现居民资产的不断增值；三是加快国有企业改革，改进技术，提高企业经济效益，为增加职工收入创造条件。

对农村居民而言，一是要切实减轻农民负担，严禁对农村居民乱收费、乱摊派，将农民负担立法化；二是大力支持乡镇企业和私营经济的发展，加快农村劳动力向非农化转移；三是在大力兴建基础设施中，大量使用农村居民工，以工代贩，让农村居民增加劳务收入。

储蓄存款是建设资金，尤其是固定资产投资的重要来源。高储蓄为经济持续稳定增长打下坚实的基础。在目前形势下存款增长速度有所减缓，而储蓄分流过快，将会增强居民对通货膨胀预期损害。所以中国人民银行利用利率政策调控消费、房地产投资从而使储蓄按照适当的速度增长是十分必要的。

从发展趋势看，在2020年以前，东部与中西部地区间人均GDP的绝对差距还不可能出现逐步缩小的趋势，但东部与中部地区人均GDP的相对差距则有可能呈现逐步缩小的态势，而东部与西部地区的相对差距仍将会继续趋于扩大。这表明，实施西部大开发还将是一个长期的过程。

- 15 -

基于R语言在城乡收支水平差距

预测的应用

姓名：李圆圆

班级：信计C132班

学号：135787

- 16 -

本文来源：https://www.bwwdw.com/article/oxwl.html