Discussion :

[celine333]

Bonjour tout le monde,
De mon jeu de données constitué des coordonnées x, y et de la valeur G de chaque individu, j'aimerai retirer les coordonées x,y de certains individus. les conditions sont: être à moins de 50 mètres de la coordonnée de référence, ET avoir un G supérieur ou égal à 16.

Voici ce que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
> kk<- function(x, y) 
+ { 
+   coordx<-data$x.Koordinate[data$G==24]
+   coordy<-data$y.Koordinate[data$G==24]
+   x <- ifelse(data$x.Koordinate>coordx-51 & data$G>15,data$x.Koordinate,0)
+   y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate,0)
+   return(c(x,y))
+ }
> kk(data$x.Koordinate, data$y.Koordinate)
 [1]      0      0      0      0      0 205550 205550      0 205600 205600      0      0      0      0      0      0      0
[18] 604100      0 604150 604100      0

Ce qui m'embêtait ici est qu'on ne voit pas directement quel chiffre correspond à la coordonnée x et lequel à y

Puis j'ai fait ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
> kk<- function(x, y) 
+ { 
+   coordx<-data$x.Koordinate[data$G==24]
+   coordy<-data$y.Koordinate[data$G==24]
+   x <- ifelse(data$x.Koordinate>coordx-51 & data$G>15,data$x.Koordinate," ")
+   y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate," ")
+   return(list(x,y))
+ }
> kk(data$x.Koordinate, data$y.Koordinate)
[[1]]
 [1] " "      " "      " "      " "      " "      "205550" "205550" " "      "205600" "205600" " "     
 
[[2]]
 [1] " "      " "      " "      " "      " "      " "      "604100" " "      "604150" "604100" " "     
 
>

Là on voit mieux les deux niveaux (x et y). Mais toujours, cela n'est pas très clair visuellement. Et-il possible d'avoir uniquement x, y ou x y comme réponse? Quelle fonction utiliser pour y arriver?

Merci d'avance de votre aide,
C.

[faubry]

Dans le return, cbind à la place de c répond au problème.

[celine333]

Dans le return, cbind à la place de c répond au problème.

Merci beaucoup pour la réponse! c'est ce que je cherchais

Salutations,
C.