发布rPresentation幻灯片时出错

已在rPubs中发布以下RPR表示代码。 某些图表显示不正确。只是想知道我遗漏了什么？这方面的指导会很有帮助。 谢谢 介绍链接：

图表
========================================================
###让我们显示一些图表。
```{r results='asis'，comment=NA}
图书馆（艺术）
图书馆（GG2）
n1为什么人们认为添加空行有助于可读性？感谢反馈。很抱歉给您带来不便。事实上，我直接从我的RPres文件asis中获取了它，以防有人想尝试该代码。为什么人们认为添加空行有助于可读性？谢谢反馈。很抱歉给您带来不便。事实上，我直接从我的RPres文件中获取了它，以防有人想尝试该代码。
 Charts

 ========================================================

 ### Lets display some charts.

  ```{r results = 'asis', comment = NA}
  library(rCharts)
  library(ggplot2)
   n1 <- nPlot(carat ~ cut , group = "color", data = diamonds[1:40,], type = "multiBarChart")
   n1
  ```

  Plot

 =============================================================

 ### Plotting Chart from economics dataset

 ```{r results = 'asis', comment = NA}

 library(rCharts)
 data(economics, package = 'ggplot2')
 econ <- transform(economics, date = as.character(date))
 m1 <- mPlot(x = 'date', y = c('psavert', 'uempmed'), type = 'Line',data = econ)
 m1$set(pointSize = 0, lineWidth = 1)
 m1
 ```

 Plot

============================================================

 ### Lets plot some Geographical Data
 ```{r gvisMergeExample, results='asis', echo=FALSE}
 library(googleVis)
 Geo <- gvisGeoChart(Exports, locationvar='Country', colorvar='Profit',
 options=list(height=300, width=350))
 Tbl <- gvisTable(Exports, options=list(height=300, width=200))
 plot(gvisMerge(Geo, Tbl, horizontal=TRUE))
 ```

 Plot

 =========================================

 ### Lets plot Fruit vs Year
 ```{r MotionChartExample, results='asis', tidy=FALSE}
 library(googleVis)
 M <- gvisMotionChart(Fruits, 'Fruit', 'Year', options=list(width=400, height=350))
plot(M)
```