r语言 ggrisk遇到问题…数据和报错如下

library(ggrisk)
library(survival)
library(rms)
setwd("C:\Users\DJH\Desktop\各种代码\ggrisk")
data<-read.csv("ggrisk3.csv",header=T)
head(data)
fit <- cph(Surv(time,event)~ACTN1,data)
fit
ggrisk(fit,
cutoff.value = "cutoff")