我的数据是：
> dput(fb5)
structure(list(Relevency = structure(c(5L, 4L, 5L, 5L, 5L, 4L,
5L, NA, 4L, 5L, 4L, 5L, 5L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 5L,
5L, 5L, 5L, 5L, 2L, 3L, 3L, 5L, 5L, 5L, 4L), .Label = c("1",
"2", "3", "4", "5"), class = "factor"), Clarity = structure(c(3L,
4L, 4L, 4L, 4L, 4L, 4L, 5L, 4L, 3L, 4L, 3L, 3L, 5L, 4L, 3L, 4L,
5L, 5L, 4L, 4L, 3L, 5L, 4L, 4L, 4L, 3L, 3L, 4L, 4L, 5L, 4L, 5L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Technical01 = structure(c(2L,
2L, 2L, 3L, 4L, 2L, 2L, NA, 2L, 4L, 5L, 3L, 3L, 5L, 2L, 2L, NA,
NA, 1L, 2L, 4L, 2L, 2L, 3L, 2L, 5L, 5L, 5L, 3L, 2L, 5L, 3L, 4L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Technical02 = structure(c(1L,
2L, 3L, 3L, 4L, 2L, 2L, NA, 2L, 4L, 5L, 3L, 3L, 5L, 2L, 2L, NA,
NA, 1L, 2L, 4L, 2L, 2L, 3L, 2L, 5L, 5L, 5L, 3L, 2L, 5L, 3L, 3L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Technical03 = structure(c(4L,
2L, 5L, 3L, 4L, 2L, 2L, NA, 2L, 4L, 5L, 3L, 3L, 5L, 2L, 2L, NA,
NA, 1L, 2L, 4L, 2L, 2L, 3L, 2L, 5L, 5L, 5L, 3L, 2L, 5L, 3L, 5L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Technical04 = structure(c(3L,
2L, 3L, 3L, 4L, 2L, 2L, NA, 2L, 4L, 5L, 3L, 3L, 5L, 2L, 2L, NA,
NA, 1L, 2L, 4L, 2L, 2L, 3L, 2L, 5L, 5L, 5L, 3L, 2L, 5L, 3L, 4L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Technical05 = structure(c(3L,
2L, 2L, 3L, 4L, 2L, 2L, NA, 2L, 4L, 5L, 3L, 3L, 5L, 2L, 2L, NA,
NA, 1L, 2L, 4L, 2L, 2L, 3L, 2L, 5L, 5L, 5L, 3L, 2L, 5L, 3L, 5L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Interactive = structure(c(5L,
4L, 4L, 4L, 4L, 5L, 4L, 5L, 5L, 4L, 5L, 3L, 4L, 5L, 5L, 5L, 5L,
NA, 5L, 4L, 4L, 5L, 3L, 5L, 5L, 5L, 3L, 4L, 2L, 5L, 5L, 5L, 4L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Response = structure(c(5L,
4L, 4L, 2L, 4L, 5L, 4L, 3L, 5L, 3L, 5L, 3L, 3L, 5L, 4L, 5L, 5L,
4L, 5L, 5L, 5L, 5L, 3L, 5L, 4L, 4L, 4L, 3L, 4L, 5L, 5L, 5L, 5L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Length = structure(c(5L,
2L, 2L, 2L, NA, 1L, 4L, 4L, 5L, NA, 5L, 3L, 5L, 5L, 5L, 3L, 5L,
5L, 5L, 3L, 4L, 4L, 1L, 4L, 3L, 4L, 3L, 4L, 5L, 5L, 5L, 5L, 2L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Progress = structure(c(3L,
3L, 4L, 3L, 4L, 2L, 3L, 5L, 3L, 3L, 5L, 4L, 4L, 5L, 3L, 2L, 4L,
4L, 2L, 3L, 5L, 1L, 5L, 5L, 3L, 4L, 5L, 3L, 3L, 3L, 3L, 4L, 4L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Expectation = structure(c(4L,
4L, 5L, 3L, 5L, 2L, 3L, 5L, 4L, 4L, 5L, 3L, 4L, 5L, 4L, 3L, 3L,
3L, 1L, 4L, 4L, 3L, 5L, 4L, 4L, 5L, 3L, 4L, 1L, 4L, 5L, 4L, 5L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Performance = structure(c(5L,
4L, 4L, NA, NA, 4L, 4L, 5L, 4L, 5L, 5L, 4L, NA, 5L, 5L, 5L, 5L,
5L, 1L, 5L, 4L, 5L, 5L, 5L, 4L, 5L, 4L, 3L, 5L, 5L, 5L, 5L, 5L
), .Label = c("1", "2", "3", "4", "5"), class = "factor"), Class = structure(c(1L,
1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L,
1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 2L
), .Label = c("1", "2", "3", "4", "5"), class = "factor")), .Names = c("Relevency",
"Clarity", "Technical01", "Technical02", "Technical03", "Technical04",
"Technical05", "Interactive", "Response", "Length", "Progress",
"Expectation", "Performance", "Class"), row.names = c("id 1",
"id 2", "id 3", "id 4", "id 5", "id 6", "id 7", "id 8", "id 9",
"id 10", "id 11", "id 12", "id 13", "id 14", "id 15", "id 16",
"id 17", "id 18", "id 19", "id 20", "id 21", "id 22", "id 23",
"id 24", "id 25", "id 26", "id 27", "id 28", "id 29", "id 30",
"id 31", "id 32", "id 33"), class = "data.frame")
当我通过以下方式请求Likert情节时：
likertG.fb5 <- likert(subset(fb5, select = -c(Class)), nlevels = 5)
plot(likertG.fb5)
我得到了结果。但是，当我使用以下组分请求Likert情节时：
likertG.fb5 <- likert(subset(fb5, select = -c(Class)), nlevels = 5, grouping = fb5$Class)
plot(likertG.fb5)
我收到错误消息
$<-.data.frame中的错误（*tmp*，“低”，值= c（0,0,66.6666666666667，： 替换有12行，数据有13个。