data(Diabetes)
x=ci.mean(bp.2s~AgeGroups,data=Diabetes)
plot(x,title.labels="Age groups",xratio=c(0.4,0.3))
x=ci.mean(bp.2s/500~AgeGroups+gender,data=Diabetes)
plot(x,xratio=c(0.4,0.2))
plot(x,xratio=c(0.4,0.2),
labels=split(x$labels[,"AgeGroups"],x$labels[,"gender"]),
title.labels="Age groups")
if (FALSE) {
plot(x, leftmargin=0, rightmargin=0)
plotConfidence(x, leftmargin=0, rightmargin=0)
data(CiTable)
with(CiTable,plotConfidence(x=list(HazardRatio),
lower=lower,
upper=upper,
labels=CiTable[,2:6],
factor.reference.pos=c(1,10,19),
format="(u-l)",
points.col="blue",
digits=2))
with(CiTable,Publish::plot.ci(x=list(HazardRatio),
lower=lower,
upper=upper,
labels=CiTable[,2:6],
factor.reference.pos=c(1,10,19),
format="(u-l)",
points.col="blue",
digits=2,
leftmargin=-2,
title.labels.cex=1.1,
labels.cex=0.8,values.cex=0.8))
}
Run the code above in your browser using DataLab