1. 引言
衡量一个城市的强弱与否,经济发展水平都是一个至关重要的指标。近年来,为解决山东省经济发展问题,山东省下发多个与经济相关的政策文件,落实“六稳”“六保”促进高质量发展政策清单,鼓励支持扩大制造业和技术改造投资方面,充分激发社会消费潜力方面。有鉴于此,本文将针对山东省16个城市的经济发展水平进行研究。
张震、覃成林 [1] 构建了由经济发展动力、新型产业结构、交通信息基础设施等7个维度组成的经济高质量发展指标体系,并构建城市群经济高质量发展指数对粤港澳大湾区经济高质量发展进行研究;朱家明、孙榕竟 [2] 选取了地区生产总值、固定资产投资价格指数、货运量总计、工业污染治理完成投资、国内专利申请受理项数等指标,使用因子分析对国内地区经济发展水平进行了综合评价与分析,并给出区域协调发展与优化资源配置的建议;代美华 [3] 针对川渝区域经济高质量发展的影响因素,提取川渝区域经济发展过程中的变量,确定了川渝区域经济高质量发展统计评价模型指标及其权重,并使其结果量化;郭杨 [4] 使用因子分析对山东省各地区综合实力进行研究评价,其使用因子分析得出了四个主因子,并且对四个主因子都进行了聚类分析,从四个方面对于山东省的地区综合实力进行了分析。李奇、胡世雄 [5] 等建立了经济总量、经济结构、经济效益三方面的经济发展评价体系,使用主成分分析研究山西省经济综合实力。
本文通过查阅参考文献,最终选择了固定资产投资、社会消费零售总额、就业人员数、生产总值、全体居民可支配收入、全体居民人均消费支出、公共预算收入、第二产业值、第三产业值、出口总值、进口总值11个衡量经济发展水平的指标,使用因子分析方法对其进行研究,再进一步使用聚类分析对不同经济发展水平的城市进行分类。经过翻阅大量参考文献,发现大部分学者使用因子分析和聚类分析对经济发展水平进行研究时,并没有使用统计方法对聚类分析结果进行验证,所以本文为验证聚类分析结果的正确性,使用Fisher判别方法直观判断聚类分析结果的正确性,保证过程的完整性和准确性。本文基于以上方法,将对山东省经济发展水平进行研究,指出山东省的经济发展现状,并给出相关建议。
2. 材料与方法
2.1. 研究经济发展的指标选取原则
要建立全面、准确、合理的区域指标,需要遵守以下基本原则 [6]:
1) 科学性:选取指标需具有理论依据,可以经得起实践检验,能客观反映经济发展状况,具备足够的科学性。
2) 代表性:选取的指标应该具有代表性,与经济发展相关。这并不意味着选取的指标越多越好,应当以深入了解城市的经济发展为根本,选择能够区分不同城市经济发展水平,并且可以反映问题,具有代表性的指标。
3) 可行性:选取指标时,要充分考虑所选取的指标是否适合用来定量分析,其不会导致评价过程变得困难,可确保分析的可行性和分析结果的客观性。
4) 可获得性:选取指标时要考虑所需数据的来源,在遵循代表性和可行性的基础上,选择可通过统计年鉴、单位部门等有关途径获得准确数据的指标。
2.2. 指标的选取
基于以上选取指标的原则并参考文献,本文以2019年山东省16城市的经济发展为对象,选择了11项能够反映城市经济发展的主要经济指标,具体指标如下表1所示。(数据来源于2020年山东省统计年鉴以及2020年山东省16个城市的统计年鉴,具体数据见附录。)
2.3. 地区经济发展研究的方法
本文首先选取11个影响城市经济发展的主要经济指标,构建了山东省经济发展评价指标体系,并通过借助R软件,运用因子分析、聚类分析,Fisher判别对数据进行分析。通过因子分析建立山东省经济发展的评价模型,聚类分析将山东省不同经济发展水平的城市进行分类,最后通过Fisher判别直观检验聚类结果的正确性。
2.3.1. 因子分析
因子分析是一种将较多数据实现降维的方法,它试图用几个潜在,不可预测的随机变量(因子)来描述原始变量间的协方差或相关关系。这些随机变量的个数会尽可能地比原始变量的个数少,并且涵盖原始变量的较多信息 [7]。
因子分析的矩阵形式的模型如下:
即:
其中
称为公共因子,
为
的特殊因子,
为因子载荷,是第i个变量在第j个因子上的负荷。并且符合以下条件
1)
;
2)
;
3)
,即公共因子之间不相关且方差为1;
4)
,特殊因子不相关且方差不同;
5)
,即公共因子与特殊因子不相关;
2.3.2. 聚类分析
常见的聚类分析方法有系统聚类法、动态聚类法、最优分割法等。本文使用系统聚类法进行聚类分析。系统聚类法是将最初n个样本看成一类,然后计算类与类之间的距离,将类与类之间距离最小的归为一类,为新类,再计算新类与其他类的距离,重复上述过程,直到所有样品归为一类。
2.3.3. Fisher判别
Fisher判别是一种降维的方法。用原始变量的少数几个线性组合(Fisher判别函数)来代替原始变量,并通过判别函数对样品的归属做出判别或将各组分离。当判别函数为2个,可计算各样品的两个判别函数得分,并画出判别函数得分的散点图,使用目测法对样品的分离情况及结构进行观察。通过判别函数得分的散点图,Fisher判别在本文当中可用来检验聚类分析的结果是否正确。
3. 结果与分析
3.1. 因子分析
3.1.1. KMO和Barlett检验

