set.seed(20260422)
sample_means <- map_dbl(
1:200,
\(i) mean(runif(20, min = 0, max = 10))
)
tibble(srednia_probki = sample_means) |>
ggplot(aes(x = srednia_probki)) +
geom_histogram(aes(y = after_stat(density)), bins = 30) +
geom_density(linewidth = 1) +
labs(
title = "Rozkład średnich próbek skupia się wokół średniej populacji",
x = "Średnia próbki",
y = "Gęstość"
)10 Animacje
Animacja jest przydatna wtedy, gdy sam ruch jest częścią wyjaśnienia. Dobrym przykładem jest rozkład średnich próbek: po jednej próbce trudno zobaczyć wzorzec, ale po wielu powtórzeniach widać, jak średnie zaczynają układać się wokół wartości oczekiwanej.
10.1 Rozkład średnich próbek
Poniższa animacja pokazuje trzy rzeczy naraz:
- po lewej: jak rośnie rozkład średnich próbek;
- po prawej: aktualnie wylosowaną próbkę i jej średnią;
- na dole: oryginalny rozkład populacji, z której losujemy.
10.2 Jak czytać animację
Animacja nie zastępuje wykresu statycznego. Ma pomóc zobaczyć proces: losowanie próbek, liczenie średniej i stopniowe budowanie nowego rozkładu. Po zatrzymaniu animacji nadal powinniśmy umieć opisać wniosek jednym zdaniem.
10.3 Zadanie
Zmień wielkość próbki w symulacji statycznej na 5, 20 i 80. Porównaj szerokość rozkładu średnich próbek i zapisz, co dzieje się z niepewnością średniej.