ifelse dans une fonction

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:

---

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:

---

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.

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

Citation:

---

Envoyé par faubry

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.