R 绘制障碍回归输出

我试图用r中的一个交互项来绘制跨栏回归输出，但在模型的计数部分中遇到了一些问题

Model <- hurdle(Suicide. ~ Age + gender + bullying*support, dist = "negbin", link = "logit")

---

模型通用绘图问题不是真正的编程问题。这可能是一个更好的冷杉。当你确切地知道要绘制什么，但不知道如何绘制时，也许你应该在这里发布。我要绘制的是跨栏模型的计数部分。据我所知，没有用于绘制跨栏回归的软件包。我可以使用MASS和visreg复制和绘制logit部分，但不能使用负二项计数分量。我希望有人能对这个问题有所了解。我去查一下。谢谢您。
##Logistic 

logistic<-glm(SuicideBinary ~ Age + gender + bullying*support, data = sx, family="binomial")

data("sx", package = "MASS")
##Linear scale
visreg(logistic, "bullying", by="support", xlab = "bullying", ylab = "Log odds (Suicide yes/no)")

##Logistic/probability scale
visreg(logistic, "bullying", by="support", scale = "response", xlab = "bullying", ylab = "P(Initial Attempt)")

##Count model

NegBin<-glm.nb(Suicide. ~ Age + gender + bullying*support, data = sx)

data("sx", package = "MASS")
##Linear scale
visreg(NegBin, "bullying", by="support", xlab = "bullying", ylab = "Count model (number of suicide attempts)")

##Logistic/probability scale
visreg(NegBin, "bullying", by="support", scale = "response", xlab = "bullying", ylab = "P(Subsequent Attempts)")