Relatório de Dados – Questões Gerais (Dashboard)
Todos os gráficos serão renderizados automaticamente ao gerar o
relatório.
# Carregar pacotes necessários
library(ggplot2)
library(dplyr)
library(scales) # opcional para formatação
Criar um scatter plot entre mpg e wt,
colorido por número de cilindros.
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 (milhares de libras)",
y = "Consumo (milhas por galão)",
color = "Cilindros"
) +
theme_minimal()
Contagem de diamantes por corte, ordenado e com rótulos.
# Preparar dados
diamonds_count <- diamonds %>%
count(cut) %>%
arrange(desc(n))
# Plot
ggplot(diamonds_count, aes(x = reorder(cut, -n), y = n, fill = n)) +
geom_bar(stat = "identity") +
geom_text(aes(label = n), vjust = -0.3, size = 4) +
scale_fill_distiller(palette = "Spectral", direction = 1) +
labs(
title = "Contagem de Diamantes por Tipo de Corte",
x = "Tipo de Corte",
y = "Quantidade"
) +
theme_minimal()
Criar um boxplot de preços por tipo de corte com personalizações.
ggplot(diamonds, aes(x = cut, y = price, fill = cut)) +
geom_boxplot() +
scale_fill_manual(values = c(
"Fair" = "#1b9e77",
"Good" = "#d95f02",
"Very Good" = "#7570b3",
"Premium" = "#e7298a",
"Ideal" = "#66a61e"
)) +
labs(
title = "Distribuição dos Preços por Tipo de Corte",
x = "Qualidade do Corte",
y = "Preço (USD)"
) +
theme_minimal() +
theme(
legend.position = "none",
axis.text.x = element_text(angle = 45, hjust = 1)
)
geom_point() e
geom_jitter()Um gráfico é composto por: - dados
- mapeamentos estéticos
- geometrias
- estatísticas
- escalas
- sistemas de coordenadas
- temas
Essa estrutura é implementada pelo ggplot2.
Todos os gráficos foram configurados para aparecer automaticamente ao rodar o relatório.