在自定义div之间呈现R表示中的R代码时出错

当我将R代码放入R演示文稿中的自定义div中时，我遇到了一个问题，即无法呈现R代码。所以我设置了一个新的div类，它将数据分成两列，但是这些div中的R代码返回标记文本

<div class="two-col">
```{r, echo=FALSE}
library(ggplot2)
library(gridExtra)    

# Read data
annotation_data = read.csv("Data/chr7_15_qtl_genes.csv")

annotation_summary = read.table("Data/chr7_15_qtl_genes_summary.txt", sep = "\t", header = TRUE)

#Move factors of evidence around for graphing
annotation_data$Evidence = factor(annotation_data$Evidence, levels(annotation_data$Evidence)[c(1,2,5,3,4)])

#Counts of predicted functions from Provean
ggplot(annotation_data, aes(Evidence, group=1)) + geom_bar(stat="count", aes(fill=Evidence)) + labs(y="Count", title="Count of predicted Functions") 
grid.table((annotation_summary[1:20,1:2]))
```
</div>

```{r，echo=FALSE}
图书馆（GG2）
图书馆（gridExtra）
#读取数据
注释\u data=read.csv（“data/chr7\u 15\u qtl\u genes.csv”）
注释_summary=read.table（“Data/chr7_15_qtl_genes_summary.txt”，sep=“\t”，header=TRUE）
#移动证据因子进行绘图
注释数据$证据=系数（注释数据$证据，等级（注释数据$证据）[c（1,2,5,3,4）]）
#Provean中预测函数的计数
ggplot（注释数据，aes（证据，组=1））+几何图形条（stat=“count”，aes（fill=证据））+实验室（y=“count”，title=“预测函数计数”）
表格（（注释汇总[1:20,1:2]））
```

---

我想知道是否有人曾经遇到过这种情况，并且对如何解决这个问题有任何想法。谢谢

只是一个解决办法，但我隐藏了输出，直接为创建的图形创建了img标记。希望这会对一些人有所帮助

<div class="two-col">
```{r, echo=FALSE, include=FALSE}
library(ggplot2)
library(gridExtra)    

# Read data
annotation_data = read.csv("Data/chr7_15_qtl_genes.csv")

#Move factors of evidence around for graphing
annotation_data$Evidence = factor(annotation_data$Evidence, levels(annotation_data$Evidence)[c(1,2,5,3,4)])

#Counts of predicted functions from Provean
ggplot(annotation_data, aes(Evidence, group=1)) + geom_bar(stat="count", aes(fill=Evidence)) + labs(y="Count", title="Count of predicted Functions") 
```
  <img src="eqtl_presentation-figure/unnamed-chunk-1-1.png">
```{r, echo=FALSE, include=FALSE}
#Show table of annotation summary
annotation_summary = read.table("Data/chr7_15_qtl_genes_summary.txt", sep = "\t", header = TRUE)
grid.table((annotation_summary[1:20,1:2]))
```
  <img src="eqtl_presentation-figure/unnamed-chunk-2-1.png">
</div>

```{r，echo=FALSE，include=FALSE}
图书馆（GG2）
图书馆（gridExtra）
#读取数据
注释\u data=read.csv（“data/chr7\u 15\u qtl\u genes.csv”）
#移动证据因子进行绘图
注释数据$证据=系数（注释数据$证据，等级（注释数据$证据）[c（1,2,5,3,4）]）
#Provean中预测函数的计数
ggplot（注释数据，aes（证据，组=1））+几何图形条（stat=“count”，aes（fill=证据））+实验室（y=“count”，title=“预测函数计数”）
```
```{r，echo=FALSE，include=FALSE}
#显示注释摘要表
注释_summary=read.table（“Data/chr7_15_qtl_genes_summary.txt”，sep=“\t”，header=TRUE）
表格（（注释汇总[1:20,1:2]））
```