R visLegend的缩放和节点大小与图形（visNetwork）相同

Question

我想创建一个visNetwork图例，其中节点的大小与网络图相对应。看起来每个缩放都是单独设置的，这使得节点大小无与伦比。

代码示例：

nodes <-
  data.frame(
    id = 1:5,
    size = c(10, 10, 15, 15, 30)
  )

edges <- data.frame(from = c(rep(1, 4)), to = c(2:5))

legend_nodes <-
  data.frame(
    label = c("Size 30", "Size 10"),
    color = c("gray"),
    size = c(30, 10),
    shape = c("dot"),
    font.size = 20
  )

visNetwork(nodes, edges,
           width = "400px",
           height = "400px") %>%
  visLegend(addNodes = legend_nodes,
            useGroups = FALSE)

代码结果：

此处，图形节点大于图例节点。这是一个问题，因为图例的重点是提供尺寸的精确比例。 （图越复杂，差异就越大。）

是否可以使网络图和图例的默认缩放相同（我认为这是使节点大小可比的方式）？