我正在尝试使用 Likert 包更改我的 Likert 项目的绘制顺序，但到目前为止我还不是很成功。让我们考虑以下最小代码来重现我的错误。我希望看到以特定的自定义（或至少是问题 1 到问题 4，从上到下）排序的绘图。我尝试了几件事（基于这里的一些问题和答案），但都失败了。

首先是数据：

question1<- c(1,5,3,4,1,5)
question2<- rev(c(1,5))
question3<- c(1,2,5)
question4<- c(5,1)
testData<-data.frame(question1,question2,question3,question4)
testData <- lapply(testData,factor,levels= c(1:5),ordered = TRUE)
testData <- as.data.frame(testData)

然后绘制尝试 #1：

p <- (likert(testData))
plot(p)

给我以下内容：

绘制第 2 次尝试（足够接近但顺序颠倒了，这并没有给我任何随机排序的解决方案）：

p <- (likert(testData))
plot(p,ordered=FALSE)

给我这个：

绘图尝试 #3：

p <- (likert(testData))
p$Item <- factor(p$Item,levels = rev(c("question1","question2","question3","question4")))
plot(p)

也不起作用。有没有人知道如何解决这个问题？

提前致谢。