consort

كونسورت

الهدف من consort هو تسهيل إنشاء مخططات CONSORT للإبلاغ الشفاف لتخصيص المشاركين في التجارب السريرية العشوائية التي يتم التحكم فيها. يتم ذلك عن طريق إنشاء بيانات تصرف موحدة ، واستخدام هذه البيانات كمصدر لإنشاء مخطط Consort قياسي. يمكن أيضًا تحقيق الجهد البشري من خلال توفير ملصقات نصية على العقدة.

تثبيت

يمكنك تثبيت الإصدار الذي تم إصداره من Consort من Cran مع:

 install.packages ("Consort")

ونسخة التطوير من جيثب مع:

 # install.packages ("DevTools") DevTools :: install_github ("Adayim/Consort")

مثال

هذا مثال أساسي يوضح لك كيفية حل مخطط إنشاء CRESSORT مع بيانات تصرف موضوع معينة:

 المكتبة (CONSORT) ## رمز المثال الأساسي

 set.seed (1001) n <- 300trialno <- عينة (c (1000: 2000) ، n) exc <- rep (na ، n) exc [sample (1: n ، 15)] <- عينة (c (" عينة لم يتم جمعها "،" التصوير بالرنين المغناطيسي لم يتم جمعه "،" آخر ") ، 15 ، استبدال = t ، prob = c (0.4 ، 0.4 ، 0.2)) الذراع <- rep (na ، n) الذراع [is.na (exc) ] <- عينة (c ("conc" ، "seq") ، sum (is.na (exc)) ، استبدال = t) fow1 <- rep (na ، n) fow1 [! iS.na (arm)] < - عينة (C ("انسحاب" ، "توقف" ، "الموت" ، "آخر" ، نا) ،
                            sum (! is.na (ARM)) ، استبدال = t ، prob = c (0.05 ، 0.05 ، 0.05 ، 0.05 ، 0.8)) FOW2 <- rep (na ، n) fow2 [! .na (FOW1)] <- عينة (C ("انحراف البروتوكول" ، "النتيجة المفقودة" ، NA) ،
                                          SUM (! IS.NA (ARM) & IS.NA (FOW1)) ، استبدال = T ،
                                           prob = c (0.05 ، 0.05 ، 0.9)) df <- data.frame (TrialNo ، Exc ، ARM ، FOW1 ، FOW2)
Head (df)#> Trialno Exc Arm Fow2#> 1 1086 <a> conc <a> <a>#> 2 1418 <a> seq <a> <a>#> 3 1502 <a> conc death <na >#> 4 1846 <a> conc <a> <a>#> 5 1303 <a> conc death <a>#> 6 1838 <a> seq <an> <a> <a>

 OUT <- CONSORT_PLOT (data = df ، order = c (TRITENO = "السكان" ، exc = "assected" ، ARM = "Ramilycy Norper" ، FOW1 = "Lost of Explyp" ، TrialNo = "HIST EPPEMUP" ، FOW2 = "غير تقييم" ، trialno = "التحليل النهائي") ، side_box = c ("Exc" ، "FOW1" ، "FOW2") ، تخصيص = "ARM" ، العلامات = C ("1" = "Descening" ، "،" ، " 2 "=" التوزيع العشوائي "،" 5 "=" النهائي ") ، CEX = 0.6)

مؤامرة (خارج) 

نظرًا لأن تخطيط grid ليس مثاليًا للغاية ، فإن حساب coodinates للعقد ليس من السهل وظيفة وحاولت قصارى جهدي. لا تتردد في العلاقات العامة إذا كنت تريد التحسن. أو يمكنك إنتاج مؤامرة Graphviz عن طريق تعيين grViz = TRUE في plot . سيستخدم هذا DiagrammeR لطباعة المؤامرة. المؤامرة مثالية للإخراج اللامع أو HTML.

 مؤامرة (خارج ، grviz = صواب) 

أو احفظ مؤامرة Graphviz هذه إلى png أو pdf

 مؤامرة (g ، grviz = true) |> diagrammersvg :: export_svg () |>
     chartoraw () |> rsvg :: rsvg_pdf ("svg_graph.pdf")