Échantillon d'une base de données groupée avec des probabilités spécifiées dans R

1
rnorouzian 2020-10-02 06:18.

Ci-dessous, je groupe d'abord mon data.frame ( d) par deux variables catégoriques. Premièrement, par gender(2 niveaux; H / F). Deuxièmement, par sector( éducation, industrie, ONG, privé, public ). Ensuite, je veux échantillonner à partir de chaque niveau de sectoravec les probabilités suivantes:, c(.2, .3, .3, .1, .1)et genderen suivant les probabilités c(.4, .6).

J'utilise le code ci-dessous pour atteindre mon objectif sans succès? Y a-t-il une solution à cela?

Pourriez-vous s'il vous plaît commenter si généralement mon code fait ce que je décris correctement?

d <- read.csv('https://raw.githubusercontent.com/rnorouzian/d/master/su.csv')

library(tidyverse)

set.seed(1)
(out <- d %>%
  group_by(gender,sector) %>%
  slice_sample(n = 2, weight_by = c(.4, .6, .2, .3, .3, .1, .1))) # `Error:  incorrect number of probabilities`

1 answers

0
Chuck P 2020-10-02 10:28.

Eh bien, slice_sampleje ne ferai pas exactement ce que vous voulez, alors je vous recommande de l'utiliser splitstackshapepour faire le travail. Installez et chargez si nécessaire

# install.packages("splitstackshape")
library(splitstackshape)

Il existe des moyens plus courts et plus rapides pour spécifier le tableau des proportions, mais je le ferai méthodiquement à partir de l'échantillon total souhaité, ce que dans ce cas nous ferons n = 100ensuite nous spécifierons les pourcentages pour les différents niveaux de facteur.

total_sample <- 100
M_percent <- .4
F_percent <- .6
Education_percent <- .2
Industry_percent <- .3
NGO_percent <- .3
Private_percent <- .1
Public_percent <- .1

Ensuite, nous appelons la fonction stratifiedavec d'abord un vecteur des deux colonnes sur lesquelles nous opérons, puis un vecteur de groupes et le nombre voulu que nous calculerons à partir des pourcentages ci-dessus ...

abc <- 
   stratified(indt = d, 
              c("gender", "sector"), 
              c("F Education" = F_percent * Education_percent * total_sample, 
                "M Education" = M_percent * Education_percent * total_sample,
                "F Industry" = F_percent * Industry_percent * total_sample, 
                "M Industry" = M_percent * Industry_percent * total_sample,
                "F NGO" = F_percent * NGO_percent * total_sample, 
                "M NGO" = M_percent * NGO_percent * total_sample,
                "F Private" = F_percent * Private_percent * total_sample, 
                "M Private" = M_percent * Private_percent * total_sample,
                "F Public" = F_percent * Public_percent * total_sample, 
                "M Public" = M_percent * Public_percent * total_sample)
              )

Nous récupérons les quantités sélectionnées au hasard que nous avons demandées

head(abc, 20)
            fake.name    sector pretest state gender    pre                    email       phone
 1:            Correa Education    1254    TX      F Medium            [email protected] xxx-xx-1886
 2:        Manzanares Education    1227    CA      F    Low        [email protected] xxx-xx-1539
 3:          el-Daoud Education    1409    CA      F   High          [email protected] xxx-xx-9972
 4:            Engman Education    1436    CA      F   High            [email protected] xxx-xx-9446
 5:           el-Kaba Education    1305    NY      F Medium           [email protected] xxx-xx-7060
 6:           Herrera Education    1405    NY      F   High           [email protected] xxx-xx-9146
 7:           el-Sham Education    1286    TX      F Medium           [email protected] xxx-xx-4046
 8:          Harrison Education    1112    NY      F    Low          [email protected] xxx-xx-3118
 9:               Zhu Education    1055    CA      F    Low               [email protected] xxx-xx-6223
