R project

Arthur Martins Ferreira de Sousa

Importing data, building data frame and exploring libraries

setwd("C:/Users/arthu/OneDrive/Área de Trabalho")
getwd()
data = read.csv("trabalho_1.csv")
df = data.frame(data)

library(tidyverse)
library(knitr)
library(qcc)
library(ggplot2)
library(ggrepel)
library(stringr)
library(tinytex)

Bar chart

ggplot(data, aes(y = tipo.de.eletrodomestico, x = percentagem...)) +
  geom_bar(stat="identity", color = "black", fill = rainbow(12), alpha = 0.8)+
  labs(title = "Gráfico de Barras", x = "Porcentagem", y = "Eletrodomésticos")+
  geom_text(aes(label=percentagem...), position = position_dodge(width=0.9), 
            vjust = 0.7, hjust=-0.1)

Pie chart

df2 <- df %>% 
mutate(csum = rev(cumsum(rev(percentagem...))), pos = percentagem.../2 + lead(csum, 1), 
       pos = if_else(is.na(pos), percentagem.../2, pos))

ggplot(df, aes(x = "" , y = percentagem..., 
               fill = fct_inorder(tipo.de.eletrodomestico))) +
geom_col(width = 1, color = "black") +
coord_polar(theta = "y") +
geom_label_repel(data = df2, aes(y = pos, label = percentagem...),size = 4.5, 
                 nudge_x = 1, show.legend = FALSE)+
guides(fill = guide_legend(title = "Tipos de Eletrodomésticos")) +
theme_void()

Pareto chart

par(cex.axis = 0.672)
par(mgp=c(2,0.75,0))
pareto.chart(df$percentagem..., main = "Gráfico de Pareto", 
             ylab = "Porcentagem", ylab2 = "Frequência acumulada", 
             names = (str_wrap(df$tipo.de.eletrodomestico, 12)), 
             col=rainbow(length(df$percentagem...)))