igraph中的固定节点

我有一个有向图，其中有一个开始节点和一个结束节点，它们被定义为没有节点离开结束，也没有节点进入开始。在我的图中，我想修复图顶部的节点开始和底部的节点结束，中间节点位于两者之间。我怎样才能做到这一点？

>最终数据图
（转换）（开始）α-β-δεetaγiota kappa lambda miθ
（转换）0.00000000 0.00000000 0.00000000 0.00000000 E+0.000000000 0.00000000 0.000000000 0.000000000 0.000000000 0.00000000 0.00000000 E+0.00000000
（开始）0.00000000 0.03771482 0.14413063 8.571551e-05 0.006128659 0.18025972 0.013071615 0.47426392 0.002914327 0.03891484.285776e-05 0.10118716
阿尔法0.18078800 0.58092440 0.03215991 1.049263e-04 0.017732543 0.03667174 0.002675620 0.06395257 0.005666020 0.03242222 0.000000 E+00 0.03840302
贝塔系数0.09504413 0.08766124 0.35022064 8.486083e-05 0.009164969 0.24753904 0.004327902 0.12075696 0.004752206 0.02274700.000000e+00 0.04760692
delta 0.53333 0.00000000 0.00000000 0.00000000 E+00 0.0666667 0.00000000 0.000000000 0.266667 0.0666667 0.0666667 0.00000000 0.00000000 E+00 0.06666667
ε0.38628763 0.13991081 0.04347826 0.000000 E+00 0.105351171 0.08193980.005574136 0.10200669 0.007246377 0.05128205 0.000000 E+00 0.05351171
eta 0.42928641 0 0.11002583 0.09969325 0.000000 E+00 0.023167582 0.19058767 0.002421698 0.07402325 0.008072328 0.01840491 0.000000 E+00 0.03535680
伽马0.28192371 0 0.14427861 0.05804312 0.000000 E+00 0.021558872 0.08291874 0.066334992 0.15754561 0.018242123 0.05306799 0.000000 E+00 0.09950249
物联网0.23902022 0 0.06370199 0.04091585 1.102111e-04 0.009202623 0.03240205 0.001790930 0.53868408 0.004573759 0.02669863 5.510553e-05 0.03160302
卡帕系数0.43064985 0.06886518 0.03685742 9.699321e-04 0.018428710 0.06498545 0.002909796 0.09602328 0.128031038 0.05431620.000000e+00 0.08244423
λ0.34914361 0.08695652 0.02561850 5.855658e-04 0.0203448412 0.02547211 0.00248655 0.07539160 0.034401991 0.31620553 0.000000e+00 0.04977309
mi 0.00000000 0.25000000 0.00000000 0.00000000 E+00 0.000000000 0.000000000 0.50000000 0.000000000 0.00000000 2.500000e-01 0.00000000
θ0.13940821 0.17562196 0.07949360 1.472104e-04 0.02532083 0.07198587 0.004269101 0.13513911 0.019431768 0.20491683 0.000000e+00 0.12939791
泽塔0.09929633 0.15871775 0.07427678 0.000000e+00 0.039874902 0.07974980 0.001563722 0.23612197 0.007036747 0.08444097 0.000000e+00 0.07271306
泽塔
（换算）0.000000000
（开始）0.001285733
阿尔法0.008499029
β0.010098439
增量0.000000000
ε0.023411371
预计到达时间0.008960284
伽马0.016583748
物联网0.011241528
kappa 0.015518914
λ0.01361445
mi 0.000000000
θ0.014868247
泽塔0.146207975
ig我假设您想要绘制图形，开始节点在顶部，结束节点在底部。如果是，您可以使用
layout.reingold.tilford
例如：

library(igraph)

# example graph
g <- graph.empty(directed = T)
g <- g + vertices(c('D','A','E','F','C','B'))
g <- g + edge('A','B')
g <- g + edge('A','C')
g <- g + edge('B','E')
g <- g + edge('B','D')
g <- g + edge('C','D')
g <- g + edge('D','F')
g <- g + edge('E','F')

# create the layout specifying the root node (i.e. start)
ly <- layout.reingold.tilford(g, root=which(V(g)$name=='A'),flip.y=T)
# let's plot
plot.igraph(g,layout=ly)

