apa_table（）将科学数字转换为数字

Question

嗨，我正在尝试将科学值转换为数字。

我正在获取代码，并使用RMarkdown使用apa_table()将结果输出为pdf。

我尝试过options(scipen = 999)，但这没用。

这是我的代码：

pat.paid <- 
bal.df.COOP %>%
nest(-Year_Category, -Short_Rating) %>%
mutate(Quantiles = map(data, ~ quantile(.$PatDiv_Cash))) %>%
unnest(map(Quantiles, tidy)) %>%
spread(names, x) %>%
#select("Year_Category", "Short_Rating" ,`0%`,`25%`,`50%`,`75%`, `100%`) %>%
select("Year_Category", "Short_Rating" ,`25%`,`50%`,`75%`) %>%
mutate_at(vars(`25%`,`50%`,`75%`), funs(prettyNum(., big.mark = ","))) %>%
mutate_at(vars(`25%`,`50%`,`75%`), funs(prettyNum(., big.mark = ","))) %>%
rename(#Minimum = `0%`,
     #Maximum = `100%`,
     Decade = "Year_Category",
     "Short Rating" = "Short_Rating")  

然后将其传递给我的R块：

```{r 'Cash Patronage Paid Quartiles', echo=FALSE, message=FALSE, warning=FALSE, results="asis"}
options(scipen = 999)
apa_table(pat.paid,
      caption = "Co-op Cash Patronage Paid Quartiles by Decade & Condensed Rating")

这是结果表：

是否有更好的方法来制作具有更好的自定义选项的APA样式表？