Рассчитать перекрытие площадей для пар полигонов в матричном формате в R

Question

Рассчитать перекрытие площадей для пар полигонов в матричном формате в R

Вы можете использовать typeid ().

if (typeid(childObject) == typeid(ChildType)) {
}

Если это возвращает true, то вы знаете, что это дочерний класс.

0

r matrix polygon overlap

задан TDK 17 January 2019 в 11:46

1 ответ

Другие вопросы по тегам:

r matrix polygon overlap

Похожие вопросы:

score 0 · Answer 1

Без выборочных данных, я думаю, что возможное решение может быть:

создать некоторые выборочные данные

library( sf)
#square of 2 x 2
pol = st_polygon(list(rbind(c(0,0), c(2,0), c(2,2), c(0,2), c(0,0))))
#add two more squares of 2 x 2
b = st_sfc(pol, pol + c(.8, .2), pol + c(4, .8))

plot(b)

enter image description here [ 113]

рассчитать площадь перекрытия

l <- lapply( b, function(x) { 
       lapply(b, function(y) st_intersection( x, y ) %>% st_area() ) 
     })

matrix(unlist(l), ncol = length(b), byrow = TRUE)
#      [,1] [,2] [,3]
# [1,] 4.00 2.16    0
# [2,] 2.16 4.00    0
# [3,] 0.00 0.00    4

рассчитать процент перекрытия

l2 <- lapply( b, function(x) { 
  lapply(b, function(y) st_intersection( x, y ) %>% st_area() * 100 /sqrt( st_area(x) * st_area(y) ) ) 
})

matrix(unlist(l2), ncol = length(b), byrow = TRUE)
#      [,1] [,2] [,3]
# [1,]  100   54    0
# [2,]   54  100    0
# [3,]    0    0  100