Trabalho de VED

Atividade em R, cujo propósito é construir um Gráfico de Barras, Setores, e um Diagrama de Pareto.

Bibliotecas

Essas foram as bibliotecas utilizadas para a construção dos gŕaficos e do arquivo RMarkdown.

library(tidyverse)
library(wrapr)
library(qcc)
library(knitr)
library(rmarkdown)
library(formatR)

Data Frame

Criando a base de dados que será utilizada para os gráficos.

Conselheiros = c("Propaganda", "Amigos e família", "Portal eletrônico do fabricante",
    "Noticiários do meio de comunicação", "Avaliações de usuários na Internet",
    "Portais eletrônicos de vendedores", "Vendedores", "Outros")
Porcentagem = c(7, 45, 5, 11, 13, 4, 1, 14)
FrequenciaNi = c(88.48, 568.8, 63.2, 139.04, 164.32, 50.56, 12.64, 176.96)
data = data.frame(Conselheiros, Porcentagem, FrequenciaNi)

Visualizando a Base de Dados

kable(data)
Conselheiros Porcentagem FrequenciaNi
Propaganda 7 88.48
Amigos e família 45 568.80
Portal eletrônico do fabricante 5 63.20
Noticiários do meio de comunicação 11 139.04
Avaliações de usuários na Internet 13 164.32
Portais eletrônicos de vendedores 4 50.56
Vendedores 1 12.64
Outros 14 176.96

Gráfico de Barras

Gráfico de barras feito utilizando a biblioteca ggplot2.

data %>%
  ggplot(aes(x=Conselheiros, y=FrequenciaNi, label=FrequenciaNi)) +
  geom_bar(stat = "identity", fill = "darkblue",color="black", alpha = 0.8)  +
  ylim(0, 600) +
  geom_label(size=3)+
  coord_flip()

Gráfico de Setores

Gráfico de setores ou de pizza utilizando o pacote base do R.

names(Porcentagem) = Conselheiros
rotulos = paste("(", Porcentagem, "%)", sep = " ")
pie(Porcentagem, main = "Conselheiros de compras mais confiáveis", labels = rotulos,
    col = rainbow(8), cex = 0.6)
legend(0.73, 1.1, names(Porcentagem), col = rainbow(8), pch = rep(20, 6), cex = 0.6,
    bty = "n")

Diagrama de Pareto

Diagrama de Pareto gerado utilizando a biblioteca qcc.

names(FrequenciaNi) = Conselheiros
par(cex.axis = 0.66)
pareto.chart(FrequenciaNi, main = "Diagrama de Pareto", ylab = "Frequência", ylab2 = "Porcentagem acumulada",
    col = rainbow(length(FrequenciaNi)))