consort

istri

Tujuan consort adalah untuk memudahkan untuk membuat diagram CONSORT untuk pelaporan transparan alokasi peserta dalam uji klinis terkontrol secara acak. Ini dilakukan dengan membuat data disposisi standar, dan menggunakan data ini sebagai sumber untuk pembuatan diagram permohonan standar. Upaya manusia dengan memasok label teks pada node juga dapat dicapai.

Instalasi

Anda dapat menginstal versi CONSORT yang dirilis dari Cran dengan:

 install.packages ("Consort")

Dan versi pengembangan dari GitHub dengan:

 # install.packages ("devtools") devtools :: install_github ("adayim/consort")

Contoh

Ini adalah contoh dasar yang menunjukkan kepada Anda cara menyelesaikan diagram CREATE CONSORT dengan data disposisi subjek yang diberikan:

 PERPUSTAKAAN (CONSORT) ## Kode Contoh Dasar

 set.seed (1001) n <- 300trialno <- sampel (c (1000: 2000), n) exc <- rep (na, n) exc [sampel (1: n, 15)] <- sampel (c (" Sampel tidak dikumpulkan "," MRI tidak dikumpulkan "," lainnya "), 15, ganti = t, prob = c (0,4, 0,4, 0,2)) lengan <- rep (na, n) lengan [is.na (exc) ] <- sampel (c ("conc", "seq"), sum (is.na (exc)), ganti = t) fow1 <- rep (na, n) fow1 [! is.na (lengan)] < - Sampel (c ("menarik", "dihentikan", "kematian", "lainnya", na),
                            sum (! is.na (lengan)), ganti = t, prob = c (0,05, 0,05, 0,05, 0,05, 0,8)) fow2 <- rep (na, n) fow2 [! is.na (lengan) & is .na (fow1)] <- sampel (c ("deviasi protokol", "hasil hilang", na),
                                          sum (! is.na (lengan) & is.na (fow1)), ganti = t,
                                           prob = c (0,05, 0,05, 0,9)) df <- data.frame (TrialNo, exc, arm, fow1, fow2)
head (df)#> TrialTno exc arm fow1 fow2#> 1 1086 <a na> conc <a na> <a>#> 2 1418 <a> seq <a na> <a>#> 3 1502 <a na> conc kematian <na na >#> 4 1846 <a na> conc <a na> <a>#> 5 1303 <a na> conc kematian <a na>#> 6 1838 <a> seq <a na> <a>

 out <- consort_plot (data = df, order = c (uji coba = "populasi", exc = "dikecualikan", lengan = "pasien acak", fow1 = "hilang dari tindak lanjut", uji coba = "tindak lanjut akhir", fow2 = "Tidak dapat dievaluasi", uji coba = "analisis akhir"), side_box = c ("exc", "fow1", "fow2"), alokasi = "lengan", label = c ("1" = "skrining", " 2 "=" pengacakan "," 5 "=" final "), cex = 0,6)

plot (keluar) 

Karena plot grid tidak terlalu ideal, perhitungan koodinat untuk node bukanlah pekerjaan yang mudah dan mencoba yang terbaik. Jangan ragu untuk PR jika Anda ingin meningkatkan. Atau Anda dapat menghasilkan plot Graphviz dengan mengatur grViz = TRUE in plot . Ini akan menggunakan DiagrammeR untuk mencetak plot. Plotnya sangat ideal untuk output mengkilap atau HTML.

 plot (keluar, grviz = true) 

Atau simpan plot Graphviz ini ke png atau pdf

 plot (g, grviz = true) |> diagrammersvg :: export_svg () |>
     chartoraw () |> rsvg :: rsvg_pdf ("svg_graph.pdf")