问题描述
我正在尝试使用 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)
也不起作用。有没有人知道如何解决这个问题?
提前致谢。
解决方法
原来我找到了答案,做了以下工作:
p <- (likert(testData))
plot(p,group.order = c("question1","question2","question3","question4"))