r - 2 Knitr/R Markdown/Rstudio 问题 : Highcharts and Morris. js

Question

我目前正在尝试使用我自己的数据复制几种不同类型的 rCharts。第一个是具有以下代码的 HighCharts 图:

````{r}
setwd("C:/Users/ypetscher/Dropbox/R fun")  
blah<-read.csv("g8a.csv")`                                                                 
require(slidify)                                                                          
require(rCharts)                                                                      
require(rHighcharts)
```

```{r}
x<-data.frame(blah,stringsAsFactors=TRUE)                                             
colnames(x)<-substr(colnames(x),2,5)   
a<-rHighcharts:::Chart$new()                                                   
a$chart(type="column")                                                           
a$title(text="Percent of Students on Grade Level on G8 FCAT for Reading (1), Math (2),        Writing (3), and Science (4)")                                             
a$xAxis(categories=rownames(x))                                              
a$yAxis(title=list(text="Percent Proficient"))                                               
a$data(x)
```                                                                                          

当它作为一个块运行时，图形会很好地生成，但是当我在 Markdown 中使用 Knit HTML 时，它会在预览阶段停留一段时间，当我终止它时，它会给出“状态 15”消息，我'我不清楚这意味着什么以及应该如何解决。

我正在尝试的第二个图是使用 knitr 在 Markdown 中的 Morris.js 图。我把我的 R 代码放入 R Markdown 中，它看起来像:

```{r} 
library(slidify)                                                                           
library(knitr)                                                                          
library(rCharts)                                                                      
library(RColorBrewer)                                                                    
library(reshape2)                                                      
setwd("C:/Users/ypetscher/Dropbox/R fun") 
blah<-read.csv("g8.csv") 
blah 
``` 

```{r}  
m2<-mPlot(x="year",y=colnames(blah)[-1],data=blah, type="Bar")
m2$set(barColors=brewer.pal(4,"Spectral"))  
m2$set(xlab="Year")                                                                   
m2$set(postUnits="%")                                                               
m2$set(hideHover="auto")                                                                           
m2
```

当我运行这些块时，它会按照我预期的方式生成一个漂亮的图表，其中的 html 文件为 (file:///C:/Users/ypetscher/AppData/Local/Temp/RtmpW4q3ka/filed284f137718.html)；但是，当我单击 Knit HTML 时，我获得了一个包含代码但不生成图形的文件。此外，当谷歌浏览器出现时，我收到一个错误:

"No webpage was found for the web address: file:///C:/Users/YPETSC~1/AppData/Local/Temp/Rtmpk1Pfbp/filee0c383670e0.html Error 6 (net::ERR_FILE_NOT_FOUND): The file or directory could not be found."

对诊断这些问题的任何帮助将不胜感激。非常感谢!

Answer 1

注意:这与我在 knitr google group 中发布的解决方案相同。

要让 rCharts 与 knit2html 一起工作，您需要使用带有参数 include_assets = TRUE 的打印方法。这是因为 knitr 不会自动添加 rCharts 图所需的 js 和 css Assets 。这是一个最小的工作示例。

## MorrisJS with Knit2HTML

```{r results = 'asis', comment = NA}
require(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$print('chart2', include_assets = TRUE)
```

请注意，您需要使用 m1$print('chart2', include_assets = TRUE, cdn = TRUE)如果您打算在 RPubs 上发布您的图表，否则 JS 和 CSS Assets 将从您的本地库中提供。

希望这可以帮助。