graficos_quali.R

library(tidyverse)
library(ggplot2)

diamonds %>%
  count(cut) %>%
  arrange(desc(cut)) %>%
  mutate(prop = n/sum(n) ) %>%
  mutate(lab.ypos = cumsum(prop) - 0.5*prop) %>%
  ggplot(aes(x = "", y = prop, fill = cut)) +
  geom_bar(width = 1, stat = "identity", color = "white") +
  coord_polar("y", start = pi/2) +
  scale_fill_brewer(palette="Blues") +
  labs(fill = "Corte") +
  geom_text(aes(y = lab.ypos, x=1.65, label = scales::percent(round(prop,3))), color = "black") +
  theme_void()

diamonds %>%
  ggplot(aes(x = cut)) +
  geom_bar(fill = "steelblue", alpha = 0.8, width = 0.8) +
  theme_classic(base_size = 16) +
  labs(x = "Classificação do diamante segundo corte", y="Frequência")