Relatório de Visualização de Dados

Pós-Graduação em Ciências de Dados e Big Data

ggplot(data = diamonds, aes(x = cut, y = price, fill = cut)) +
  geom_boxplot() +
  labs(
    title = "Distribuição de Preços de Diamantes por Tipo de Corte",
    x = "Tipo de Corte",
    y = "Preço (USD)"
  ) +
  scale_fill_manual(
    values = c("Fair" = "#E69F00", "Good" = "#56B4E9",
               "Very Good" = "#009E73", "Premium" = "#F0E442",
               "Ideal" = "#0072B2")
  ) +
  theme_minimal() +
  theme(
    legend.position = "none",
    axis.text.x = element_text(angle = 45, hjust = 1)
  )