---
title: "Prova Final - Visualização de Dados"

output:
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    logo: logo8rpm_2.png
    source_code: embed
---

```{r setup, include=FALSE}
# Carregar bibliotecas necessárias
library(ggplot2)
library(dplyr)
library(scales)
```

# Introdução {data-icon="fa-bookmark"}

### **Sobre o relatório**


Este relatório apresenta exercícios práticos de visualização de dados utilizando o pacote **ggplot2**, seguindo os princípios da **Gramática dos Gráficos**.  

Os exemplos utilizam datasets clássicos do R para fins didáticos, conforme solicitado na Prova Final da disciplina de Visualização de Dados.

---

**Feito por:** João Eduardo

# Exercício 1.1 {data-icon="fa-car-side"}

## Relação entre Peso e Consumo de Combustível

```{r}
ggplot(data = mtcars, aes(x = wt, y = mpg, color = factor(cyl))) +
  geom_point(size = 3) +
  labs(
    title = "Relação entre Peso e Consumo de Combustível",
    x = "Peso do Veículo (1000 lbs)",
    y = "Consumo (Milhas por Galão)",
    color = "Cilindros"
  ) +
  theme_minimal()
```

# Exercício 1.2 {data-icon="fa-dice-d20"}

## Quantidade de Diamantes por Tipo de Corte

```{r}
diamonds %>%
  count(cut) %>%
  ggplot(aes(x = reorder(cut, -n), y = n, fill = cut)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = n), vjust = -0.3, size = 5) +
  scale_fill_brewer(palette = "Spectral") +
  labs(
    title = "Quantidade de Diamantes por Tipo de Corte",
    x = "Tipo de Corte",
    y = "Quantidade",
    fill = "Corte"
  ) +
  theme_minimal()
```

# Exercício 1.3 {data-icon="fa-cart-shopping"}

## Distribuição do Preço dos Diamantes por Tipo de Corte

```{r}
ggplot(diamonds, aes(x = cut, y = price, fill = cut)) +
  geom_boxplot() +
  scale_fill_manual(values = c(
    "Fair" = "#EE0000",
    "Good" = "#DB6D13",
    "Very Good" = "#CEF347",
    "Premium" = "#68A6DE",
    "Ideal" = "#133683"
  )) +
  labs(
    title = "Distribuição do Preço dos Diamantes por Tipo de Corte",
    x = "Tipo de Corte",
    y = "Preço (USD)"
  ) +
  theme_minimal() +
  theme(
    legend.position = "none",
    axis.text.x = element_text(angle = 30, hjust = 1)
  )
```

# Exercício 1.4 {data-icon="fa-file-lines"}

### **Diferença entre** `geom_point()` **e** `geom_jitter()`

O `geom_point()` é utilizado para representar observações individuais em um gráfico de dispersão, sendo mais apropriado quando há pouca ou nenhuma sobreposição entre os pontos.


O `geom_jitter()` adiciona um pequeno deslocamento aleatório aos pontos, sendo indicado quando existe sobreposição excessiva, pois melhora a visualização da densidade dos dados sem alterar de forma significativa os valores observados.

### **Gramática dos Gráficos**

A **Gramática dos Gráficos** define a construção de gráficos como a combinação de componentes independentes, tais como dados, mapeamentos estéticos, geometrias, escalas e temas.


No **ggplot2**, esse conceito é implementado de forma modular, permitindo a criação de gráficos complexos a partir da adição sucessiva de camadas por meio do operador `+`.