Échantillon aléatoire avec poids

Bonjour à tous,

J'ai une très grosse base de données que j'essaie de réduire en tirant aléatoirement des individus dedans. Dans la base finale je souhaite que les poids de la population - selon une caractéristique seulement - soit respectés. Cette caractéristique vaut 0 ou 1 et correspond par exemple au fait d'habiter à Paris. Je souhaite que ma base finale soit un échantillon aléatoire de la base initiale qui respecte la proportion de parisiens dans la base totale.

J'ai réussi à coder la création de cette base mais je n'arrive pas à inclure de poids dedans, je ne vois pas vraiment comment faire ... Une idée ? :)

Pour se faire, j'ai séparé ma base initiale en 2 bases : parisiens vs non parisiens et à l'intérieur de celles-ci je tire 500 individus au hasard. Je regroupe ensuite les 2 bases.

Merci d'avance :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Base.paris<-Base[is.element(Base$paris,c(1)), ] Base.nonparis <- Base[is.element(Base$paris,c(0)), ]   ssbase_paris<- Base.paris[sample(1:n_paris, 500, replace=T), ] ssbase_paris[1:10,]   ssbase_nonparis <- Base.nonparis[sample(1:n_nonparis, 500, replace=T), ] ssbase_nonparis[1:10,]   mysampledataset <- rbind(ssbase_paris, ssbase_nonparis )

---

Bonjour,

Pouvez-vous donner plus de précisions sur les objectifs que vous souhaitez obtenir ?

En effet, si j'ai bien compris le problème, en prenant des valeurs d'exemple, vous voulez tirer un échantillon aléatoire de 100 individus dans votre base de données globale (de 10000 individus par exemple) qui vérifie les conditions suivantes : 30 % de parisiens et 70 % de non parisiens.
Est-ce bien cela ?

Si oui, je pense que votre solution est un bon départ, vous séparez en deux sous-populations ("parisiens" et "non parisiens") et par exemple pour la population de "parisiens", vous faite une sélection aléatoire avec : Base.paris[sample(1:n_paris, 30 , replace=F), ].

Je ne sais pas si cela répond vraiment à votre question ? Sinon n'hésitez pas à donner plus de précisions !

Bonne continuation :)


Cordialement,


A.D.