列线图的本质
最近在群里发现有朋友发了这样一张列线图,非常新颖:
在传统列线图的底部添加一条彩色条带,展示不同的风险分层,一下子就让原本死板的列线图变得生动活泼了有木有?...1, # 坐标轴字体大小
col.grid = gray(c(0.8, 0.95))) # 竖线颜色
rect(0.26,0.20,0.5,0.26,col = "#01847F") # 添加彩色条带...我说说我的具体思路,首先用rect函数添加3个彩色条带,其用法是rect(min(x),min(y),max(x),max(y)),前四个参数确定位置。然后使用text函数在合适的位置添加文字即可。...继续改进
我又去pubmed以及google使用关键词nomogram继续搜索,果然又搜到一篇带有彩色条带的列线图,而且我感觉这个图更加好看!...1, # 坐标轴字体大小
col.grid = gray(c(0.8, 0.95))) # 竖线颜色
rect(0.29,0.245,0.5,0.26,col = "#01847F") # 添加彩色条带