我正在尝试更改使用 Likert 包绘制我的 Likert 项目的顺序，但到目前为止我还不是很成功。让我们考虑以下最小代码来重现我的错误。我希望看到使用特定自定义（或至少问题 1 到问题 4，从上到下）排序的绘图。我已经尝试了几件事（基于这里的一些问题和答案），但都失败了。
先上数据：
question1<- c(1,5,3,4,1,1,1,3,4,5)
question2<- rev(c(1,5,3,4,1,1,1,3,4,5))
question3<- c(1,1,1,2,2,2,3,3,4,5)
question4<- c(5,5,5,4,4,4,3,3,2,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)
也不起作用。有人知道如何解决这个问题吗？
提前致谢。