使用此页面作为参考 http://jason.bryer.org/likert/我发现当我使用自己的数据复制Bryers代码时，李克特因子水平的顺序错误。这似乎不会发生在演示代码中，但发生在我的代码中。
我密谋
plot(lexam, centered = FALSE, wrap = 30)
获取您看到的图像
我试图用以下内容进行修改，但没有成功。
levels <- c("Strongly Agree", "Agree", "Neutral", "Disagree","Strongly Disagree")
lexam[] <- lapply(lexam, function(x) factor(x, levels = levels))
任何人都可以建议我可以做些什么来重新排序图的因子水平吗？您应该在链接的图像中看到问题所在。不正确的李克特排序
有趣的是，我在其他帖子中看到了同样的问题，实际上并不是正在讨论的问题。例如，使用 Likert 包绘制百分比 - 分组时不起作用，即使它不是讨论的主题，您也可以看到相同的问题。
您可以使用ordered函数文档来创建有序因子。另请参阅本教程
levels <- c("Strongly Agree", "Agree", "Neutral", "Disagree","Strongly Disagree")
ordered_factor <- ordered(x, levels = levels)