Table 2. KMO Bartlett Ball degree test
表2. KMO和Barlett的检验
由表2可知,KMO的值为0.8,Barlett的球形检验的显著性小于0.01,意味着原始变量之间的相关性强,说明原始变量适合做因子分析。
3.1.2. 因子分析过程
利用R软件进行因子分析,结果如下:
图1中以因子的特征值为纵坐标,以因子个数为横坐标,从图中可以看出前两个特征值非常陡峭,而在2个以后,变化就不是很明显,由此可以说明2个因子就能涵盖原始变量的大部分信息。将所得结果进行整理,所得数据如下表:

Table 3. Explanation of total variance
表3. 总方差解释表
表3是因子提取后的结果。初始特征值是衡量因子重要程度的指标。第一主因子的特征值为8.3,表明第一个因子解释了原有方差的75%,第二主因子的特征值为1.62,表明第二个主因子解释了原有方差的1.62,两者的方差累积贡献率为90%,所以保留两个主因子。由于未旋转的因子载荷矩阵可能某一行有多个载荷系数比较大,也有可能某一列有多个载荷系数比较大,这表明公共因子可能解释了多个变量的信息,导致该因子代表性不强,所以为了更好的解释每一个公共因子所代表的实际含义,进行因子旋转。利用R软件所得结果如下:

Table 5. Explanation table of total variance after factor rotation
表5. 因子旋转后总方差解释表

Table 6. Factor load table after factor rotation
表6. 因子旋转后因子载荷表
对比表3,表4,表5,表6可知:旋转前后因子的方差比例不变,但在各观测值的载荷上发生了改变。由表6可知:
第一主因子在固定资产投资、社会消费零售总额、就业人员数、生产总值、公共预算收入、第二产业值、第三产业值、出口总值、进口总值有比较大的载荷,命名为经济总量因子。
第二主因子在全体居民可支配收入、全体居民人均消费支出有较大的载荷,命名为生活水平因子。
由表6旋转后因子载荷表将2个主因子用原始的11个变量表示出来,可得如下综合评价模型:
第一主因子得分函数:
第二主因子得分函数:
综合得分:
通过综合评价模型,计算出山东省各个城市各个因子的得分,得到结果如下:
第一主因子代表山东省各个城市的经济总量因子,第二主因子代表山东省各个城市的人民生活水平因子,由表7可以看出无论是第一主因子得分、第二主因子得分,还是综合得分都存在较大的差异,其中青岛市的第一主因子得分,第二主因子得分和综合得分最高,枣庄市的第一主因子得分、综合得分最低,聊城市的第二主因子成分最低,每一种得分的极差都在20以上。第一主因子、第二主因子、综合得分的平均值都分别近似为0,其中每个得分都高于平均值的城市有:青岛市、济南市、烟台市、潍坊市,低于平均值的城市有:淄博市、枣庄市、东营市、济宁市、泰安市、威海市、日照市、临沂市、德州市、聊城市、滨州市、菏泽市,这说明山东省地区经济发展差距很大,发展不平衡,不协调。
下图2和图3是利用R软件进行数据可视化的结果:

Figure 2. Factor analysis data analysis
图2. 因子分析数据分析
3.2. 对原始变量进行聚类分析
将所得标准化数据利用R软件按照最短距离法进行聚类分析,得到分类结果,见表8。

Table 8. Results of cluster analysis
表8. 聚类分析结果表

Figure 4. Cluster analysis result chart
图4. 聚类分析结果图
由上图4可以看出聚类结果为:
第一类:青岛市
第二类:济南市、烟台市
第三类:东营市、潍坊市、淄博市、威海市
第四类:枣庄市、东营市、济宁市、日照市、临沂市、德州市、聊城市、滨州市、菏泽市
通过对原始变量的聚类,将山东省16个城市分为了四类,该种分类结果也符合实际情况,青岛市是一个港口城市,贸易发达、招商引资,有很强的商业基础。济南市为山东省会城市、是南北东西的交通枢纽。烟台是一个沿海城市,地理位置好,气候环境好,富有盛名的水果之乡,所以第一类、第二类城市的经济发展水平都比较高。而第三类城市是省内经济发展质量一般的城市,有些城市的地理位置好,但缺乏地方特色产业,经济发展道路中规中矩。最后一类城市的经济发展水平最低,在经济结构及金融发展维度的表现更是差强人意 [8]。
3.3. Fisher判别
本文针对原始变量聚类分析的结果使用R进行Fisher判别。

