Trabalhando com gráfico de barras em R

Gráfico de barras utilizando o dataset diamonds (disponível no R)

##Gráfico de barras em ordem decrescente

O gráfico de barras a seguir apresenta a contagens de diamantes por corte. Os dados analisados são oriundos da base de dados diamonds, disponível no R No gráffo a seguir, as colunas estão ordenadas de forma decrescente com rótulos de valor em cada barra. Foi utilizado geom_bar() + scalle_fill_brewer()

# verifica se a bibliotrca está instalada, se não, a instala
if (!require(ggplot2)) install.packages("ggplot2")

## Carregando pacotes exigidos: ggplot2

library("ggplot2")

# carregando o dataset diamonds
data("diamonds")

head(diamonds)

## # A tibble: 6 × 10
##   carat cut       color clarity depth table price     x     y     z
##   <dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int> <dbl> <dbl> <dbl>
## 1  0.23 Ideal     E     SI2      61.5    55   326  3.95  3.98  2.43
## 2  0.21 Premium   E     SI1      59.8    61   326  3.89  3.84  2.31
## 3  0.23 Good      E     VS1      56.9    65   327  4.05  4.07  2.31
## 4  0.29 Premium   I     VS2      62.4    58   334  4.2   4.23  2.63
## 5  0.31 Good      J     SI2      63.3    58   335  4.34  4.35  2.75
## 6  0.24 Very Good J     VVS2     62.8    57   336  3.94  3.96  2.48

# gerando o gráfico com as informações solicitadas
ggplot(data = diamonds, aes(x = reorder(cut, -table(cut)[cut]), fill = cut)) +
  geom_bar() + 
  geom_text(aes(label = after_stat(count)), stat = "count", vjust = -0.5) + # adiciona os rótulos
  scale_fill_brewer(palette = "RdYlBu") + 
  labs(
    title = "Dimantes por corte",
    x = "Corte",
    y = "Contagem"
  ) + 
  theme_minimal()

O próximo gráfico é um boxplot que avalia a variável preço por corte

O gráfico a seguir exibe um gráfico comparativo entre a variável preço por corte com dados oriundos do dataset diamonds.

Ele foi personalizado com cores customizadas por categoria, remoção da legenga e atualização dos rótulos para portugês do Brasil.

# verifica se a bibliotrca está instalada, se não, a instala
if (!require(ggplot2)) install.packages("ggplot2")
if (!require(dplyr)) install.packages("dplyr")

## Carregando pacotes exigidos: dplyr

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library("ggplot2")
library("dplyr")


# carregando o dataset diamonds
data("diamonds")

diamonds_pt <- diamonds %>%
  mutate(
    cut = factor(cut,
                 levels = c("Fair", "Good", "Very Good", "Premium", "Ideal"),
                 labels = c("Justo", "Bom", "Muito Bom", "Premium", "Ideal"))
  )

# Boxplot do preço por corte
ggplot(diamonds_pt, aes(x = cut, y = price, fill = cut)) +
  geom_boxplot() +  # cria o boxplot
  scale_y_continuous(labels = scales::comma) +  # formata os valores do eixo y
  # scale_fill_brewer(palette = "RdYlBu") +
  scale_fill_manual(
    values = c(
      "Justo" = "#1b9e77",
      "Bom" = "#d95f02",
      "Muito Bom" = "#7570b3",
      "Premium" = "#e7298a",
      "Ideal" = "#66a61e"
    )
  ) +
  labs(
    title = "Distribuição de Preço por Corte de Diamante",
    x = "Corte",
    y = "Preço (USD)"
  ) +
  theme_minimal() +
  theme(legend.position = "none")