R 我已经创建了一个箱线图，但我需要使它成为APA风格

这是我已经拥有的代码和数据：

library(tidyverse)
t.test(BMIS ~ CONDITION, var.equal =TRUE, data = BMIS_DATA)
descriptive_statistics = BMIS_DATA %>% 
                           group_by(CONDITION) %>% 
                           summarise(
                             mean = mean (BMIS), 
                             sd = sd (BMIS),  
                             n = n ()
                         )
view(descriptive_statistics)
mean_difference = descriptive_statistics [1,2] - descriptive_statistics [2,2] 

这给了我：

Two Sample t-test

data:  BMIS by CONDITION
t = 3.7455, df = 44, p-value = 0.0005201
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
  4.299781 14.317362
sample estimates:
mean in group HAPPY   mean in group SAD 
           45.88000            36.57143 

我用这个代码给我一个箱线图：

library(ggplot2)
ggplot(BMIS_DATA,aes(x=CONDITION,y=BMIS,col=CONDITION))+geom_boxplot()

但我需要APA风格的，我在网上找到了以下代码：

theme_apa(
+     legend.pos = "right",
+     legend.use.title = FALSE,
+     legend.font.size = 12,
+     x.font.size = 12,
+     y.font.size = 12,
+     facet.title.size = 12,
+     remove.y.gridlines = TRUE,
+     remove.x.gridlines = TRUE
+ )

但是出现了错误“

theme\u apa（）中的错误：找不到函数“theme\u apa”

”。

---

我怎样才能解决这个问题？或者有没有其他方法集成APA风格的使用谷歌搜索引擎，我发现

theme\u APA

函数来自一个名为

jtools

的

R

包。您安装了这个软件包吗？如果是这样，在使用

theme\u apa

功能之前，您需要确保它当前已加载到

R

会话中。例如：

library(jtools)

如果尚未安装软件包，则可以运行：

install.packages("jtools") # this should be run just once
library(jtools)

在jtools包中找到了一个

theme\u apa

。