Uso do pacote likert para análise descritiva de itens

Informações gerais

• O pacote likert oferece várias opções de figuras usando o ggplot para itens com escala likert
• Veja o site: likert
• Se ainda não instalou rode: install.packages(likert)
• Baixe os dados para esse trabalho aqui dados

Bancos de dados

setwd("~/Dropbox/R Stat")
library(readxl)
bd <- read_excel("bd_prof.xlsx", sheet = "bd3")
itens <- read_excel("bd_prof.xlsx", sheet = "itens")

Organiza banco

• Nesse banco temos 14 questões (cujo texto estão no dataframe itens) perguntadas a professores.
  
• A mesma questão era perguntada sobre quatro tipos de deficiências: Se pergunou a mesma questão MO Deficiência Motora, AU Deficiência Auditiva, VI Deficiência Visual, ME Deficiência Mental. Isso está registrado na variável categ.
• Os professores respondiam em uma escala likert de 5 pontos:1 Discordo Totalmente, 2 Discordo, 3 Nem Concordo e Nem Discordo, 4 Concordo, 5 Concordo Totalmente.
• Para uso efetio do pacote likert precisamos organizar esse banco transformando as variáveis em factor (indicando corretamente os labels das categorias) e colocando o texto do item como nome das variáveis no dataframe

# Transforma em factor
bd[ , 3:16] <- lapply(bd[ , 3:16], function(x){ factor(x, 
        levels = c("1", "2", "3", "4", "5"),                                  
        labels = c("DT", "D", "N", "C", "CT"))})

# Muda os nomes das variáveis
names(bd)[3:16] <- paste(names(bd)[3:16], itens$texto, sep="_")

Roda likert

• O pacote espera que todas as variáveis sejam factor e utilizem a mesmma escala

library(likert)

## Loading required package: ggplot2

## Loading required package: xtable

lik <- likert(as.data.frame(bd[ , 3:16]))

Plota as figuras

• O pacote espera que todas as variáveis sejam factor e utilizem a mesmma escala

# Opção 1
plot(lik, wrap = 60, text.size=3) + theme(axis.text.y = element_text(size="5"))

# Opção 2

plot(lik, type = "heat", wrap = 60, text.size=3) + theme(axis.text.y = element_text( size="5"))

Compara opinião considerando diferentes tipos de deficiência (variável categ)

lik2 <- likert(as.data.frame(bd[ , 3:5]), grouping = bd$categ)
plot(lik2, wrap = 60, text.size=3) + theme(axis.text.y = element_text(size="6"))