r - 计算预定义网格内的点数

Question

我有一个包含 X、Y 坐标的数据集，我想知道我的数据集中的点如何落入我预定义的网格中的每个正方形内。

下面是生成以下图的一些示例代码。

我想做的是为每个观察分配一个组 ID，告诉您该点落在哪个方 block 中。这样我就可以计算每个组 ID 中的点数

df <- data.frame(replicate(2,sample(0:100,100,rep=TRUE)))

  ggplot(df, aes(x = X1, y = X2)) + 
  geom_point()

Answer 1

在 x 和 y 坐标上使用 cut，每 25 次或其他任何时间中断一次，然后您可以使用 dplyr 按组计数。

library(dplyr)
df %>% mutate(
  cut_x = cut(X1, breaks = seq(0, 100, by = 25), include.lowest = T),
  cut_y = cut(X2, breaks = seq(0, 100, by = 25), include.lowest = T)
) %>%
count(cut_x, cut_y)
# # A tibble: 16 x 3
#    cut_x    cut_y        n
#    <fct>    <fct>    <int>
#  1 [0,25]   [0,25]       6
#  2 [0,25]   (25,50]      4
#  3 [0,25]   (50,75]      6
#  4 [0,25]   (75,100]     9
#  5 (25,50]  [0,25]       3
#  6 (25,50]  (25,50]      2
#  7 (25,50]  (50,75]      6
#  8 (25,50]  (75,100]     6
#  9 (50,75]  [0,25]       5
# 10 (50,75]  (25,50]      6
# 11 (50,75]  (50,75]      6
# 12 (50,75]  (75,100]     4
# 13 (75,100] [0,25]       8
# 14 (75,100] (25,50]     13
# 15 (75,100] (50,75]     10
# 16 (75,100] (75,100]     6