r - 使用 sjPlot (R) 包中的 sjp.xtab 函数生成的绘图具有奇怪的值标签位置...如何正确处理？

Question

我一直在尝试使用 sjp.xtab 来做一些比例堆积条形图（带有翻转坐标），但我遇到了一些麻烦。

我在奇怪的地方（而不是在堆积条的中间）得到值标签，我还想知道如何更改列的顺序，以便我可以在右侧得到一些标签，例如.

这是我创建的一个示例，以显示正在发生的事情：

我创建了一个名为 question 的变量，它只是模拟一个问卷项目，具有三个响应选项，b（低）、m（中）、a（高）

question <- c("b", "b", "b", "m", "a", "a", "a", "a","a","a", "a", "m","m","a")
question <- factor(question, levels=c("b","m","a"))

question <- c("b", "b", "b", "m", "a", "a", "a", "a","a","a", "a", "m","m","a")
question <- factor(question, levels=c("b","m","a"))

然后是一个名为 rowvar 的变量，它是组变量，具有三个可能的组：mod1、mod2、mod3

rowvar <- c("mod1", "mod1", "mod1","mod1","mod1","mod2","mod2","mod2","mod2","mod2","mod2", "mod3","mod3","mod3")
rowvar <-factor(rowvar, levels=c("mod1","mod2","mod3"))

有交叉表，这些是我在情节中期望的值

prop.table(table(rowvar,question),1)

但是当我使用 sjp.xtab 时，我会在奇怪的位置得到值标签......

library(sjPlot)
sjp.xtab(rowvar,question,margin="row",bar.pos="stack",coord.flip=TRUE)

结果图是这样的：

示例的结果图

我将所有内容都更新到了最新版本（R、sjPlot、ggplot2 ...）。

任何人都知道如何在没有太多编程的情况下解决这个问题..？我不是程序员，我只是一个试图构建一些看起来不错的情节的社会心理学家。对不起，如果这篇文章有任何不足之处。