Informações gerais

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

# 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

library(likert)
## Loading required package: ggplot2
## Loading required package: xtable
lik <- likert(as.data.frame(bd[ , 3:16]))

Plota as figuras

# 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"))