【发布时间】:2020-07-15 12:58:58
【问题描述】:
我正在尝试进行地理加权逻辑回归来量化我的数据集中的空间变化。然而,在运行 gwr 模型时,我收到输入数据和坐标具有不同维度的错误。
这是我用于荷兰边境的代码:
unzip("ne_10m_admin_1_states_provinces.zip",exdir="NaturalEarth")
border <- shapefile("NaturalEarth/ne_10m_admin_1_states_provinces.shp")
#extract border netherlands
Netherlands1 <- border[paste(border$iso_a2)=="NL",]
我的数据具有关于病原体流行率的二元结果 (0/1)。
Data_coord <- data[,c(1:2)] #extract coordinates
sp.data <- SpatialPointsDataFrame(coords = data_coord, data = data_full3.p,
proj4string = CRS("+proj=longlat +datum=WGS84 +no_defs")) #convert to spatialpoint dataframe
接下来我进行了逻辑回归。这里没有问题。
m <- glm(glm(pathogen ~ Age_category,
family=binomial(link='logit'),data=sp.data))
summary(m)
我使用平面 CRS 将数据转换为空间*对象
alb <- CRS("+proj=utm +zone=31N +datum=WGS84")
sp <- sp.data
spt <- spTransform(sp, alb)
ctst <- spTransform(Netherlands1, alb)
#get optimal bandwidth
bw <- gwr.sel(A._phagocytophilum_qPCR1 ~ Age_Category, data=spt)
bw
但是当我运行这条线时,我得到一个错误
#run gwr function
g <- gwr(pathogen ~ Age_Category, data=spt, bandwidth=bw, fit.points=newpts[, 1:2])
gwr 中的错误(病原体 ~ Age_Category,数据 = spt,带宽 = bw,: 输入数据和坐标有不同的维度
有人知道如何解决这个问题吗?提前谢谢!
【问题讨论】: