R数据分析：结合APA格式作图大法讲讲ggplot2和ggsci，请收藏

之前给大家写过一篇plot的基础操作，相信同学们应该没有看过瘾。不过主流的用的多的还是ggplot2，所以今天打算结合一个形成APA样板格式图片的实例写写ggplot2的操作和图的配色。

关于APA格式

大家可以去到美国心理学会的官网，就可以看到APA格式的详细介绍了：

包括论文模板、引注规则等等，内容可以说很丰富了，对于社科类学生，不会写论文的，这个网站就是金标准啦，强烈推荐下。

不过我们今天关注的是里面的figure的标准，点开主页的Tables and Figures我们进入到下一个界面：

里面有表格模板，和figure模板，像表格模板里面，回归分析如何做表，因子分析如何做表等等的，人家都给了标准模板，这些不就是好多同学想要的吗，好多同学跑来咨询的吗？一股脑人家美国心理学会全给大家整理好了，推荐一波。具体到figure模板，里面有这么多：

像样本纳入排除的流程图怎么做，路径分析的图怎么做，质性研究，混合设计研究的图等等应有尽有无所不有，只能说---真好！

那么本文希望将下面的这一幅APA官网上的示例柱状图用ggplot2做出来，并在做过程中结合着给大家写写ggplot2的常见操作（ggplot2的作图原理我看网上已经有很多了，大家可以自行去搜索学习，本文略过）

实例操练

我的画图示例数据如下：

可以看到数据中有我们画柱状图需要的score和误差线需要的upper和lower的值，和分组变量reward。

第一步我们将映射关系处理好：

viz_data_one %>% 
  ggplot(aes(x = age_group,
             y = framing_score,
             fill = reward,
             ymin = lower,
             ymax = upper))

形成下图，在上面的代码中我只是告诉ggplot，我的xy轴分别是那两个变量，用什么变量去映射到填充色，同时上下限分别是多少，仅此而已，我并没有告诉它应该用什么geom去代表我的数据，所以ggplot不知道，它也不会给你展示任何的geometry，所以代码运行后输出除了映射的xy轴，就没了