コンテンツにスキップ

英文维基 | 中文维基 | 日文维基 | 草榴社区

ファイル:Pre-term corticosteroid data.svg

ページのコンテンツが他言語でサポートされていません。

元のファイル (SVG ファイル、684 × 309 ピクセル、ファイルサイズ: 95キロバイト)

概要

解説
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 一般公衆利用許諾書 (GNU General Public License) (バージョン2) の規約に基づき、この作品の再配布や改変ができます。この作品は、有用であることを期待して配布されていますが、商用あるいは特定の目的に適するかどうかも含めて、暗黙的にも、一切保証されません。詳しくは、バージョン2のGNU 一般公衆利用許諾書をご覧ください。

キャプション

このファイルの内容を1行で記述してください

このファイルに描写されている項目

題材

21 10 2017

ファイルの履歴

過去の版のファイルを表示するには、その版の日時をクリックしてください。

日付と時刻サムネイル寸法利用者コメント
現在の版2017年10月21日 (土) 20:002017年10月21日 (土) 20:00時点における版のサムネイル684 × 309 (95キロバイト)HLHJTook out background and cropped using Inkscape
2017年10月21日 (土) 18:132017年10月21日 (土) 18:13時点における版のサムネイル810 × 391 (63キロバイト)HLHJUser created page with UploadWizard

以下の​ 2 ページがこのファイルを使用しています:

グローバルなファイル使用状況

以下に挙げる他のウィキがこの画像を使っています:

メタデータ