Table 9. Contribution rate of discriminant function
表9. 判别函数贡献率
由表9可以看出第一判别函数和第二判别函数的累积贡献率为98%,涵盖了原始变量大部分信息,所以选取两个判别函数。
第一判别函数为:
第二判别函数为:
根据第一判别函数和第二判别函数计算出山东省16个城市的第一判别函数得分和第二判别函数得分,并以第一判别函数得分为横坐标,第二判别函数得分为纵坐标,画出散点图。

Figure 5. Scatter plot of Fisher discriminant function
图5. Fisher判别函数得分散点图
根据散点图5可以看出每一类的分离效果都十分明显,这说明该种聚类结果是合理正确的。
4. 讨论
4.1. 总结
本文通过因子分析将多个有关经济发展的指标转化为第一主因子(经济总量因子)和第二主因子(生活水平因子),并计算其综合得分来探究山东省不同城市的经济发展水平。而后通过聚类分析将山东省不同经济水平的城市进行分类,最后再通过Fisher判别验证聚类结果是否准确。
4.2. 政策建议
4.2.1. 区域协调发展,缩小城市之间差距
由数据分析结果可以看出,山东省不同城市之间经济发展水平存在明显的差距,所以山东省不同城市地区应协调发展,缩小不同城市之间的差距。对于经济发展相对落后的城市应充分挖掘内部潜力,加大基础设施建设力度,调整人民收入分配格局,实现城乡居民收入增长和经济增长同步,劳动报酬增长和劳动生产率提高同步,培养投资需求和消费需求 [9]。周边城市也可以发挥辐射作用,带动经济发展质量较低的城市一同发展。
4.2.2. 打造区域特色,发展重点经济
政府应当提高对各城市自身发展的条件和可以利用的资源的认识,建立不同城市在不同资源领域、不同技术方向上的竞争优势。东营市可利用好现有优势,大力发展高效生态农业,环境友好型工业,现代服务业,海洋产业等。济宁市可主导现代医药,现代农业等,泰安市可主导旅游业等。各城市相互借鉴,取长补短,提高山东省经济发展水平。
附录
山东省16个城市未标准化数据
因子分析R代码
setwd(D:/R1)
x<-read.csv(论文数据.csv,sep=,header=T)
x
x<-scale(x[-1])
x_cor<-cor(x)
x_cor
library(psych)
KMO(x)
cortest.bartlett(x)
fa.parallel(x.obs=176,fa=both,n.iter=100,show.legend=T)
x<-scale(x[-1])
fa.parallel(x_cor,n.obs=176,fa=both,n.iter=100,show.legend=T)
model1<-fa(x_cor,nfactors=2,rotate=none,fm=ml)
model1
model2<-fa(x_cor,nfactors=2,rotate=varimax,fm=ml)
model2
factor.plot(model2)
fa.diagram(model2,simple=F)
factor.plot(model2)
F1<-0.81*x[,1]+0.91*x[,2]+0.89*x[,3]+0.85*x[,4]+0.19*x[,5]+0.18*x[,6]+0.8*x[,7]+0.77*x[,8]+0.86*x[,9]+0.63*x[,10]+0.39*x[,11]
F1
F2<-0.51*x[,1]+0.39*x[,2]-0.2*x[,3]+0.53*x[,4]+0.96*x[,5]+0.98*x[,6]+0.57*x[,7]+0.6*x[,8]+0.51*x[,9]+0.56*x[,10]+0.68*x[,11]
F3<-0.56*F1+0.44*F2
聚类分析R代码
region<-x[-1]
X<-data.frame(row.names=region,x)
d3<-dist(X)
hc3<-hclust(d3single)
plot(hc3)
rect.hclust(hc2,k=4)
cutree(hc2,k=4)
Fisher判别R代码
g<-c(1,2,3,4,3,1,3,4,4,3,4,4,4,4,4,4)
data1<-as.data.frame(cbind(g,x))
library(MASS)
ld<-lda(g~x1+X.x2..+x3+x4+x5+x6+x7+x8+x9+x10+x11, data1)
Z<-predict(ld)
round(Z$x, 3)
plot(Z$x, cex=1.4)
text(Z$x[, 1],Z$x[, 2],cex=0.5, data1$g)
g<-c(1,2,3,4,3,1,3,4,4,3,4,4,4,4,4,4)
data1<-as.data.frame(cbind(g,x))
library(MASS)
ld<-lda(g~x1+X.x2..+x3+x4+x5+x6+x7+x8+x9+x10+x11, data1)
ld
round(Z$x, 3)
plot(Z$x, cex=1.4)
text(Z$x[, 1],Z$x[, 2],cex=0.5, data1$g) #为散点标号