Segunda Va

Questões

VADeaths

# Crie um data frame com os dados VADeaths
data <- as.data.frame(VADeaths)

# Transponha o data frame para ter as idades como colunas
data_t <- t(data)

# Crie o gráfico de barras empilhadas agrupadas
barplot(data_t, beside = TRUE, col = c("red", "blue", "green", "purple"),
        main = "Death Rates in Virginia (1940)",
        xlab = "Age", ylab = "Number of deaths")

legend("topleft", legend = rownames(data_t), fill = c("red", "blue", "green", "purple"))

ClassificaçãoDoença

# Dados dos estágios da doença
dados <- c("Moderado", "Leve", "Leve", "Severo", "Leve", "Moderado", "Moderado", "Moderado", "Leve", "Leve",
           "Severo", "Leve", "Moderado", "Moderado", "Leve", "Severo", "Moderado", "Moderado", "Moderado", "Leve")
# Contagem dos estágios
contagem <- table(dados)
# Porcentagens dos estágios
porcentagens <- prop.table(contagem) * 100
# Cores para as fatias
cores <- c("lightblue", "lightgreen", "lightcoral")
# Rótulos para as fatias
rotulos <-paste(names(porcentagens),porcentagens)
rotulos <-paste(rotulos,"%",sep="")
# Nome do gráfico
nome_grafico <- "Distribuição dos Estágios da Doença"
# Crie o gráfico de pizza
pie(porcentagens, labels = rotulos, col = cores, main = nome_grafico)
# Adicione a legenda
legend("topright", legend = names(porcentagens), fill = cores, title = "Estágios da Doença", cex = 0.8)

Teorema

flu <- read.csv(
  file = "flu.csv",
  header = T,
  strip.white = T,
  na.strings = "",
  sep=",")

hist(flu$age, xlab = "Age" ,freq = FALSE, main = "Histogram 2")
lines(density(flu$age),col=2)

n <-200

TamMedia<-35

flu_converted<-rep(NA, n)

for(i in 1:n){
  MinhaAmostra<-sample(flu$age, size = TamMedia)
  flu_converted[i]<-mean(MinhaAmostra)
}

hist(flu_converted, xlab = "Age",freq = FALSE, main = "Histogram 2")
lines(density(flu_converted),col=2)