sjPlot包plot_model()设colors="bw"时修改图例标题的解决办法

当使用colors="bw"时，legend.title参数失效是因为该配色模式下，函数内部对图例的处理逻辑与彩色配色不同，参数未被正确传递到图例设置中。无需修改原始数据，可通过修改ggplot对象的图层属性解决，具体方法如下：

方法1：用labs()直接修改图例标题 #

先将plot_model()的结果保存为ggplot对象，再调用labs()指定图例标题：

# 生成绘图对象
p <- plot_model(mod4, type="int",
           colors="bw",
           mdrt.values="minmax", 
           title = "",
           axis.title = c("Variable 1", "Response")
           )

# 修改图例标题
p + labs(color = "Distance (Meters)")

如果是填充型图例（而非线条/点的颜色图例），将代码中的color替换为fill即可。

方法2：用guides()自定义图例（支持更精细控制） #

若需要调整图例标题样式等细节，可配合guide_legend()使用：

p <- plot_model(mod4, type="int",
           colors="bw",
           mdrt.values="minmax", 
           title = "",
           axis.title = c("Variable 1", "Response")
           )

p + guides(color = guide_legend(title = "Distance (Meters)"))

原理说明 #

plot_model()返回的是标准ggplot2对象，无论内部配色逻辑如何，都能通过ggplot2原生函数修改图层元素。colors="bw"模式下，图例的映射美学为color（或fill），因此直接指定对应美学的标题即可覆盖默认设置。

内容的提问来源于stack exchange，提问作者kpm