Questões

Pacote usado para responder as questões da prova:

library("dplyr")

VADeaths

# Gráfico de barras empilhadas com legendas
barplot(VADeaths, main = "Média de Mortes na Virgínia", 
        xlab = "Grupo Populacional", ylab = "Quantidade de vítimas", 
        col = c("#13293D","#006494","#247BA0","#1B98E0","#64B7CC"))
legend("topright", pch = c(15,15,15,15,15), legend = rownames(VADeaths),
       col = c("#13293D","#006494","#247BA0","#1B98E0","#64B7CC"))

ClassificaçãoDoença

# Dados
A <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
B <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo","leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado","leve")

# Data frame
dados_pacientes <- data.frame("ID" = A,"estagio" = B, stringsAsFactors = FALSE)

# Contabilização de cada estágio repetido
total_por_estagio <- dados_pacientes %>% group_by(estagio) %>% count()

# Cálculo da porcentagem
pct <- round(total_por_estagio$n/sum(total_por_estagio$n)*100)
lbls <- paste(total_por_estagio$estagio, pct)
lbls <- paste(lbls,"%",sep = "")
# Gráfico de pizza com legenda e porcentagem
pie(total_por_estagio$n, labels = lbls, main = "Classificação de Doença",
    col = c("#A5BEFA","#B3093F","#451531"))

Teorema

# Carregando o arquivo
flu <- read.csv(file = "flu.csv", header=T,
                strip.white = T, na.strings = "")

# Mudança do nome para refletir no gráfico
Death_Ages <- flu$age

# Curva de densidadde para o gráfico do histograma
densityLine <- density(Death_Ages)
# Gráfico do histograma
hist(Death_Ages, col = "#64B7CC", probability = T)
# Curva de densidade
lines(densityLine)

n <- 200 # Quantidade de 200 amostras
TamMedia <- 35 # Tamanho da amostra
New_Death_Ages <- replicate(n, mean(sample(Death_Ages, n, replace=TRUE))) # Amostra de médias das idades
# Histograma com as novas médias
hist(New_Death_Ages, col = "#FF3877", probability = T)
# Curva de densidade
lines(density(New_Death_Ages))