Este relatório apresenta as atividades práticas desenvolvidas na disciplina de Visualização de Dados.
library(ggplot2)
library(dplyr)
data(mtcars)
mtcars$cyl <- as.factor(mtcars$cyl)
ggplot(mtcars, aes(wt, mpg, color = cyl)) +
geom_point(size = 3) +
labs(
title = "Exercício 1.1 - Relação entre Peso e Consumo",
x = "Peso (1000 lbs)",
y = "Milhas por Galão"
) +
theme_minimal()
df_diamonds <- diamonds %>% count(cut)
ggplot(df_diamonds, aes(reorder(cut, -n), n, fill = cut)) +
geom_col() +
labs(
title = "Exercício 1.2 - Contagem de Diamantes por Corte",
x = "Tipo de Corte",
y = "Quantidade"
) +
theme_minimal()
ggplot(diamonds, aes(cut, price, fill = cut)) +
geom_boxplot() +
labs(
title = "Exercício 1.3 - Distribuição do Preço por Corte",
x = "Tipo de Corte",
y = "Preço (USD)"
) +
theme_minimal() +
theme(
legend.position = "none",
axis.text.x = element_text(angle = 45, hjust = 1)
)
Questão : Explique a diferença entre os geoms geom point() e geom jitter(). Em que situação cada um é mais apropriado?
Questão : Descreva o conceito de ”Gramática dos Gráficos”e como ele é implementado no ggplot2.