File:Pre-term corticosteroid data.svg

原始文件 (SVG文件,尺寸为684 × 309像素,文件大小:95 KB)


摘要

描述
English: This forest plot shows trials of the use of corticosteroids to hasten lung development in pre-term babies. It is an iconic illustration of the power of medical reviews to save lives. The iconic review is from the 1980s, so this plot does not contain all the evidence of the up-to-date version of the same review. This data is the data from which the logo for Cochrane (organisation) is derived.
日期
来源 Source code modified by User:HLHJ from the data and plotting scripts supplied with the GPL-2-licensed software package rmeta (part of the R statistical environment). See rmeta documentation.
作者 Thomas Lumley, User:HLHJ
SVG开发
InfoField
 
SVG的源代码为有效代码
 
矢量图使用R创作。
 
此SVG 文件使用了内嵌文本,可以轻松翻译
源代码
InfoField

R code

install.packages("rmeta")
library(rmeta)
data(cochrane)
svg("cochrane_logo_data.svg",width=9,height=4.35) 
	steroid <- meta.MH(n.trt, n.ctrl, ev.trt, ev.ctrl,
		names=name, data=cochrane)
	tabletext<-cbind(
	c("","Study",steroid$names,NA,"Summary"), #Just tags, not single-author papers
#	c("","Year",c(1111,1111,1111,1111,1111,1111,1111),NA,NA), #Don't have this data
	c("Deaths","(corticosteroid)",cochrane$ev.trt,NA,NA),
	c("Deaths","(placebo)", cochrane$ev.ctrl, NA,NA),
	c("","Odds ratio",format(exp(steroid$logOR),digits=2),NA,format(exp(steroid$logMH),digits=2))
	)

	m<- c(NA,NA,steroid$logOR,NA,steroid$logMH)		#Mean
	l<- m-c(NA,NA,steroid$selogOR,NA,steroid$selogMH)*2	#Lower
	u<- m+c(NA,NA,steroid$selogOR,NA,steroid$selogMH)*2	#Upper

	forestplot(tabletext,m,l,u,zero=0,is.summary=c(TRUE,TRUE,rep(FALSE,8),TRUE),
	clip=c(log(0.015),log(3)), xlog=TRUE,
	xticks=c(0.01,0.1,1,2,4),
	col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))

	forestplot(tabletext,m,l,u,zero=0,is.summary=c(TRUE,TRUE,rep(FALSE,8),TRUE),
	clip=c(log(0.015),log(3)), xlog=TRUE, 
	#boxsize=0.75,
	xticks=c(0.01,0.1,1,2,4),
	xlab="\nOdds ratio with 95% confidence interval\n(1=no effect, <1=treatment has fewer deaths)",
	col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))

dev.off()


GNU head 本作品为自由软件,您可以在自由软件基金会出版的GNU通用公共许可证第2版条款下再分发和/或修改本作品。分发本作品是希望它能有用,但没有任何担保,甚至没有隐含的销售或对于特定目的的适应性的担保。详见GNU通用公共许可证第2版正文。

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

image/svg+xml

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2017年10月21日 (六) 20:002017年10月21日 (六) 20:00版本的缩略图684 × 309(95 KB)HLHJTook out background and cropped using Inkscape
2017年10月21日 (六) 18:132017年10月21日 (六) 18:13版本的缩略图810 × 391(63 KB)HLHJUser created page with UploadWizard

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据