Exercícios de Estatística Descritiva em R

## Exercício 4 - Erros de Impressão


``` r
erros <- c(5,5,6,6,6,7,7,7,7,7,7,8,8,8,8,8,8,8,9,9,9,9,
           10,10,10,10,10,10,11,11,11,11,12,12,12,12,12,12,12,12,
           13,13,14,14,14,14,14,15,15,16,19,22)

Gráfico de Barras

df_barras <- data.frame(
  Erros = names(table(erros)),
  Frequencia = as.numeric(table(erros))
)

ggplot(df_barras, aes(x = Erros, y = Frequencia)) +
  geom_col(fill = "blue", alpha = 0.6) +
  labs(title = "Gráfico de Barras - Erros") +
  theme_minimal()

Histograma

ggplot(data.frame(Erros = erros), aes(x = Erros)) +
  geom_histogram(binwidth = 2, fill = "red", alpha = 0.6, color = "black") +
  labs(title = "Histograma - Erros") +
  theme_minimal()

Exercício 9 - Metodologia

dados_metodologia <- data.frame(
  Grau = c("A", "B", "C"),
  Frequencia = c(7, 9, 9)
)

ggplot(dados_metodologia, aes(x = Grau, y = Frequencia)) +
  geom_col(fill = "green", alpha = 0.6) +
  labs(title = "Metodologia - Distribuição") +
  theme_minimal()

Exercício 37 - Região

dados_regiao <- data.frame(
  Regiao = c("Capital", "Interior/Outra"),
  Quantidade = c(11, 25)
)

ggplot(dados_regiao, aes(x = Regiao, y = Quantidade)) +
  geom_col(fill = "purple", alpha = 0.6) +
  labs(title = "Região de Procedência") +
  theme_minimal()