又是代码跟练哦~
示例一:以BMI和冠心病为例
加载包
library(TwoSampleMR)
library(ggplot2)
获取暴露和结局数据
bmi_exp_dat <- extract_instruments...harmonise
dat <- harmonise_data(bmi_exp_dat, chd_out_dat)
孟德尔随机化
一旦暴露和结果数据被harmonised之后,我们就有了暴露和结果性状中每个工具...mr_meta_fixed")
系数比率法
res_single <- mr_singlesnp(dat, all_method = "mr_two_sample_ml")
mr_singlesnp()函数也使用所有可用的...xlim = c(0, 4),
ticks_at = c(0.5, 1, 2, 3),
footnote = "")
p1 ##样子还不错啊
保存图片:
require(ggplotify...)
p2 as.ggplot(p2)
class(p2)
ggsave(p2,file="forest.pdf",width = 10,height = 10)
示例三:一个暴露对应多个结局