R: сделать номограмму сюжетной меткой курсивом

Question

Я рисую номограмму на основе набора данных PimaIndiansDiabetes, используя пакет rms:

library(mlbench)
data(PimaIndiansDiabetes)

library(rms)
ddist <- datadist(PimaIndiansDiabetes)
options(datadist='ddist')
lrm_model <- lrm (diabetes ~ .,
                  data = PimaIndiansDiabetes,
                  x = TRUE, y = TRUE)
nom <- nomogram(lrm_model,
                fun=plogis,
                fun.at=c(0.01, 0.05, seq(0.1, 0.9, by=0.2), 0.95, 0.99),
                abbrev = TRUE,
                lp=F,
                vnames = "labels",
                varname.label=TRUE,
                funlabel = "Diabetes")
plot(nom,
     fun.side=c(1,3,1,3,1,3,1,3,1),
     label.every=1,
     lmgp = 0.15,
     xfrac=.4
)

Ниже приведен график:

Как мне сделать имена осей itali c? (Я на самом деле предпочитаю, чтобы только 8 предикторов называли itali c)