IDENTIFICAÇÃO:

Nome: Daniel Carlos da Silva

CPF: 05833836611

E-mail:

# Nº Policial: 139691-0

title: “Exercício 1.3 - Gráfico de Barras (diamonds)” date: “16/12/2025” output: html_document —

cores_customizadas <- c(
  "Fair" = "#E69F00",
  "Good" = "#56B4E9",
  "Very Good" = "#009E73",
  "Premium" = "#F0E442",
  "Ideal" = "#CC79A7"
)

grafico_1_3 <- ggplot(diamonds, aes(x = cut, y = price)) +
  geom_boxplot(aes(fill = cut)) +
  
  # (b) Cores customizadas para cada categoria 
  scale_fill_manual(values = cores_customizadas) +
  
  # (a) Títulos e rótulos em português 
  labs(
    title = "Distribuição de Preços por Qualidade de Corte do Diamante",
    x = "Qualidade do Corte",
    y = "Preço (US$)"
  ) +
  
  theme_minimal() +
  
  # (c) Remoção da legenda (se desnecessária) 
  theme(legend.position = "none") +
  
  # (d) Ajuste do ângulo dos rótulos do eixo X 
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1)
  )

print(grafico_1_3)

## R Markdown