a<-c("Event N","OS% (5%CI, 95%CI)","P")
for(i in 4:dim(data1998)[2]){
  fit1<-survfit(Surv(months,BCSS==1)~tumorinnervsouter,subset=(data1998[,i]==1),data=data1998)
  p<-survdiff(Surv(months,BCSS==1)~tumorinnervsouter,rho=0,subset=(data1998[,i]==1),data=data1998)
  tbl1<-tbl_survfit(fit1,times=120)%>%add_nevent()
  a<-rbind(a,c(
    inline_text(tbl1,column = nevent),
    inline_text(tbl1,time =120, level = "2"),
    1-pchisq(p$chisq,length(p$n)-1)))
  }
目前bl1<-tbl_survfit(fit1,times=120)%>%add_nevent()，不保留小数位
怎么设置tbl1<-tbl_survfit(fit1,times=120)%>%add_nevent()，使生存率是带小数点后一位的：如88.9%。