2013-10-18 3 views
1

knitr 패키지를 통해 HTML (Rmd에서 작성) 문서 내에 igraph 패키지의 tkplot을 포함하려고 시도했습니다. 나는 라텍스에 관해 매우 비슷한 질문을했다. (더 어려워야한다) here. Yihui 대답하지만 그 갈고리를 전송할 수 없습니다이 상황에 학습. 어떻게 knitr에서 Rmd 파일을 사용하여 HTML 문서에 다음 tkplot을 삽입 할 수 있습니까?tkplot을 html로 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) 
``` 
+1

의 핵심은 웹 브라우저는 PNG 이미지로 인식 할 수있는 플롯을 얻는 것입니다. 거기에 도달하는 데는 여러 가지 방법이 있다고 생각합니다. (1)'tkplot()'을 사용하지 말라. (나는'igraph'에서 유일한 플로팅 함수가 아닌 것 같다.); (2)'rglplot()'을 knitr에있는'hook_rgl'와 연관 시키시겠습니까? (3)'tkplot()'에서 내 보낸 포스트 스크립트 이미지를 png로 변환 하시겠습니까? ... 해킹을 다른 사람들에게 맡길 것입니다. –

답변

0

Yihui의 조언 다음 덜 매력적이지만 :

```{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) 
```