库（igraph）
#示例图
g我假设您想要绘制图形，开始节点在顶部，结束节点在底部。如果是，您可以使用
layout.reingold.tilford
例如：

library(igraph)

# example graph
g <- graph.empty(directed = T)
g <- g + vertices(c('D','A','E','F','C','B'))
g <- g + edge('A','B')
g <- g + edge('A','C')
g <- g + edge('B','E')
g <- g + edge('B','D')
g <- g + edge('C','D')
g <- g + edge('D','F')
g <- g + edge('E','F')

# create the layout specifying the root node (i.e. start)
ly <- layout.reingold.tilford(g, root=which(V(g)$name=='A'),flip.y=T)
# let's plot
plot.igraph(g,layout=ly)

库（igraph）
#示例图
g我假设您想要绘制图形，开始节点在顶部，结束节点在底部。如果是，您可以使用
layout.reingold.tilford
例如：

library(igraph)

# example graph
g <- graph.empty(directed = T)
g <- g + vertices(c('D','A','E','F','C','B'))
g <- g + edge('A','B')
g <- g + edge('A','C')
g <- g + edge('B','E')
g <- g + edge('B','D')
g <- g + edge('C','D')
g <- g + edge('D','F')
g <- g + edge('E','F')

# create the layout specifying the root node (i.e. start)
ly <- layout.reingold.tilford(g, root=which(V(g)$name=='A'),flip.y=T)
# let's plot
plot.igraph(g,layout=ly)

库（igraph）
#示例图
g我假设您想要绘制图形，开始节点在顶部，结束节点在底部。如果是，您可以使用
layout.reingold.tilford
例如：

library(igraph)

# example graph
g <- graph.empty(directed = T)
g <- g + vertices(c('D','A','E','F','C','B'))
g <- g + edge('A','B')
g <- g + edge('A','C')
g <- g + edge('B','E')
g <- g + edge('B','D')
g <- g + edge('C','D')
g <- g + edge('D','F')
g <- g + edge('E','F')

# create the layout specifying the root node (i.e. start)
ly <- layout.reingold.tilford(g, root=which(V(g)$name=='A'),flip.y=T)
# let's plot
plot.igraph(g,layout=ly)

库（igraph）
#示例图
谢谢你的完美回复。使用您的代码片段layout.reingold.tilford（g，root=which（V（g）$name='A'），flip.y=T），我能够创建我在问题中添加的绘图。然而，如果我想提高跨越alpha-betaε等的箭头的可见性，我该如何实现呢？如果能帮上点忙，我将不胜感激。。。没有一个例子真的很难。。。你能用
dput（这里是你的图变量）的结果更新你的帖子吗？
这样我就可以重现你的案例了？；-）我已经添加了邻接矩阵的数据和我正在使用的图形的代码，谢谢你的完美回复。使用您的代码片段layout.reingold.tilford（g，root=which（V（g）$name='A'），flip.y=T），我能够创建我在问题中添加的绘图。然而，如果我想提高跨越alpha-betaε等的箭头的可见性，我该如何实现呢？如果能帮上点忙，我将不胜感激。。。没有一个例子真的很难。。。你能用
dput（这里是你的图变量）的结果更新你的帖子吗？
这样我就可以重现你的案例了？；-）我已经添加了邻接矩阵的数据和我正在使用的图形的代码，谢谢你的完美回复。使用您的代码片段layout.reingold.tilford（g，root=which（V（g）$name='A'），flip.y=T），我能够创建我在问题中添加的绘图。然而，如果我想提高跨越alpha-betaε等的箭头的可见性，我该如何实现呢？如果能帮上点忙，我将不胜感激。。。没有一个例子真的很难。。。你能用
dput（这里是你的图变量）的结果更新你的帖子吗？
这样我就可以重现你的案例了？；-）我已经添加了邻接矩阵的数据和我正在使用的图形的代码，谢谢你的完美回复。使用您的代码片段layout.reingold.tilford（g，root=which（V（g）$name='A'），flip.y=T），我能够创建我在问题中添加的绘图。但是如果我想