{"id":3218,"date":"2020-12-24T19:00:00","date_gmt":"2020-12-24T11:00:00","guid":{"rendered":"http:\/\/dh.oncolab.cn\/index.php\/2020\/12\/24\/r-forestplot%e5%8c%85-hr%e7%bb%93%e6%9e%9c%e7%bb%98%e5%88%b6%e6%a3%ae%e6%9e%97%e5%9b%be\/"},"modified":"2020-12-24T19:00:00","modified_gmt":"2020-12-24T11:00:00","slug":"r-forestplot%e5%8c%85-hr%e7%bb%93%e6%9e%9c%e7%bb%98%e5%88%b6%e6%a3%ae%e6%9e%97%e5%9b%be","status":"publish","type":"post","link":"http:\/\/dh.oncolab.cn\/index.php\/2020\/12\/24\/r-forestplot%e5%8c%85-hr%e7%bb%93%e6%9e%9c%e7%bb%98%e5%88%b6%e6%a3%ae%e6%9e%97%e5%9b%be\/","title":{"rendered":"R-forestplot\u5305| HR\u7ed3\u679c\u7ed8\u5236\u68ee\u6797\u56fe"},"content":{"rendered":"
\n

<\/section>\n

\u4e0a\u4e00\u7bc7\u7b80\u5355\u7684\u4ecb\u7ecd\u4e86COX\u751f\u5b58\u5206\u6790\u7ed3\u679c\u7ed8\u5236\u68ee\u6797\u56feForest plot\uff08\u68ee\u6797\u56fe\uff09 | Cox\u751f\u5b58\u5206\u6790\u53ef\u89c6\u5316<\/a>\uff0c\u672c\u6587\u5c06\u4ecb\u7ecd\u6839\u636e\u6570\u636e\u96c6\u5408\u7684\u57fa\u672c\u4fe1\u606f\u4ee5\u53ca\u70b9\u4f30\u8ba1\u503c\uff08\u7f6e\u4fe1\u533a\u95f4\u533a\u95f4\uff09\u7684\u7ed3\u679c\u76f4\u63a5\u7ed8\u5236\u68ee\u6797\u56fe\u7684\u65b9\u6cd5\u3002<\/span>
<\/p>\n

\u5176\u4e2d\u70b9\u4f30\u8ba1\u503c\uff08\u7f6e\u4fe1\u533a\u95f4\uff09\u7684\u7ed3\u679c\u53ef\u4ee5\u662fCOX\u4e5f\u53ef\u4ee5\u662flogistic\u56de\u5f52\u7b49\u5176\u4ed6\u65b9\u6cd5\u7684\u7ed3\u679c\uff0c\u9002\u7528\u8303\u56f4\u66f4\u5e7f\u3002<\/span><\/p>\n

<\/span><\/h2>\n
\n
\n
\n
<\/span><\/section>\n
\n

\u6570\u636e\u51c6\u5907<\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n

#\u8f7d\u5165R\u5305<\/span><\/span>
library<\/span>(forestplot<\/span>)<\/span>
#\u6570\u636e\u6765\u6e90\uff1ahttps:\/\/www.r-bloggers.com\/forest-plot-with-horizontal-bands\/<\/span><\/span>
data<\/span> <-<\/span> read.csv<\/span>(\"ForestPlotData.csv\"<\/span>, stringsAsFactors<\/span>=<\/span>FALSE<\/span>)<\/span>
#\u67e5\u770b\u6570\u636e<\/span><\/span>
head<\/span>(data<\/span>)<\/span><\/pre>\n
<\/p>\n
\n
\n
\n

<\/span><\/section>\n
\n
\u7ed8\u5236\u68ee\u6797\u56fe<\/p>\n<\/section>\n<\/section>\n<\/section>\n<\/section>\n
2.1 \u7b80\u5355\u68ee\u6797\u56fe<\/span>
<\/h4>\n
\u5bf9\u6570\u636e\u8fdb\u884c\u90e8\u5206\u4fee\u6539\uff0c\u65b9\u4fbf\u884c\u540d\u548c\u5217\u540d\u5b57\u8f93\u51fa<\/span><\/p>\n
## \u6784\u5efatabletext\uff0c\u66f4\u6539\u5217\u540d\u79f0\uff0c\u5c55\u793a\u66f4\u591a\u4fe1\u606f<\/span><\/span>
np<\/span> <-<\/span> ifelse<\/span>(!<\/span>is.na<\/span>(data<\/span>$<\/span>Count<\/span>), paste<\/span>(data<\/span>$<\/span>Count<\/span>,\"<\/span> (\"<\/span>,data<\/span>$<\/span>Percent<\/span>,\")\"<\/span>,sep<\/span>=<\/span>\"\"<\/span>), NA<\/span>)<\/span>
  <\/span>
## The rest of the columns in the table.<\/span><\/span>
tabletext<\/span> <-<\/span> cbind<\/span>(c<\/span>(\"Subgroup\"<\/span>,\"<\/span>n<\/span>\"<\/span>,data<\/span>$<\/span>Variable<\/span>),<\/span>
                    c<\/span>(\"No. of Patients (%)\"<\/span>,\"<\/span>n<\/span>\"<\/span>,np<\/span>),<\/span>
                    c<\/span>(\"4-Yr Cum. Event Rate<\/span>n<\/span> PCI\"<\/span>,\"<\/span>n<\/span>\"<\/span>,data<\/span>$<\/span>PCI.Group<\/span>),<\/span>
                    c<\/span>(\"4-Yr Cum. Event Rate<\/span>n<\/span> Medical Therapy\"<\/span>,\"<\/span>n<\/span>\"<\/span>,data<\/span>$<\/span>Medical.Therapy.Group<\/span>),<\/span>
                    c<\/span>(\"P Value\"<\/span>,\"<\/span>n<\/span>\"<\/span>,data<\/span>$<\/span>P.Value<\/span>))<\/span>

<\/pre>\n
##\u7ed8\u5236\u68ee\u6797\u56fe<\/span><\/span>
forestplot<\/span>(labeltext<\/span>=<\/span>tabletext<\/span>, graph.pos<\/span>=<\/span>3<\/span>,<\/span>
         mean<\/span>=<\/span>c<\/span>(NA<\/span>,NA<\/span>,data<\/span>$<\/span>Point.Estimate<\/span>),<\/span>
         lower<\/span>=<\/span>c<\/span>(NA<\/span>,NA<\/span>,data<\/span>$<\/span>Low<\/span>), upper<\/span>=<\/span>c<\/span>(NA<\/span>,NA<\/span>,data<\/span>$<\/span>High<\/span>),<\/span>
<\/span><\/span>  boxsize<\/span>=<\/span>0.5<\/span>)<\/span><\/pre>\n
<\/p>\n
\u5982\u4e0a\u56fe\u6240\u793a\u57fa\u672c\u4fe1\u606fOK\u4e86\uff0c\u4f46\u662f\u53ef\u4ee5\u5728\u4ee5\u4e0b\u51e0\u4e2a\u65b9\u9762\u8fdb\u884c\u4f18\u5316\uff1a<\/span>
<\/p>\n