Nomogram with rms-package for binary outcome

General
2

I found the solution:

For defining limits, you have to use datadist:

dd <-   datadist(df)
 options(datadist = "dd")

To change the axis, use:

rms::nomogram(
    model,
    fun = function(x)1/(1+exp(-x)))