没什么效果，再想想办法

另一种方法是将刻度线的长度设为0，然后使用`axis()`函数手动添加需要的刻度。以下是一个示例代码：

nomrad <- nomogram(coxm, lp = F,fun=list(function(x) survrad(12, x),
                                      function(x) survrad(12*3, x),
                                      function(x) survrad(12*5, x)),
                   funlabel=c("1-year OS",
                              "3-years OS",
                              "5-years OS"))
plot(nomrad,
     xfrac=.35,
     cex.var=1,
     cex.axis=0.8,
     tcl=0,
     lmgp=0.5,
     label.every=2,
     naxes=13,
     col.grid=gray(c(0.8, 0.95)),
     points.label='Points',
     total.points.label='Total Points')

# 手动添加刻度
axis(side=2, at=c(0, 20, 40, 60, 80, 100),
     labels=c("0%", "20%", "40%", "60%", "80%", "100%"), tcl=-0.5)

这里将`tcl`参数设为0，然后使用`axis()`函数手动添加了需要的刻度。可以根据需要调整刻度的位置和标签。