复现Nature期刊图，换数据即可用！

本次使用R语言复现一下Nature microbiology中的1张图！

R语言复现

该图为散点图+统计值+拟合曲线+置信区间的组合图，下面一步步复现它！

• 🔸geom_point + geom_smooth绘制默认图

ggplot(df, aes_string(x = xvar, y = yvar)) +
    geom_point() +
    geom_smooth(method = lm)

一眼ggplot2风格，

• 🔸散点、拟合曲线、置信区间个性化设置

ggplot(df, aes_string(x = xvar, y = yvar)) +
    geom_point(shape = 21, fill = "#5acb2f", size = 5, #点个性化
               alpha = 0.8, stroke = 0.3, color = "black") +
    geom_smooth(method = lm, size = 0.6, fill = "#4cbefa")  #拟合曲线、置信区间个性化

• 🔸主题个性化设置

自定义主题pyman_theme，启用theme_classic()，

ggplot(df, aes_string(x = xvar, y = yvar)) +
    geom_point(shape = 21, fill = "#5acb2f", size = 5, #绘制散点图
               alpha = 0.8, stroke = 0.3, color = "black") +
    geom_smooth(method = lm, size = 0.6, fill = "#4cbefa") + #绘制拟合曲线
    theme_classic() + #使用theme_classic()主题
    xlab(xlabel) + ylab(ylabel) +
    pyman_theme #+ #设置个性化主题

• 🔸添加统计指标设置

annotation_custom添加皮尔森相关系数（图中r值）和p value（图中p值），

ggplot(df, aes_string(x = xvar, y = yvar)) +
    geom_point(shape = 21, fill = "#5acb2f", size = 5, #绘制散点图
               alpha = 0.8, stroke = 0.3, color = "black") +
    geom_smooth(method = lm, size = 0.6, fill = "#4cbefa") + #绘制拟合曲线
    theme_classic() +
    xlab(xlabel) + ylab(ylabel) +
    pyman_theme + 
    annotation_custom(r_grob) + #添加相关系数
    annotation_custom(p_grob) #添加p value

本期结束！

绘图代码+测试数据+数据处理方法+依赖包安装方法，陆续更新至👉：《保姆级R可视化教程2.0》，39个章节，20w字+，数百张图，旨在引导如何系统学习R语言可视化，部分展示如下：

（加入学习，收费，备注：299）