从“中删除顺序回归图中的截距线”;“影响”;用r包装

从“中删除顺序回归图中的截距线”;“影响”;用r包装,r,plot,regression,effects,intercept,R,Plot,Regression,Effects,Intercept,我想可视化一个混合效应有序回归,在r中的ordinal包中使用clmm函数进行拟合。我正在使用effects软件包。但是,我不希望截取显示在绘图上(响应类别之间的阈值-如下面的水平虚线所示)。有没有关于如何省略它们的指导 示例代码和绘图: library(ordinal) library(MASS) library(effects) mod <- clmm(poverty ~ age + (1|country), data = WVS) plot(Effect("age&quo

我想可视化一个混合效应有序回归,在r中的
ordinal
包中使用clmm函数进行拟合。我正在使用
effects
软件包。但是,我不希望截取显示在绘图上(响应类别之间的阈值-如下面的水平虚线所示)。有没有关于如何省略它们的指导

示例代码和绘图:

library(ordinal)
library(MASS)
library(effects)

mod <- clmm(poverty ~ age + (1|country), data = WVS)
plot(Effect("age", mod, latent = TRUE))
plot_without_intercept = function(eff){
       eff$thresholds = NULL
       plot(eff)
}

Eff = Effect("age", mod, latent = TRUE)
plot_without_intercept(Eff)
库(序数)
图书馆(弥撒)
图书馆(效果)

mod它读取存储在
eff
对象中的阈值。。在
plot.eff
中可能有一些其他选项,但现在您可以编写一个函数将阈值设置为
NULL
并进行绘图:

library(ordinal)
library(MASS)
library(effects)

mod <- clmm(poverty ~ age + (1|country), data = WVS)
plot(Effect("age", mod, latent = TRUE))
plot_without_intercept = function(eff){
       eff$thresholds = NULL
       plot(eff)
}

Eff = Effect("age", mod, latent = TRUE)
plot_without_intercept(Eff)

谢谢!这项工作非常出色。如果这对其他用户有帮助,其他绘图参数(轴标签、颜色、rug=FALSE等)可以继续进入函数的plot()部分。我花了一秒钟才弄明白。