tkplot in html with knitr

我试图从igraph包中包含一个tkplot包在HTML（从Rmd编织）文件中通过knitr包。我问了一个关于乳胶的非常类似的问题（这应该更难）here。 Yihui回答，但我不能转移这个钩子，并学习这种情况。如何在knitr中使用Rmd文件在HTML文档中嵌入以下tkplot？tkplot in html with knitr

```{r setup, include=FALSE} 
library(igraph) 
library(tcltk) 
``` 


```{r} 
edges <- structure(c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", 
    "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "A", "B", "C", 
    "D", "E", "F", "G", "H", "I", "J", "E", "G", "G", "F", "H", "G", 
    "D", "J", "J", "D", "B", "C", "D", "I", "I", "H", "A", "B", "G", 
    "I", "F", "D", "F", "J", "D", "B", "E", "E", "A", "E"), .Dim = c(30L, 
    2L), .Dimnames = list(NULL, c("person", "choice"))) 

g <- graph.data.frame(edges, directed=TRUE) 
tkplot(g) 
```

来源

2013-10-18 Tyler Rinker

的关键是要获得一个情节是，Web浏览器可以识别，比如PNG图像。我认为有多种方式可以到达，例如（1）不要使用'tkplot（）'（我想这不是'igraph'中唯一的绘图功能）; （2）在'knitr'中用'hook_rgl'调用'rglplot（）'？（3）将从'tkplot（）'导出的postscript图像转换为png？ ...我会把它留给其他人来破解。 –

不那么有吸引力，但下面一辉的建议：

```{r setup, include=FALSE} 
library(igraph) 
library(rgl) 

knit_hooks$set(
    webgl = hook_webgl 

) 
``` 


```{r, webgl=TRUE, fig.width=12, fig.height=12} 
edges <- structure(c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", 
    "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "A", "B", "C", 
    "D", "E", "F", "G", "H", "I", "J", "E", "G", "G", "F", "H", "G", 
    "D", "J", "J", "D", "B", "C", "D", "I", "I", "H", "A", "B", "G", 
    "I", "F", "D", "F", "J", "D", "B", "E", "E", "A", "E"), .Dim = c(30L, 
    2L), .Dimnames = list(NULL, c("person", "choice"))) 

g <- graph.data.frame(edges, directed=TRUE) 
rglplot(g) 
```

来源

2014-01-11 19:19:14

tkplot in html with knitr

回答

相关问题