Prova Final – Visualização de Dados
Adalbertom Lacerda

Sumário

SCATTER MTCARS

mtcars$cyl_f <- factor(mtcars$cyl)

p1 <- ggplot(mtcars, aes(x = wt, y = mpg, color = cyl_f)) +
geom_point(size = 3, alpha = 0.9) +
labs(
title = "Relação entre Peso e Consumo de Combustível",
x = "Peso do veículo (1000 lbs) — wt",
y = "Milhas por galão (mpg)",
color = "Número de\ncilindros"
) +
theme_minimal()

p1

BARRAS DIAMONDS

data(diamonds)

df_cut <- diamonds %>%
  count(cut) %>%
  arrange(desc(n))

df_cut$cut <- factor(df_cut$cut, levels = df_cut$cut)

ggplot(df_cut, aes(x=cut, y=n, fill=cut)) +
  geom_col() +
  geom_text(aes(label=n), vjust=-0.3) +
  scale_fill_brewer(type="div", palette="RdBu") +
  labs(title="Contagem de Diamantes por Corte", x="Corte", y="Contagem") +
  theme(legend.position="none")

BOXPLOT DIAMONDS

custom_colors <- c(
  "Fair"="#e41a1c",
  "Good"="#377eb8",
  "Very Good"="#4daf4a",
  "Premium"="#984ea3",
  "Ideal"="#ff7f00"
)

ggplot(diamonds, aes(x=cut, y=price, fill=cut)) +
  geom_boxplot(outlier.size=0.7) +
  scale_fill_manual(values=custom_colors) +
  labs(title="Preço por Tipo de Corte", x="Corte", y="Preço (USD)") +
  theme(legend.position="none",
        axis.text.x = element_text(angle=30, hjust=1))

Questões abertas - Respostas:

Exercício 1.4 — Conceitos Fundamentais (Diferença entre geoms geom point() e geom jitter().), conceito de ”Gramática dos Gráficos” e sua implementação.

geom_point()
Plota pontos exatamente na posição x,y. Indicado quando não há muita sobreposição.

geom_jitter()
Adiciona um pequeno deslocamento aleatório nos pontos, reduzindo sobreposição (overplotting).
Indicado quando muitas observações estão empilhadas no mesmo valor.

Gramática dos Gráficos (ggplot2)
Um gráfico é composto por camadas: dados → mapeamento estético (aes) → geometrias (geoms) → escalas → facetas → coordenadas → tema.
Essa estrutura modular permite construir gráficos complexos combinando camadas.