Déterminer quels points se trouvent à l'extérieur d'une empreinte de données de forme irrégulière dans R?

Question

J'ai une série de points dans une zone dont la forme « empreinte » est très irrégulière:

J'aimerais déterminer toutes les coordonnées à l'intérieur des sommets de l'empreinte. L'objectif final est de déterminer quels points de données se trouvent en dehors de cette empreinte.

Est-ce que quelqu'un a un moyen efficace de s'y prendre?

---

Ma meilleure idée d'aborder c'est de dessiner un polygone basé sur les sommets de la zone verte, puis utiliser a indiqué que les coordonnées de polygones pour déterminer les points « aberrantes » (bien que, je ne sais pas comment faire encore -- Un pas après l'autre!).

Cependant, lorsque j'essaie de créer un convex hull, cela crée évidemment des problèmes à cause de la forme irrégulière de mon espace vert. [Tout le monde sait d'une manière de créer CONCAVES coques?]

Sinon, est-il un moyen de dessiner des polygones manuellement à l'aide d'une méthode de type «cliquez sur le graphique? ... Encore une fois, si vous avez une meilleure solution à mon problème que l'utilisation de polygones, s'il vous plaît suggérer cette solution!

Answer 1

En variante, il est un moyen pour dessiner des polygones manuellement à l'aide d'une méthode de type «clic le graphique?

Voici une idée. Tout d'abord, quelques points au hasard:

library(manipulate) 
library(sp) 
set.seed(1) 
par(pch = 19, cex=.5) 
x <- runif(1000) 
y <- runif(1000) 

Maintenant, dessiner et la capture du polygone:

coords <- data.frame() 
manipulate({ 
    plot(y~x) 
    res <- manipulatorMouseClick() 
    coords <<- rbind(coords, data.frame(x=res$userX, y=res$userY)) 
    if (length(coords)) lines(coords) 
}) 

et de déterminer quels points sont à l'intérieur/à l'extérieur de celui-ci (voir ?point.in.polygon):

res <- point.in.polygon(x, y, coords$x, coords$y)!=0 

plot(y~x, col = res + 1L) 
lines(coords)