Question

我正在尝试将情节结果移至R studio中的rmarkdown 以下代码失败

```{r front_stuff ,echo=FALSE,fig.height=3,fig.width=4}
library(ggplot2)
library(cowplot)
library(lubridate)
library(reshape2)
library(htmlTable)
library(data.table)
library(png)
project_folder<-"C:\\Users\\jciconsult\\SkyDrive\\trial_retail\\"
load(paste0(project_folder,"sa_prov_html.RSave"))
load(paste0(project_folder,"Ontario_plot_save.RSave"))
ls()
```
`r ggdraw(cow_plot1)`

错误讯息是

从第29-29行（test1.Rmd）退出 vapply(x, format_sci_one, character(1L), ..., USE.NAMES = FALSE)出错：值必须是长度1，但是FUN(X[[1]])结果是长度2 电话：...粘贴 - ＆gt;钩子 - ＆gt; .inline.hook - ＆gt; format_sci - ＆gt; vapply 执行暂停

如果我使用相同的代码并将其复制到一个清晰的R会话中（消除了代码块的stuf），一切正常。

我要做的是获取一个可以转换为单词的文档。我正在使用knit HTML选项，因为这需要我的htmlTable输出才能工作。我想要一些我可以剪切并粘贴到单词中以进行最终格式化的内容，

Answer 1

无法绘制绘图，因为它是内联代码。请尝试使用代码块：

```{r}
ggdraw(cow_plot1)
```

此外，使用knitr选项设置工作目录（这似乎是您想要实现的目标）的正确方法是使用knitr选项root.dir：

library(knitr)
opts_knit$set(root.dir = project_folder)
load("sa_prov_html.RSave")
load("Ontario_plot_save.RSave")

绘图代码在R Studio中不起作用，但在R中起作用

1 个答案: