小编jjc*_*cii的帖子

我已经成功地使用plot_model函数sjplot绘制了多项逻辑回归模型。回归包含一个结果（Info Sought，具有 3 个级别）和 2 个连续预测变量（DSA、ASA）。我还更改了 ASA 的值，以便plot_model根据 ASA 平均值和 SD 绘制预测效果结果：

plot1 <- plot_model(multinomialmodel , type = "pred", terms = c("DSA", "ASA[meansd]")

我有两个定制问题：

1) 分面顺序：分面顺序基于结果级别的默认字母顺序（“展开”然后“第一张图片”然后“多张图片”）。有没有办法可以调整这个？在运行和绘制模型之前，我尝试使用 来重新排序级别factor()（如此处的示例），但这并没有导致生成的构面顺序发生任何变化。ggplot2也许可以通过 ggplot2 来代替，如此处提供的第一个解决方案中所示？

2) 图例标签：图例当前使用 ASA 的 -1 SD、平均值和 +1 SD 值来标记绘制的线；有没有办法调整这些标签，而不是简单地说“-1 SD”、“平均值”和“+1 SD”而不是原始值？

谢谢！

我目前正在尝试使用 Rggalluvial包生成冲积图。我希望用它来绘制连续时间段（Seg1、Seg2、Seg3、Seg4）内不同值之间的多个连续迁移。在 Seg 1 中，所有案例都具有“workseg”值；在 Seg 2 处，该值可以是其他三个值之一（相关内容、不相关内容、NONE）；Seg3 和 Seg4 值可以是四个选项中的任何一个。

使用以下代码...

##Reorder levels per segment (make vertical order of strata levels identical 
across all axes, rather than "zig-zag" --> this is just an aesthetic 
preference)##

dRG.lode <- dRG %>%
  mutate(Seg2 = factor(Seg2, levels=c("workseg", "related content", 
"unrelated content", "NONE")),
         Seg3 = factor(Seg3, levels=c("workseg", "related content", 
"unrelated content", "NONE")),
         Seg4 = factor(Seg4, levels=c("workseg", "related content", 
"unrelated content", "NONE")))


##Plot##

ggplot(as.data.frame(dRG.lode),
       aes(axis1 = Seg1, axis2 = Seg2, axis3 = …