地理探测器主要用于探测空间分异性，以及揭示其背后驱动因子
（王劲峰等，2017）
[1]
。地理探测器的功能主要包括分异及因子探测、交互作用探测、风险区探测、生态探测等4种探测器，其中最常使用的为
分异及因子探测
，即计算出
q值
与
p值
，以揭示地理要素的空间分异性，探究地理要素的影响因素。本文以R语言中用于地理探测器分析的
GD
包为例，展示如何使用
GD
包进行地理探测器分析过程，内容主要参考
GD
包中的
manual
[2]
、
Vignettes
[3]
及《地理探测器：原理与展望》一文，在code部分进行了一些优化与调整。
2、一个简单的示例
地理探测器目前有可在Windows系统运行的Excel版，并提供了一个简单的示例，本文首先以该示例文件中的数据为例，使用R语言中的
GD
包进行演示。由于地理探测器要求自变量x需为离散型变量，在该示例中，x已为离散型变量，因此可以直接用于地理探测器分析。
下载package与加载数据。test数据可后台回复
20220109
获取。
setwd("C:\\Users\\Acer\\Desktop" )#设置工作路径 "GD" ) #安装包 #加载包 test "test.csv") #读入数据 test ) #查看数据 # incidence type region level #1 5.94 7 5 5 #2 5.87 5 5 5 #3 5.92 5 5 5 #4 6.32 1 7 1
2.1
分异及因子探测
。分异及因子探测主要用于探测Y的空间分异性；以及探测某因子X多大程度上解释了属性Y的空间分异，用q值度量，利用GD包中的
gd()
函数。
test.fd type + region + level, data = test ) #构建模型，第一个变量为因变量，后面为自变量，data用于指定数据 #查看结果，qv即为地理探测器的q统计量，用来度量自变量对因变量的解释度，sig为显著性水平 # variable qv sig #1 type 0.3857168 0.372145486 #2 region 0.6377737 0.000128803 #3 level 0.6067087 0.043382244 #绘图 #sig为FALSE表示不显著的q值也进行展示
2.2
交互作用探测
。交互作用探测主要用于识别不同风险因子X之间的交互作用，即评估因子X1和X2共同作用时是否会增加或减弱对因变量 Y 的解释力，或这些因子对Y的影响是相互独立的，利用GD包中的
gdinteract()
函数。
test.gdinter type + region + level, data = test )#查看结果 #Interaction detector: # variable type region level #1 type NA NA NA #2 region 0.7232 NA NA #3 level 0.6630 0.7103 NA #绘图
2.3
风险区探测
。风险区探测主要用于判断两个子区域间的属性均值是否有显著的差别，利用GD包中的
gdrisk()
函数。其中以sig=0.05为标准，小于0.05为显著，即Y，大于0.05为不显著，即N。
test.gdrisk type + region + level, data = test )#查看结果， #type # interval 1 2 3 5 7 #1 1 #2 2 Y #3 3 Y N #4 5 Y Y Y #5 7 N Y Y Y # #region # interval 1 2 3 4 5 6 7 8 9 #1 1 #2 2 Y #3 3 Y Y #4 4 Y N Y #5 5 Y Y Y Y #6 6 Y Y Y Y N #7 7 Y Y N Y Y Y #8 8 Y Y N Y Y Y N #9 9 Y Y N Y Y Y N Y # #level # interval 1 2 3 4 5 6 7 #1 1 #2 2 Y #3 3 Y N #4 4 Y Y Y #5 5 Y Y Y Y #6 6 Y Y Y Y Y #7 7 Y Y Y Y Y Y #绘图
2.4
生态探测
。生态探测主要用于比较两因子X1和X2对属性Y的空间分布的影响是否有显著的差异，利用GD包中的
gdeco()
函数。
test.gdeco type + region + level, data = test )#查看结果 #Ecological detector: # variable type region level #1 type #2 region Y #3 level Y N #绘图
2.5
综合
。在GD包中提供了
gdm()
函数，可用于一次输出上述4种探测的所有结果。
#一次输出所有结果 test )#查看结果 #绘图
3、一个综合的示例
上文中展示了一个可直接用于地理探测器分析的数据，但在实际研究中，数据往往不能直接用于地理探测器分析，由于地理探测器要求自变量x需为离散型变量，因此首先需要对连续型变量进行离散化处理。进行离散化的方法有常见的如使用ArcGIS中的自然断点法，SPSS中的k-means聚类等方法，而在GD包中提供了6种离散化方法，分别为
equal
(等距),
natural
(自然间断点分类-Jenks),
quantile
(分位数),
geometric
(几何间隔),
sd
(标准差),
manual
(手动间隔),每种分类方法的含义可参考ArcGIS Pro中的
数据分类方法
[4]
介绍。同时，在GD包中提供了
optidisc()
函数，可以通过算法自动计算出最优的方法及分类，对快速优化数据用于地理探测器分析具有方便、快捷的功能。
3.1 数据准备。利用GD包中自带的ndvi_40数据，该数据集包含NDVIchange，Climatezone、Mining、Tempchange、Precipitation、GDP、Popdensity等7个变量，后4个变量为连续型变量。在本文中，选择NDVIchange为因变量，选择Climatezone、Mining、Tempchange、Popdensity为自变量，进行地理探测器分析，其中Tempchange、Popdensity为连续型变量，需要首先进行离散化处理。
# 查看数据基本结构 # NDVIchange Climatezone Mining Tempchange Precipitation GDP Popdensity #1 0.11599 Bwk low 0.25598 236.54 12.55 1.44957 #2 0.01783 Bwk low 0.27341 213.55 2.69 0.80124 #3 0.13817 Bsk low 0.30247 448.88 20.06 11.49432 #4 0.00439 Bwk low 0.38302 212.76 0.00 0.04620 #5 0.00316 Bwk low 0.35729 205.01 0.00 0.07482 #6 0.00838 Bwk low 0.33750 200.55 0.00 0.54941 #'data.frame': 713 obs. of 7 variables: # $ NDVIchange : num 0.11599 0.01783 0.13817 0.00439 0.00316 ... # $ Climatezone : chr "Bwk" "Bwk" "Bsk" "Bwk" ... # $ Mining : Factor w/ 5 levels "very low","low",..: 2 2 2 2 2 2 2 2 2 2 ... # $ Tempchange : num 0.256 0.273 0.302 0.383 0.357 ... # $ Precipitation: num 237 214 449 213 205 ... # $ GDP : num 12.55 2.69 20.06 0 0 ... # $ Popdensity : num 1.4496 0.8012 11.4943 0.0462 0.0748 ... #[1] "NDVIchange" "Climatezone" "Mining" "Tempchange" "Precipitation" "GDP" "Popdensity"
3.2 确定数据离散化的最优方法与最优分类
discmethod "equal","natural" ,"quantile" ,"geometric" ,"sd" ) #选择离散化方法 #optidisc(y~x, data,间断点方法, 间断点个数) #输出经过optidisc()函数计算后的最优方法与最优分类 #optimal discretization result of Tempchange #method : quantile #number of intervals: 10 #intervals: # -0.39277 0.225738 0.471748 0.750186 1.041764 1.23631 1.363464 1.579234 1.855572 2.122304 3.22051 #numbers of data within intervals: # 72 71 71 71 72 71 71 71 71 72 #optimal discretization result of Popdensity #method : quantile #number of intervals: 8 #intervals: # 0 0.19673 0.73482 1.48121 3.17266 7.49744 18.85842 46.52966 970.8682 #numbers of data within intervals: # 92 87 89 89 89 89 89 89 #对最优方法与最优分类进行可视化
通过
optidisc()
函数可以发现，对于Tempchange和Popdensity变量，都适合采用
quantile
离散化方法，其中Tempchange适合分为10类，Popdensity适合分为8类。
3.3 对数据进行离散化
odc.Tempchange $Tempchange, 10, method = "quantile" ) #根据上述结果指定数据，分类数量以及分类方法 "quantile" )#查看分类间隔 #Intervals: # -0.39277 0.225738 0.471748 0.750186 1.041764 1.23631 1.363464 1.579234 1.855572 2.122304 3.22051 #Intervals: # 0 0.19673 0.73482 1.48121 3.17266 7.49744 18.85842 46.52966 970.8682 #查看odc.Tempchange结构，itv为离散化的变量 #List of 2 # $ var: num [1:713] 0.256 0.273 0.302 0.383 0.357 ... # $ itv: Named num [1:11] -0.393 0.226 0.472 0.75 1.042 ... # ..- attr(*, "names")= chr [1:11] "0%" "10%" "20%" "30%" ... # - attr(*, "class")= chr "disc" #List of 2 # $ var: num [1:713] 1.4496 0.8012 11.4943 0.0462 0.0748 ... # $ itv: Named num [1:9] 0 0.197 0.735 1.481 3.173 ... # ..- attr(*, "names")= chr [1:9] "0%" "12.5%" "25%" "37.5%" ... # - attr(*, "class")= chr "disc"
3.4 生成离散化后的新变量，需要用到
cut()
函数，cut()函数用法可见第4部分
ndvi_40$dis .Tempchange $Tempchange, breaks = odc.Tempchange$itv , include.lowest = TRUE)$dis .Popdensity $Popdensity, breaks = odc.Popdensity$itv , include.lowest = TRUE)# NDVIchange Climatezone Mining Tempchange Precipitation GDP Popdensity dis.Tempchange dis.Popdensity #1 0.11599 Bwk low 0.25598 236.54 12.55 1.44957 (0.226,0.472] (0.735,1.48] #2 0.01783 Bwk low 0.27341 213.55 2.69 0.80124 (0.226,0.472] (0.735,1.48] #3 0.13817 Bsk low 0.30247 448.88 20.06 11.49432 (0.226,0.472] (7.5,18.9] #4 0.00439 Bwk low 0.38302 212.76 0.00 0.04620 (0.226,0.472] [0,0.197] #5 0.00316 Bwk low 0.35729 205.01 0.00 0.07482 (0.226,0.472] [0,0.197] #6 0.00838 Bwk low 0.33750 200.55 0.00 0.54941 (0.226,0.472] (0.197,0.735]
3.5 进行地理探测器分析
