为什么 html 中 visnetwork 的图形布局太小

Question

当我渲染下面的 example-Rmd 时，它看起来像这样（使用 Chrome，与 Firefox 没有什么区别）：

图形太小了，如果我查看我需要的 "real" 图形，高度太小，高宽比更差。

这是一个可重现的例子：

---
title: "Untitled"
author: "author"
date: "9 Mai 2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Example

Here is a line of text...................................................................................................................................................................................................................................................................

```{r echo=FALSE}
require(visNetwork, quietly = TRUE)
# minimal example
nodes <- data.frame(id = 1:20)
edges <- data.frame(from = sample(c(1:20), 10), to = sample(c(1:20), 10))
visNetwork(nodes, edges, width = "100%", height = "100%") %>%
                               visNodes() %>%
                               visOptions(highlightNearest = TRUE) %>%
                               visInteraction(navigationButtons = TRUE, 
                                              dragNodes = FALSE,
                                              dragView = FALSE, zoomView = FALSE) %>%
                               visEdges(arrows = 'to')
```

Here is another line of text....................................................................................................................................................................................................................................................................

Answer 1

我希望使用一些块选项来修复它，例如 out.height 或 fig.height 但由于某些原因它们没有。

但是您可以为小部件本身设置一个固定高度，只需将一个数字传递给 height 参数，该参数将被解释为像素：

```{r echo=FALSE}
require(visNetwork, quietly = TRUE)
# minimal example
nodes <- data.frame(id = 1:20)
edges <- data.frame(from = sample(c(1:20), 10), to = sample(c(1:20), 10))
visNetwork(nodes, edges, width = "100%", height = 700) %>%
                               visNodes() %>%
                               visOptions(highlightNearest = TRUE) %>%
                               visInteraction(navigationButtons = TRUE, 
                                              dragNodes = FALSE,
                                              dragView = FALSE, zoomView = FALSE) %>%
                               visEdges(arrows = 'to')
```

为什么 html 中 visnetwork 的图形布局太小

Why is the layout of a graph from visnetwork in html too small

html

r

r-markdown

visnetwork