CONSORT 2010声明 フローチャート
consort2010_flow.qmd
Figure 1 このフローチャートは，2群間並行ランダム化比較試験の結果を報告するためのフローチャートです。このフローチャートは，CONSORT 2010声明に基づいて作成されています。
Code
# consort2010_flow.qmd
library(consort)
library(ggplot2)
# 組入れ enrolment
txt1 <- "Assesssed for eligibility \n(n=...)"
# 除外 exclusion
txt1_side <- "Excluded (n =...):
Did not meet inclusion\n criteria(n =...)
Declined to participate\n (n =...)
Other reason(n =...)"
# 最初のボックスへtxt1を記入
g <- add_box(txt = txt1)
# 除外項目をボックスへ追記 tex1_sideをtxtとして追記
g <- add_side_box(g, txt = txt1_side)
# ランダム化 randomizationを実施
g <- add_box(g, txt = "Randomly assigned\n (n=...)")
# 介入への割振り allocation (give reasonsに割振れた介入を受け入れられなかった理由記載)
g <- add_split(g, txt = c("Allocated to intervention(n =...)\nReceived allocated intervention(n =...)
Did not receive allocated intervention\n(give reasons)(n =...)",
"Allocated to intervention(n =...)\nReceived allocated intervention(n =...)
Did not receive allocated intervention\n(give reasons)(n =...)"))
# 介入のXXXXXX Care providers (give reasons XXXXX 理由記載)
g <- add_box(g, txt = c("Care providers(n=...),teams(n =...),and\ncenters(n =...) performing the intervention\nNumber of patients treated by each care\n provider, team, and center(median = ...
[IQR, min, max])",
"Care providers(n=...),teams(n =...),and\ncenters(n =...) performing the intervention\nNumber of patients treated by each care\n provider, team, and center(median = ...
[IQR, min, max])"))
# 追跡 follow-up
g <- add_box(g, txt = c("Lost to follow-up(give reasons)(n=...)\nDiscontinued intervention(give reasons)\n(n =...)",
"Lost to follow-up(give reasons)(n=...)\nDiscontinued intervention(give reasons)\n(n =...)"))
# 解析 analysis
g <- add_box(g, txt = c("Analysis (n = ...)\nExcluded from analysis(give reasons)(n =...)",
"Analysis (n = ...)\nExcluded from analysis(give reasons)(n =...)"))
# 事象 events
g <- add_label_box(g, txt = c("1" = "Enrollment", "3" = "Allocation:\nPatients", "4" = "Allocation:\nCare Providers",
"5" = "Follow-up:\nPatients", "6" = "Analysis:\nPatients"))
plot(g)