# Create data
risk<-tibble(time=c(rep(c(0,1000,2000,3000),3)),
label=c(rep("Obs",4),rep("Lev",4),rep("Lev+5FU",4)),
value=c(630,372,256,11,620,360,266,8,608,425,328,14),
param=rep("n",12))
table<-tfrmt(
label = label ,
column = time,
param = param,
value = value) %>%
print_to_ggplot(risk)
table