4

私は現在、自分のデータを使用して、いくつかの異なるタイプの rChart を複製しようとしています。1 つ目は、次のコードを含む 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」メッセージが表示されます。それが何を意味し、どのように解決すべきかは不明です。

私が試している 2 番目のグラフは、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
```

チャンクを実行すると、(file:///C:/Users/ypetscher/AppData/Local/Temp/RtmpW4q3ka/filed284f137718.html); の html ファイルで期待どおりの素敵なグラフが生成されます。ただし、Knit HTML をクリックすると、コードを含むファイルが取得されますが、グラフは生成されません。さらに、Google Chrome が起動すると、次のエラーが表示されます。

「Web アドレスの Web ページが見つかりませんでした: file:///C:/Users/YPETSC~1/AppData/Local/Temp/Rtmpk1Pfbp/filee0c383670e0.html エラー 6 (net::ERR_FILE_NOT_FOUND): ファイルまたはディレクトリが見つかりませんでした見つけられた。"

これらの問題を診断する上で、どんな助けも大歓迎です。どうもありがとう！

4

1 に答える 1

8

注: これは、knitr google グループに投稿したソリューションと同じです。

rCharts を Knit2html で動作させるには、引数 include_assets = TRUE を指定して print メソッドを使用する必要があります。これは、knitr が rCharts プロットに必要な js および css アセットを自動的に追加しないためです。これは最小限の作業例です。

## 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 アセットはローカル ライブラリから提供されます。

お役に立てれば。

于 2013-06-18T18:26:31.530 に答える