2Va Matheus Mosca

Questoes

VADeaths

# carrega o ggplot
library(ggplot2)

# Converte o para um formato que possibilite usar o ggplot2
data <- as.data.frame(as.table(VADeaths))
colnames(data) <- c("Faixa Etária", "Grupo", "Taxa")

# Cria o gráfico de barras agrupadas
ggplot(data, aes(x = Grupo, y = Taxa, fill = `Faixa Etária`)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Taxas de Mortalidade por Grupo Populacional",
       x = "Grupo Populacional",
       y = "Taxa de Mortalidade") +
  theme_minimal()

ClassificaçãoDoença

# Dados da questao com as classificacoes das doencas dos 20 pacientes
classificacoes <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado", "leve")

tb <- table(classificacoes)
porcentagens <- round(100 * prop.table(tb), 1)

# para criar o gráfico de pizza
cores <- c("#5fe47bff", "#facf41ff", "#ec0e0eff")
labels <- paste(names(tb), "-", porcentagens, "%")

pie(tb, col = cores, labels = labels, main = "Classificação da Doença")

# Coloca legenda
legend("topright", legend = names(tb), fill = cores, title = "Gravidade")

Teorema

# Carregar o dataset flu
flu <- read.csv("flu.csv")

# Mostrando o Histograma e a curva de densidade para o dataset flu sem tratamentos
hist(flu$age, freq = FALSE, main = "Histograma das Idades", 
     xlab = "Idade", ylab = "Densidade", col = "lightpink")
lines(density(flu$age), col = "red", lwd = 2)

# Cria 200 médias de amostras da população com tamanho n = 35
total_amostras <- 200
tamanho <- 35
medias_das_amostras <- numeric(total_amostras)

set.seed(111)  # Para trazer determinismo nas amostras geradas
for(i in 1:total_amostras) {
  amostra <- sample(flu$age, tamanho, replace = TRUE)
  medias_das_amostras[i] <- mean(amostra)
}

# Histograma com curva de densidade para as médias das amostras
hist(medias_das_amostras, freq = FALSE, main = "Histograma das Médias das Amostras", 
     xlab = "Média da Amostra", ylab = "Densidade", col = "lightpink")
lines(density(medias_das_amostras), col = "blue", lwd = 2)