Flu Data

# Carregando o dataset
flu_data <- read.csv("C:/Users/Wilber/Downloads/flu.csv")

# Passo 1: Mostrar histograma e curva de densidade do conjunto de dados "flu"
library(ggplot2)

# Histograma e curva de densidade
ggplot(flu_data, aes(x = age)) +
  geom_histogram(aes(y = ..density..), bins = 30, fill = "lightblue", color = "black") +
  geom_density(color = "red") +
  labs(title = "Histograma e Curva de Densidade das Idades", x = "Idade", y = "Densidade")
## Warning: The dot-dot notation (`..density..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(density)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

# Passo 2: Criar 200 médias de amostras da população com tamanho n = 35
set.seed(123)
sample_means <- replicate(200, mean(sample(flu_data$age, 35, replace = TRUE)))

# Passo 3: Mostrar o histograma com a curva de densidade para as médias das amostras
ggplot(data.frame(sample_means), aes(x = sample_means)) +
  geom_histogram(aes(y = ..density..), bins = 30, fill = "lightgreen", color = "black") +
  geom_density(color = "blue") +
  labs(title = "Histograma e Curva de Densidade das Médias das Amostras", 
       x = "Médias das Amostras", y = "Densidade")