10:  Deguzman Gransee Education    1312    TX      F Medium  Deguzman [email protected] xxx-xx-5676
11:           Kearney Education    1303    NY      F Medium           [email protected] xxx-xx-5145
12: Hernandez Mendoza Education    1139    CA      F    Low Hernandez [email protected] xxx-xx-9642
13:            Barros Education    1416    NY      M   High            [email protected] xxx-xx-2455
14:            Torres Education    1370    CA      M   High            [email protected] xxx-xx-2129
15:              King Education    1346    CA      M Medium              [email protected] xxx-xx-5351
16:           Cabrera Education    1188    NY      M    Low           [email protected] xxx-xx-6349
17:               Lee Education    1208    CA      M    Low               [email protected] xxx-xx-7713
18:            Vernon Education    1216    TX      M    Low            [email protected] xxx-xx-7649
19:       Ripoll-Bunn Education    1419    TX      M   High       [email protected] xxx-xx-8126
20:             Ashby Education    1295    TX      M Medium             [email protected] xxx-xx-8416

Related questions

MORE COOL STUFF

Meghan Markle s'est liée avec Mariah Carey pour coiffer leurs cheveux naturels

Meghan Markle s'est liée avec Mariah Carey pour coiffer leurs cheveux naturels

Apprenez-en plus sur la façon dont Meghan Markle et Mariah Carey se sont liées sur leurs cheveux naturels dans un épisode du podcast "Archetypes" de Meghan.

Le prince Harry " garde espoir " de pouvoir arranger les choses avec sa famille : " Il aime son père et son frère "

Le prince Harry " garde espoir " de pouvoir arranger les choses avec sa famille : " Il aime son père et son frère "

Découvrez ce qu'une source a affirmé que le prince Harry espérait concernant les relations avec sa famille, en particulier le roi Charles et le prince William.

Brennon Lemieux, star de "Love Is Blind", répond aux accusations de violence conjugale

Brennon Lemieux, star de "Love Is Blind", répond aux accusations de violence conjugale

Un rapport de police accusant Brennon, star de "Love Is Blind", de violence domestique a récemment fait surface. Maintenant, Brennon a répondu aux réclamations.

Wynonna Judd a réalisé qu'elle était maintenant la matriarche de la famille Judd dans un moment de vacances paniqué

Wynonna Judd a réalisé qu'elle était maintenant la matriarche de la famille Judd dans un moment de vacances paniqué

Découvrez comment Wynonna Judd a réalisé qu'elle était désormais la matriarche de la famille en organisant la première célébration de Thanksgiving depuis la mort de sa mère Naomi Judd.

Qui a dit ça? Le quiz des doubleurs

Qui a dit ça? Le quiz des doubleurs

Il y a le jeu d'acteur, puis il y a le doublage. Les deux sont difficiles à leur manière. Que savez-vous de ces légendes dans le domaine ?

Les Philippines organisent la plus longue fête de Noël au monde

Les Philippines organisent la plus longue fête de Noël au monde

Peut-être qu'aucun pays sur Terre n'aime Noël plus que les Philippines. Les résidents y célèbrent les vacances pendant quatre mois solides. Voici pourquoi.

L'intrication quantique est le phénomène le plus étrange de la physique, mais qu'est-ce que c'est ?

L'intrication quantique est le phénomène le plus étrange de la physique, mais qu'est-ce que c'est&nbsp;?

Einstein a qualifié ce phénomène d'"action effrayante à distance" et les physiciens viennent de remporter le prix Nobel pour leurs travaux, mais qu'est-ce que l'intrication quantique ?

The Secrets of Airline Travel Quiz

The Secrets of Airline Travel Quiz

Air travel is far more than getting from point A to point B safely. How much do you know about the million little details that go into flying on airplanes?

Voici une raison énorme pour laquelle nous avons besoin de camions électriques

Voici une raison énorme pour laquelle nous avons besoin de camions électriques

Alors que nous pouvons tous vanter les vertus économiques et environnementales de l'électricité par rapport au diesel, il suffit de regarder cela. C'est la différence insensée entre les accélérations électriques et diesel, et cela va révolutionner la façon dont les autres conducteurs interagissent avec les camions.

Créer un jeu South Park est plus difficile que vous ne le pensez

Créer un jeu South Park est plus difficile que vous ne le pensez

La semaine dernière, une affiche sur le babillard électronique NeoGAF a demandé pourquoi South Park: The Fractured But Whole mettait si longtemps à se développer. Après tout, la 2D n'est-elle pas facile à dessiner? «D'abord et avant tout», écrit l'affiche, «le jeu utilise le même style graphique que le spectacle.

Big Trouble in Little China's Loudmouth Hero fait un dernier combat dans la nouvelle série de bandes dessinées Old Man Jack

