使用映射繪製多條邏輯曲線

Question

對於邏輯迴歸模型，我有一組20個截距和係數。我想將它們全部繪製在一張圖上（理想情況下，使用base而不是ggplot）。我畫出這樣一條曲線：

x = datapoints 
curve(plogis(intercept + coef*x), min(x), max(x), add=TRUE) 

要使用線性模型做到這一點，我可以使用mapply：

a = intercepts 
b = coefs 
mapply(abline, a,b) 

是否有使用方式mapply或curve和plogis到類似的東西避免使用循環？

Answer 1

您沒有提供一個可重複的例子，但是這是一個概念證明：

x = runif(20)/2 
plot(x, bty="l", ylim=c(0,1)) 

a = runif(20)/100 
b = runif(20)/4 
my.func <-function(intercept,coefs) curve(plogis(intercept+coefs*x), add=TRUE) 
mapply(my.func,a,b)