Bonjour,

Suite à mon dernier message, j'ai clarifier ma question et j'aimerais la reformuler:

J'ai un tableau comme celui-ci :

cd_all_1 cd_qgis_1 id_relevés
3 3K08 187161
3 3K09 963542
3 4Q15 539251
3 7Q61 836540
3 8R81 351428
3 2LO5 210948
4 5A08 442207
4 4A2D 582940
4 5A08 332572

J'aimerais faire des tirages successifs aléatoire et avec remise dans la colonne id_relevés, et ce pour un code cd_all_1 donné.
Par exemple, je dis à R que je veux faire le tirage au sein de toutes les lignes où cd_all_1 = 3 : je tire mes id_relevés dans les 6 premières lignes dans cette exemple.

J'aimerais créer un tableau vide de résultats : j'ai fais comme ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
#creation tableau vide
data_1 <- data.frame(x1 = numeric(), 
                     x2 = character(),
                     x3 = numeric())
Et remplir ce tableau vide au fur et à mesure de mes tirages aléatoires :
-dans la première colonne, j'aimerais stocké les id_relevés que je tire aléatoirement
-dans la deuxième, j'aimerais écrire le cd_qgis correspondant à l'id_relevés que je viens de tirer
-dans la troisième colonne, j'aimerais regarder si le cd_qgis qui est dans la colonne 2 est nouveau dans le talbeau de résultat ou pas, et écrire TRUE ou FALSE.

Je mets un exemple de tableau de résultats que j'aimerais avoir, ce n'est pas moi qui l'ai construit.
C'est un exemple de 5 tirages aléatoires sur le code cd_all_1 = 3

1 539251 4Q15 TRUE
2 351828 8R81 TRUE
3 187161 3K08 TRUE
4 351428 8R81 FALSE
5 836540 7Q61 TRUE

Pour l'instant j'extrais manuellement les lignes qui correspondent à cd_all_1 = 3, mais j'aimerais bien dire à R directement dans la boucle le cd_all_1 que je choisi plutôt que d'avoir à extraire à chaque fois

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
extraction_a <- function (a){
maille_x_all_a = subset(maille_x_all, cd_alliance == a)
}
s <- extraction_a(3)
Je réussis à remplir la première ligne de mon tableau :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
#boucle qui extrait 10 relevés aléatoirement et les inscrits dans la colonne 1 
for (i in 1:10){ 
  data_1[i,1] <- sample(s$id_releve, 1, replace=TRUE) 
}
Je suis bloquée ensuite pour remplir les deux autres...

Globalement j'aimerais faire une boucle pour automatisé ça, et avoir juste à rentrer le code cd_all_1 voulu, et obtenir un tableau de n tirages aléatoires.

Pouvez-vous m'aider ?
Bonne journée.