In jbryer/likert: Analysis and Visualization Likert Items

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(likert)

The Likert scale was first introduced by Rensis Likert in 1932 [@Likert1932] and has become a widely used for assessment and survey designs.

data(pisaitems)
items24 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST24Q']
head(items24); ncol(items24)

names(items24) <- c(
    ST24Q01="I read only if I have to.",
    ST24Q02="Reading is one of my favorite hobbies.",
    ST24Q03="I like talking about books with other people.",
    ST24Q04="I find it hard to finish books.",
    ST24Q05="I feel happy if I receive a book as a present.",
    ST24Q06="For me, reading is a waste of time.",
    ST24Q07="I enjoy going to a bookstore or a library.",
    ST24Q08="I read only to get information that I need.",
    ST24Q09="I cannot sit still and read for more than a few minutes.",
    ST24Q10="I like to express my opinions about books I have read.",
    ST24Q11="I like to exchange books with my friends.")

l24 <- likert(items24)
l24

summary(l24)

plot(l24)

l24g <- likert(items24[,1:6], grouping=pisaitems$CNT)
print(l24g)
summary(l24g)

plot(l24g)

jbryer/likert documentation built on June 13, 2025, 7:56 p.m.