如何计算犯罪密度？

Question

总体目标：计算美国城市网格结构中的犯罪密度。每个网格方格应为100平方米。我有一个数据框crime.inc列出了个人犯罪实例lat和lon;这样的事情：

incident id   lat       lon
1001         45.123   -122.456
1002         45.456   -122.789

接下来，我有一个预定义的网格g，它是一个常规网格

predef.grid <- data.frame(lat = seq(from = 44, to = 45, by = 0.1),lon = seq(from = -122, to = -121, by = 0.1))
id <- rownames(predef.grid)  # add row ids
predef.grid <- cbind(id=id, predef.grid)  # add row ids

我的输出必须是这样的，每行是预定义网格中的唯一网格，其中count是该网格中的事件数：

id      lat   lon       count
1001  45.123  -122.789    4
1002  45.456  -122.987    5

我尝试过以各种形式使用sp，sf，raster，rgeos，从来没有让岩石越过山坡！任何帮助，将不胜感激！

Answer 1

“0.001与纬度/经度坐标相关的约为100m”的假设可能无法保持。距离取决于您所在的世界，但使用您所在地区的示例数据：

library(sf)

# adjust latitude by 0.001
df <- data.frame(lat = c(45.123, 45.124),  lon = c(-122.789, -122.789))
df.sf <- st_as_sf(df, coords = c("lon", "lat"), crs = 4326)
> st_distance(df.sf)
Units: m
         [,1]     [,2]
[1,]   0.0000 111.1342
[2,] 111.1342   0.0000

#Or, if we adjust the longitude by 0.001:
df <- data.frame(lat = c(45.123, 45.123),  lon = c(-122.789, -122.790))
df.sf <- st_as_sf(df, coords = c("lon", "lat"), crs = 4326)
> st_distance(df.sf)
Units: m
         [,1]     [,2]
[1,]  0.00000 78.67796
[2,] 78.67796  0.00000

以下是使用sf包解决问题的替代方案：

# add a few more points to make it more interesting
df <- data.frame(id = c(1001, 1002, 1003, 1004, 1005),
                 lat = c(45.123, 45.123, 45.126, 45.121, 45.130), 
                 lon = c(-122.456, -122.457, -122.444, -122.442, -122.445))

# convert to an sf object and set projection (crs) to 4326 (lon/lat)
df.sf <- st_as_sf(df, coords = c("lon", "lat"), crs = 4326)

# transform to UTM (Zone 10) for distance
df.utm <- st_transform(df.sf, "+proj=utm +zone=10 +datum=WGS84 +units=m +no_defs")

# create a 100m grid on these points
grid.100 <- st_make_grid(x = df.utm, cellsize = c(100, 100))

# plot to make sure
library(ggplot2)
ggplot() +
  geom_sf(data = df.utm, size = 3) +
  geom_sf(data = grid.100, alpha = 0)

＃将grid转换为sf（而不是sfc）并添加id列grid.sf

# find how many points intersect each grid cell by using lengths() to get the number of points that intersect each grid square
grid.sf$count <- st_intersects(grid.sf, df.utm) %>% lengths()

情节检查

ggplot() +
  geom_sf(data = grid.sf, alpha = 0.5, aes(fill = as.factor(count))) +
  geom_sf(data = df.utm, size = 3) +
  scale_fill_discrete("Number of Points")

Answer 2

对于问题上的数据，lat和lon只有三位小数。因此，您可以简单地使用dplyr按位置分组，而不需要使用GIS包。

library(dplyr)
densities <- crime.inc %>% group_by(lat,lon) %>% 
             summarise(count=n())

这样你就会失去身份证。如果你想保留ID

library(dplyr)
densities <- crime.inc %>% group_by(lat,lon) %>% 
             rename(count=n())