校正VisNetwork的AutoResize，以便2个图形的缩放比例没有不同

Question

我有一系列生成数据和创建网络图的功能。我正在为篮球比赛建模，所以我先为主队再为客队做这件事。但是，当图形出现时，它们的缩放比例会有所不同。节点根据每个玩家得分的多少来缩放，因此一个团队得分为10的玩家最终要大于另一团队得分为25的玩家。在同一个团队中进行比较时，节点的相对缩放比例相对正确（因此，得分高于队友的球员将拥有更大的节点），当我们比较来自两个不同图表的球员时，就会出现问题。

在图片中，我们看到K. Johnson和C. Reddish应该具有大约相同大小的节点。但是，事实显然并非如此。

我正在使用RShiny网站（tinyurl.com/duke-bball-viz）上返回的图形。但是，这些图形在RStudio中的缩放比例也不同，因此我认为RShiny并不是问题。

我尝试调整visNetwork图的参数，但没有成功。

我用来制作图形的代码是： （离开图的代码完全相同）

home_vis <- visNetwork(home_nodes, home_edges, height = "600px", width = "100%") %>%
    visInteraction(keyboard = TRUE,
                   dragNodes = F, 
                   dragView = F, 
                   zoomView = F) %>%
    visEdges(arrows = list(to = list(enabled = TRUE, 
                                     scaleFactor = 0.5, type = 'arrow'))) %>%
    visPhysics(solver = "repulsion", stabilization = TRUE,  
               forceAtlas2Based = list(gravitationalConstant = -200))

我知道这是不可复制的，但是我希望通过玩RShiny网站并查看可以有人提出建议的参数。生成home_nodes和home_edges的代码长数百行，因此我认为这是发布问题的最佳方法。

是否有一些参数可以将图形的大小和缩放比例设置为相同，以便此函数的每次迭代都以相同的方式缩放？