Pacote Likert

O pacote likert serve para visualizar o uso de escalas likert. O pacote produz gráficos bonitos e relativamente intuitivos para averiguar como os indivíduos respondem às escalas.

Vamos usar alguns dados em que a escala likert possui 3 pontos. São 15 itens baseados no modelo do cinco fatores.

Esse é o gráfico padrão do pacote. Já é bastante bonito e atraente.

library(likert)
p1 = likert(items = pptqc, nlevels = 3)
## Warning in likert(items = pptqc, nlevels = 3): items parameter contains non-
## factors. Will convert to factors
plot(p1)

O pacote permite ainda fazer um heatmap do uso das opções. Além disso, ao pedir o tipo como “heat” o pacote fornece a média e desvio padrão para cada item

plot(p1, type = "heat")

Deixando publicável

O pacote permite que o gráfico seja customizado usando os comandos do pacote ggplot2

Os comandos abaixo são uma tentativa de deixar o gráfico um pouco mais com cara de publicação. Coloquei os nomes dos itens com suas respectivas dimensões e troquei os labels para representar as escolhas da likert no estilo dplyr.

Depois troquei as especificações para deixar o gráfico mais apresentável.

p2 = pptqc %>% 
  mutate(across(q01:q15, ~factor(.x, levels = c(1,2,3),
                                 labels = c("Polo negativo",
                                            "Depende",
                                            "Polo positivo")))) %>% 
  rename("Item 01 - Extroversão" = q01,
         "Item 02 - Neuroticismo"= q02,
         "Item 03 - Abertura"= q03,
         "Item 04 - Conscienciosidade"= q04,
         "Item 05 - Amabilidade"= q05,
         "Item 06 - Extroversão"= q06,
         "Item 07 - Neuroticismo"= q07,
         "Item 08 - Abertura"= q08,
         "Item 09 - Conscienciosidade"= q09,
         "Item 10 - Amabilidade"= q10,
         "Item 11 - Extroversão"= q11,
         "Item 12 - Neuroticismo"= q12,
         "Item 13 - Abertura"= q13,
         "Item 14 - Conscienciosidade"= q14,
         "Item 15 - Amabilidade"= q15) %>% 
  likert(items = ., nlevels = 3)

plot(p2,
     legend = NULL, 
     low.color = "gray17",
     high.color = "black",
     neutral.color = "grey90",
     ordered = F,
     legend.position = "bottom") + 
  ggtitle("") + 
  labs(x = NULL, y = "Porcentagem de respostas") +
  theme(panel.background = element_blank(), 
        axis.line = element_line(colour = "black"), 
        legend.key = element_rect(fill = "white"),
        axis.text.y = element_text(colour="black",size=11), 
        axis.text.x = element_text(hjust = 1,colour="black",size=10),
        text = element_text(family = "serif"))

o esquema de cinza sempre pode ser modificado a partir do nome das cores. Aqui está uma imagem com todos os nomes de cores que podem ser usados no ggplot2.