Fonction sample() de R - Échantillonnage aléatoire

La fonction sample() de R est utilisée pour tirer aléatoirement des éléments d'un vecteur.

sample() peut simuler un échantillonnage avec remise, un échantillonnage sans remise et un mélange aléatoire, et est largement utilisée dans l'échantillonnage de données et la conception expérimentale.

La syntaxe de la fonction sample() est la suivante :

sample(x, size, replace = FALSE, prob = NULL)

Description du paramètre :

xLe vecteur à échantillonner.
sizeLe nombre d'éléments à tirer.
replaceIndique si l'échantillonnage se fait avec remise ; la valeur par défaut est FALSE (sans remise).
probFacultatif, le poids de probabilité d'échantillonnage de chaque élément.

Exemple

# Tirer aléatoirement 10 nombres de 1 à 100 (sans remise, couramment utilisé pour les tirages au sort aléatoires)
set.seed(123)
winners <- sample(1:100, size = 10)
print("Numéros gagnants :")
print(winners)

# Échantillonnage avec remise (indépendant à chaque fois, doublons possibles)
set.seed(123)
dice_rolls <- sample(1:6, size = 10, replace = TRUE)
print("Lancez les dés 10 fois :")
print(dice_rolls)

L'exécution du code ci-dessus produit la sortie suivante :

[1] "中奖号码:"
 [1] 31 79 51 14 67 42 50 43 97 25
[1] "掷 10 次骰子:"
 [1] 6 1 4 2 2 1 4 5 5 1

Des probabilités d'échantillonnage inégales peuvent être définies via le paramètre prob :

Exemple

# Simuler une pièce déséquilibrée (probabilité de face 0.7, pile 0.3)
set.seed(123)
biased_coin <- sample(c("Face", "Pile"), size = 100,
replace = TRUE, prob = c(0.7, 0.3))
print("Proportion des résultats de 100 lancers d'une pièce biaisée :")
print(prop.table(table(biased_coin)))

L'exécution du code ci-dessus produit la sortie suivante :

[1] "100 次有偏硬币结果比例:"
反面 正面
0.27 0.73

R 语言实例 Exemples du langage R

Autres extensions