library(Hmisc); library(grid); library(lattice);library(Formula); library(ggplot2)
library(rms)
library(survival)
data(package = "survival")
library(readxl)
data <- read_excel("chen3.xlsx")
ddist <- datadist("chen3.xlsx")
options(datadist='ddist')
data <- read_excel("chen3.xlsx")
model <- lm(choice2 ~ ., data = data[,-1])
model2 <- step(model, trace = 0)
summary(model2)
nom <- nomogram(f1, fun=plogis, lp=F, funlabel="Risk")
plot(nom)最后两行，运行时一直报错
其他的都能正常运行

Error in lims[] : 下标出界
此外: Warning message:
In structure(limits, class = "data.frame", row.names = c("Low:effect",  :
  Calling 'structure(NULL, *)' is deprecated, as NULL cannot have attributes.
  Consider 'structure(list(), *)' instead.
> plot(nom)