Relatório de Análise de Dados – EST 128

Autor

Kaique, Ana Beatriz e Raquel

#| label: pacotes
#| message: false
#| warning: false

library(dplyr)

Anexando pacote: 'dplyr'
Os seguintes objetos são mascarados por 'package:stats':

    filter, lag
Os seguintes objetos são mascarados por 'package:base':

    intersect, setdiff, setequal, union
library(ggplot2)
library(plotly)
Warning: pacote 'plotly' foi compilado no R versão 4.5.3

Anexando pacote: 'plotly'
O seguinte objeto é mascarado por 'package:ggplot2':

    last_plot
O seguinte objeto é mascarado por 'package:stats':

    filter
O seguinte objeto é mascarado por 'package:graphics':

    layout
library(fdth)
Warning: pacote 'fdth' foi compilado no R versão 4.5.3

Anexando pacote: 'fdth'
Os seguintes objetos são mascarados por 'package:stats':

    sd, var
library(boot)

1 Identificação do grupo

  • Disciplina: EST 128 – Pacotes Estatísticos II
  • Grupo: preencher
  • Integrantes: preencher
  • Base de dados utilizada: preencher

2 1. Introdução

Apresente o contexto do problema, descreva brevemente o conjunto de dados e informe os objetivos da análise.

3 2. Leitura e inspeção inicial da base

# Ajuste o nome do arquivo conforme a base do grupo
dados <- read.csv("grupo3_qualidade_industrial.csv", stringsAsFactors = FALSE)

head(dados)
  id_lote linha_producao turno fornecedor temperatura_processo
1       1         Linha1 Noite         F1                 68.9
2       2         Linha3 Manha         F3                 69.7
3       3         Linha2 Tarde         F2                 72.5
4       4         Linha1 Noite         F2                 77.3
5       5         Linha1 Tarde         F1                 73.3
6       6         Linha1 Manha         F1                 71.0
  umidade_materia_prima tempo_ciclo_min resistencia_produto lote_conforme
1                  13.0            15.8                  70           Sim
2                  10.0            17.8                  70           Sim
3                  11.7            16.2                  70           Sim
4                  14.8            20.6                  70           Nao
5                   9.8            18.2                  70           Sim
6                  10.3            14.8                  70           Sim
dim(dados)
[1] 88  9
names(dados)
[1] "id_lote"               "linha_producao"        "turno"                
[4] "fornecedor"            "temperatura_processo"  "umidade_materia_prima"
[7] "tempo_ciclo_min"       "resistencia_produto"   "lote_conforme"        
str(dados)
'data.frame':   88 obs. of  9 variables:
 $ id_lote              : int  1 2 3 4 5 6 7 8 9 10 ...
 $ linha_producao       : chr  "Linha1" "Linha3" "Linha2" "Linha1" ...
 $ turno                : chr  "Noite" "Manha" "Tarde" "Noite" ...
 $ fornecedor           : chr  "F1" "F3" "F2" "F2" ...
 $ temperatura_processo : num  68.9 69.7 72.5 77.3 73.3 71 70.8 66 75.5 71.7 ...
 $ umidade_materia_prima: num  13 10 11.7 14.8 9.8 10.3 12.4 11.8 12.1 12.3 ...
 $ tempo_ciclo_min      : num  15.8 17.8 16.2 20.6 18.2 14.8 18.8 17.2 18.7 20.9 ...
 $ resistencia_produto  : num  70 70 70 70 70 70 70 70 70 70 ...
 $ lote_conforme        : chr  "Sim" "Sim" "Sim" "Nao" ...