Big Trouble in Little China's Loudmouth Hero fait un dernier combat dans la nouvelle série de bandes dessinées Old Man Jack

Toutes les images sont une gracieuseté de Boom Studios À quoi pourrait ressembler une version pour personnes âgées de Big Trouble in Little China, le héros de la conduite de camions, de sandwiches et de sauvetage (un peu) Jack Burton? Une nouvelle bande dessinée de Boom Studios, intitulée à juste titre Old Man Jack (avec un clin d'œil à Old Man Logan), vise à le découvrir. Elle est écrite par Anthony Burch (qui a écrit Borderlands 2, et a déclaré dans un communiqué que Big Trouble était "l'un des mes films préférés quand j'étais enfant »), avec le réalisateur de Big Trouble lui-même, John Carpenter.

On dirait que même le film dérivé de Bumblebee ne se concentrera pas sur les transformateurs

On dirait que même le film dérivé de Bumblebee ne se concentrera pas sur les transformateurs

Même dans son propre film, Bumblebee va avoir un acolyte humain. Image: Paramount Une plainte courante à propos des films Transformers est que les robots prennent le pas sur les humains.

Les acheteurs d'Amazon appellent cela une housse de couette "de qualité hôtelière" - et les prix sont aussi bas que 22 $

Les acheteurs d'Amazon appellent cela une housse de couette "de qualité hôtelière" - et les prix sont aussi bas que 22 $

Des milliers d'acheteurs Amazon recommandent la housse de couette Bedsure, et elle est en vente en ce moment. La housse de couette est disponible en plusieurs couleurs et est disponible dans les tailles twin à king californien. Achetez la housse de couette la mieux notée alors qu'elle est jusqu'à 52% de réduction sur Amazon

Offrez le cadeau du "meilleur sommeil de tous les temps" avec ces vapeurs de douche à l'eucalyptus pour la Saint-Valentin

Offrez le cadeau du "meilleur sommeil de tous les temps" avec ces vapeurs de douche à l'eucalyptus pour la Saint-Valentin

Les vapeurs de douche à l'eucalyptus BodyRestore ont plus de 11 000 notes cinq étoiles sur Amazon. Offrez le produit de spa à domicile comme cadeau de la Saint-Valentin à quelqu'un qui a besoin de se faire plaisir

Cet aspirateur à main de 250 $ avec "Wicked Suction Power" est maintenant à 75% de réduction sur Amazon

Cet aspirateur à main de 250 $ avec "Wicked Suction Power" est maintenant à 75% de réduction sur Amazon

Des tonnes d'acheteurs Amazon recommandent l'aspirateur à main Umlo H6, et il est en super vente en ce moment. L'appareil portable est équipé d'un filtre HEPA et est livré avec plusieurs accessoires. Achetez l'aspirateur à main alors qu'il est à 75% de réduction sur Amazon

Octavia Spencer dit que la costar Sissy Spacek de "The Help" s'est "en fait" souvenue d'elle après avoir effectué un stage sur son film à 17 ans

Octavia Spencer dit que la costar Sissy Spacek de "The Help" s'est "en fait" souvenue d'elle après avoir effectué un stage sur son film à 17 ans

Octavia Spencer a travaillé comme stagiaire sur le film de 1990 The Long Walk Home, avec Sissy Spacek, bien avant qu'ils ne jouent ensemble dans The Help

Merrick Garland a-t-il échoué en Amérique ?

C'est plus qu'à mi-chemin de la présidence de Biden. Qu'attend Merrick Garland ?

Merrick Garland a-t-il échoué en Amérique ?

Je crois, un peu trop tard dans la vie, à donner des chances aux gens. Généreusement.

Le Bon & Le Truand : 2022

Le Bon &amp; Le Truand : 2022

Je ne comprends plus. Il semble presque impossible d'évaluer correctement ce qui est un "hit" plus.

Juste pour le plaisir - Top des nouveautés musicales de 2022

Juste pour le plaisir - Top des nouveautés musicales de 2022

Enfin! Bienvenue dans mon Top New Music de 2022. Je partage cela chaque année pour me connecter avec des amis.

Il est tout ce que j'ai

Il est tout ce que j'ai

Vérifiez votre cœur. Nos cœurs s'égarent souvent.

Language