我有数据在边界外有数字，我试图使用下面的代码得到非加权和加权图像，但结果是一个非常小的图像，我可以看到数据在那里绘制，但它非常小：
RM（列表= LS（）） setwd（＆＃34;〜/桌面/野生＆＃34） 库（＆＃39; spatstat＆＃39;） 库（＆＃39; SP＆＃39;） 库（＆＃39;光栅＆＃39;） 库（＆＃39; maptools＆＃39;） 库（＆＃39; rgeos＆＃39;） DATA1＆LT; -read.table（＆＃34; AllObs.csv＆＃34; 09月=＆＃34;＆＃34;，标题= TRUE） coordinates（data1）＆lt; - ~utm_x + utm_y 类（数据1） [1]＆＃34; SpatialPointsDataFrame＆＃34; ATTR（＆＃34;包＆＃34） [1]＆＃34; sp＆＃34;
导入Shapefile
约束＆LT; -readShapePoly（＆＃34;〜/桌面/野生动物/ Bounding_Box.shp＆＃34） 建筑＆LT; -readShapePoly（＆＃34;〜/桌面/野生动物/ BuildingFootsprints.shp＆＃34） 水＆LT; -readShapePoly（＆＃34;〜/桌面/野生动物/ Water_Bodies.shp＆＃34）
空间线
Roads_uw＆LT; -readShapeLines（＆＃34;〜/桌面/野生动物/ Roads_uw.shp＆＃34） 小溪＆LT; -readShapeLines（＆＃34;〜/桌面/野生动物/ Creeks.shp＆＃34） 道路及LT; -readShapeLines（＆＃34;〜/桌面/野生动物/ Roads.shp＆＃34）
绘制空间数据
参数（MAR = C（0.1,0.1,0.1,0.1）） 剧情（绑定） 框（） data1＆lt; - data1 [！is.na（over（x = data1，y = as（bound，＆＃34; SpatialPolygons＆＃34;））），] plot（building，add = TRUE，col =＆＃34; pink＆＃34;，cex = 0.3，pch = 16） plot（Roads，add = TRUE，col =＆＃34; black＆＃34;，cex = 0.3，pch = 16） plot（Roads_uw，add = TRUE，cex = 0.3，pch = 16） plot（water，add = TRUE，col =＆＃34; cyan＆＃34;，lwd = 1） plot（creeks，add = TRUE，col =＆＃34; red＆＃34;，lwd = 1） 传奇（＆＃34; topright＆＃34;，inset = 0.001，cex = 0.7， + c（＆＃34; Building＆＃34;，＆＃34; Roads＆＃34;，＆＃34; Roads_uw＆＃34;，＆＃34; Water＆＃34;，＆＃34; Creeks＆＃34;），pch = c（16，NA），lty = c（NA，1），col = c（＆＃34;粉红色＆＃34;，＆＃34;黑＆＃34;，＆＃34;黑＆＃34;，＆＃ 34;青色＆＃34;＆＃34;红色＆＃34））
按学习区域剪辑额外
building_cl＆LT; -gIntersection（spgeom1 =建筑物，spgeom2 =结合）的 Roads_cl＆LT; -gIntersection（spgeom1 =道路，spgeom2 =结合）的 Roads_uw＆LT; -gIntersection（spgeom1 = Roads_uw，spgeom2 =结合） water_cl＆LT; -gIntersection（spgeom1 =水，spgeom2 =结合）的 creeks_cl＆LT; -gIntersection（spgeom1 =小溪，spgeom2 =结合）的
绘制空间数据
参数（MAR = C（0.1,0.1,0.1,0.1）） 剧情（绑定） 框（） plot（building_cl，add = TRUE，col =＆＃34; pink＆＃34;，cex = 0.3，pch = 16） plot（Roads_cl，add = TRUE，col =＆＃34; black＆＃34;，cex = 0.3，pch = 16） plot（Roads_uw，add = TRUE，cex = 0.3，pch = 16） plot（water_cl，add = TRUE，col =＆＃34; cyan＆＃34;，lwd = 1） plot（creeks_cl，add = TRUE，col =＆＃34; red＆＃34;，lwd = 1） 传奇（＆＃34; topright＆＃34;，inset = 0.001，cex = 0.7， + c（＆＃34; Building＆＃34;，＆＃34; Roads＆＃34;，＆＃34; Roads_uw＆＃34;，＆＃34; Water＆＃34;，＆＃34; Creeks＆＃34;），pch = c（16，NA），lty = c（NA，1），col = c（＆＃34;粉红色＆＃34;，＆＃34;黑＆＃34;，＆＃34;黑＆＃34;，＆＃ 34;青色＆＃34;＆＃34;红色＆＃34））
点模式分析
DATA2＆LT; -read.table（＆＃34; PPP.csv＆＃34; 09月=＆＃34;＆＃34;，标题= TRUE） data2win＆LT; -owin（C（分钟（DATA2 $ utm_x）-10000，最大值（DATA2 $ utm_x）万）， + c（min（data2 $ utm_y）-10000，max（data2 $ utm_y）+10000）） data2win window：rectangle = [525488,547767] x [4801386,4844192]个单位 data2pp＆LT; -ppp（X = data2的$ utm_x，Y = data2的$ utm_y，窗口= data2win） data2pp 平面点图案：106点 window：rectangle = [525488,547767] x [4801386,4844192]个单位 sigma＆lt; - bw.ppl（data2pp） data2_nw＆lt; -density（data2pp，sigma = sigma） data2_w＆lt; -density（data2pp，sigma = sigma，weights = data2 $ num_indiv）
将非加权转换为栅格
data2_nwr＆LT; -raster（data2_nw） data2_nwr＆LT; -mask（data2_nwr，结合）的
将加权图像转换为栅格
data2_wr＆LT; -raster（data2_w） data2_wr＆LT; -mask（data2_wr，结合）的
设置两个面板图
参数（mfrow = C（1,1），擦伤= C（1,1,1,1））
在上面板中绘制非加权
plot（data2_nwr，axes = FALSE，main =＆＃34; Non-Weighted＆＃34;） plot（bound，add = TRUE） 框（） 点（DATA2 $ utm_x，DATA2 $ utm_y，PCH = 16，CEX = 0.3） plot（building_cl，add = TRUE，col =＆＃34; pink＆＃34;，cex = 0.2，pch = 16） plot（Roads_cl，add = TRUE，col =＆＃34; black＆＃34;，cex = 0.2，pch = 16） plot（Roads_uw，add = TRUE，cex = 0.2，pch = 16） plot（water_cl，add = TRUE，col =＆＃34; cyan＆＃34;，lwd = 0.2） plot（creeks_cl，add = TRUE，col =＆＃34; red＆＃34;，lwd = 0.2）
在下图中加权的情节
plot（data2_wr，axes = FALSE，main =＆＃34; Weighted＆＃34;） plot（bound，add = TRUE） 点（DATA2 $ utm_x，DATA2 $ utm_y，PCH = 16，CEX = 0.2） plot（building_cl，add = TRUE，col =＆＃34; pink＆＃34;，cex = 0.2，pch = 16） plot（Roads_cl，add = TRUE，col =＆＃34; black＆＃34;，cex = 0.2，pch = 16） plot（Roads_uw，add = TRUE，cex = 0.2，pch = 16） plot（water_cl，add = TRUE，col =＆＃34; cyan＆＃34;，lwd = 0.2） plot（creeks_cl，add = TRUE，col =＆＃34; red＆＃34;，lwd = 0.2） 传奇（＆＃34; topright＆＃34;，inset = 0.001，cex = 0.7， + c（＆＃34; Building＆＃34;，＆＃34; Roads＆＃34;，＆＃34; Roads_uw＆＃34;，＆＃34; Water＆＃34;，＆＃34; Creeks＆＃34;），pch = c（16，NA），lty = c（NA，1），col = c（＆＃34;粉红色＆＃34;，＆＃34;黑＆＃34;，＆＃34;黑＆＃34;，＆＃ 34;青色＆＃34;＆＃34;红色＆＃34））
我们的教授也给了我们这个代码，这是为了消除这个错误：
data2＆lt; - data2 [！is.na（over（x = data2，y = as（bound，＆＃34; SpatialPolygons＆＃34;））），]
但是当我尝试使用它时，我收到此错误： （函数（classes，fdef，mtable）中的错误： 无法为签名'＆＃34; data.frame＆＃34;，＆＃34; SpatialPolygons＆＃34;'
找到函数'over'的继承方法感谢您的帮助！