consort
1.2.1
consortの目標は、無作為化対照臨床試験における参加者の割り当ての透明な報告のための配偶者図を簡単に作成できるようにすることです。これは、標準化された処分データを作成し、このデータを作成のソースとして標準的な配偶者図として使用することによって行われます。ノードにテキストラベルを提供することによる人間の努力も達成できます。
リリースバージョンのConsort from Cranを次のようにインストールできます。
install.packages（ "Consort"）
およびGithubの開発バージョン：
＃install.packages（ "devtools"）devtools :: install_github（ "adayim/consort"）
これは、特定のサブジェクト処分データを使用して作成された配偶者図を解決する方法を示す基本的な例です。
ライブラリ（配偶者）##基本的な例コード
set.seed（1001）n <-300trialno <-300trialno < - サンプル（c（1000：2000）、n）exc < - rep（na、n）exc [sample（1：n、15）] < - sample（c（ "（"）収集されていないサンプル "、" mri not collected "、" other "）、15、置き換え= t、prob = c（0.4、0.4、0.2））arm < - rep（na、n）arm [is.na（ec） ] < - サンプル（c（ "conc"、 "seq"）、sum（is.na（exc））、置換= t）fow1 < - rep（na、n）fow1 [！is.na（arm）] < - サンプル（c（ "撤回"、「中止」、「死」、「その他」、na）、
sum（！is.na（arm））、置き換え= t、prob = c（0.05、0.05、0.05、0.05、0.05、0.8））fow2 < - rep（na、n）fow2 [！is.na（arm）＆is .na（fow1）] < - サンプル（c（ "プロトコル偏差"、「結果が欠落している "、na）、
sum（！is.na（arm）＆is.na（fow1））、= tを置き換え、
prob = c（0.05、0.05、0.9））df <-data.frame（rigalno、exc、arm、fow1、fow2）
head（df）＃> rigalno exc arm fow1 fow2＃> 1 1086 <na> conc <na> <na>＃> 2 1418 <na> seq <na> <na> 3 1502 <na> conc <na >＃> 4 1846 <na> conc <na> <na>＃> 5 1303 <na> conc <na>＃> 6 1838 <na> seq <na> <na>out <-consort_plot（data = df、order = c（trialno = "angopety"、exc = "exclued"、arm = "無作為化患者"、fow1 = "lost of follow-up"、trialno = "finish finide followup"、fow22 = "評価不可能"、trialno = "final Analysis"）、side_box = c（ "exc"、 "fow1"、 "fow2"）、arsocation = "arm"、labels = c（ "1" = "スクリーニング"、 " 2 "=" randomization "、" 5 "=" final "）、cex = 0.6） プロット（out）
gridプロットはそれほど理想的ではないため、ノードのクッディネートの計算は簡単ではなく、最善を尽くしました。改善したい場合は、お気軽にお気軽にお問い合わせください。または、 plotでgrViz = TRUEを設定することにより、 Graphvizプロットを作成できます。これにより、 DiagrammeRを使用してプロットを印刷します。プロットは、光沢のあるまたはHTML出力に最適です。
プロット（out、grviz = true）
または、このGraphvizプロットをpngまたはpdfに保存します
plot（g、grviz = true）|> diagrammersvg :: export_svg（）|>
chartoraw（）|> rsvg :: rsvg_pdf（ "svg_graph.pdf"） 