summary(dados)
    id_lote      linha_producao        turno            fornecedor       
 Min.   : 1.00   Length:88          Length:88          Length:88         
 1st Qu.:22.75   Class :character   Class :character   Class :character  
 Median :44.50   Mode  :character   Mode  :character   Mode  :character  
 Mean   :44.50                                                           
 3rd Qu.:66.25                                                           
 Max.   :88.00                                                           
 temperatura_processo umidade_materia_prima tempo_ciclo_min resistencia_produto
 Min.   :63.50        Min.   : 7.00         Min.   :14.30   Min.   :68.40      
 1st Qu.:70.10        1st Qu.:11.00         1st Qu.:17.15   1st Qu.:70.00      
 Median :72.50        Median :12.10         Median :18.35   Median :70.00      
 Mean   :72.91        Mean   :11.90         Mean   :18.50   Mean   :69.96      
 3rd Qu.:75.55        3rd Qu.:12.93         3rd Qu.:20.10   3rd Qu.:70.00      
 Max.   :84.00        Max.   :16.00         Max.   :24.60   Max.   :70.00      
 lote_conforme     
 Length:88         
 Class :character  
 Mode  :character  
                   
                   
                   

Comente: - número de observações e variáveis; - tipos de variáveis presentes; - possíveis cuidados necessários antes da análise.

4 3. Organização e preparação dos dados

Nesta seção, descreva e execute procedimentos de preparação da base, quando necessários.

Sugestões: - criação ou recodificação de variáveis; - seleção de subconjuntos; - agrupamentos; - ordenação; - tratamento de nomes e categorias.

# Inserir aqui os procedimentos de preparação dos dados

Explique cada transformação realizada e justifique sua necessidade.

5 4. Análise descritiva univariada

Selecione variáveis relevantes da base e apresente: - tabelas de frequência para variáveis qualitativas; - medidas de posição, dispersão e forma para variáveis quantitativas; - gráficos adequados.

5.1 4.1 Variáveis qualitativas

# Exemplo: tabela de frequência
# dados %>% count(nome_variavel)

Interprete os resultados.

5.2 4.2 Variáveis quantitativas

# Exemplo: medidas resumo
# mean(dados$variavel)
# median(dados$variavel)
# sd(dados$variavel)
# IQR(dados$variavel)
# Exemplo: gráfico
# ggplot(dados, aes(x = variavel)) +
#   geom_histogram(bins = 20)

Interprete os resultados.

6 5. Análise descritiva bivariada

Escolha relações relevantes entre duas variáveis e apresente tabelas, gráficos e interpretações.

Sugestões: - qualitativa × qualitativa; - qualitativa × quantitativa; - quantitativa × quantitativa.

# Inserir análises bivariadas

Interprete os resultados.

7 6. Procedimento inferencial

Aplique ao menos um procedimento inferencial compatível com a base e com a pergunta analítica formulada pelo grupo.

Exemplos possíveis: - intervalo de confiança ou teste para média; - intervalo de confiança ou teste para proporção; - análise de variância; - teste Qui-quadrado; - correlação; - regressão linear simples.

7.1 6.1 Formulação do problema

Descreva claramente: - qual pergunta está sendo investigada; - quais são as hipóteses, quando houver; - por que o procedimento escolhido é adequado.

7.2 6.2 Execução

# Inserir aqui o procedimento inferencial escolhido

7.3 6.3 Interpretação

Apresente a interpretação do resultado em linguagem estatística clara e objetiva.

8 7. Simulação numérica ou bootstrap

Utilize pelo menos um recurso computacional estudado na Unidade V.

Você pode, por exemplo: - gerar números pseudo-aleatórios para ilustrar um mecanismo probabilístico; - realizar uma simulação numérica; - aplicar bootstrap a uma estatística de interesse da base.

8.1 7.1 Objetivo da etapa computacional

Descreva o que será feito e por quê.

8.2 7.2 Código

# Exemplo: bootstrap da média
# set.seed(123)
# medias_boot <- replicate(
#   2000,
#   mean(sample(dados$variavel, size = nrow(dados), replace = TRUE))
# )

8.3 7.3 Apresentação dos resultados

# Exemplo: histograma da distribuição bootstrap
# tibble(media_boot = medias_boot) %>%
#   ggplot(aes(x = media_boot)) +
#   geom_histogram(bins = 20)

Interprete os resultados.

9 8. Conclusão

Apresente uma conclusão final do relatório, destacando: - principais achados; - limitações da análise; - possíveis desdobramentos.

10 9. Referências

Liste as referências utilizadas, quando houver.