用这串代码做出的森林图怎么统一小数点后的小数位数？有些甚至小数点后没有数字了。
library(gemtc)
library(rjags)
#数据
data_test <- data.frame(study=c(rep(c("Zhao","Qian","Sun","Li",
"Zhou","Wu","Zheng","Wang",
"Feng","Chen","Zhu","Wei"),times=2)),
treatment=c(rep(c("A","B","C","D","E","E","D","C","B","A","A","B"),each=2)),
sampleSize=round(c(seq(length=24,from=30,to=42))),
responders=round(c(seq(length=8,from=10,to=20),seq(length=8,from=30,to=34),seq(length=8,from=30,to=41))))
description_test <- data.frame(id=c("A","B","C","D","E"),description=c("A","B","C","D","E"))
#建模
result_test<- mtc.network(data=data_test,treatments = description_test) %>% mtc.model(type="consistency",factor=2.5, n.chain=4,
likelihood="binom",linearModel="random") %>% mtc.run(n.adapt=5000, n.iter = 25000, thin=1)
#出图
forest(relative.effect(result_test,"C"),use.description = T,digit=3)
