如何编写数据帧，图形为pajek格式？

Question

我想保存igraph graph或dataframe到pajek格式。 所以我使用igraph包来创建graph object，然后使用此write.graph(graph_activitynetwork,"layer_share","pajek")在igraph graph中写pajek。但我想知道的是创建它以自定义格式：像这样：

*Vertices 4
1 "Node 1"
2 "Node 2"
3 "Node 3"
4 "Node 4"
*Multiplex
# layer node layer node [weight]
1 1 1 2 2
1 1 2 2 1
1 2 1 1 1

现在我可以使用这种格式：

*Vertices 4
1 "1"
2 "2"
3 "3"
4 "4"
*Edges
# node node weight
1 2 l 
1 3 l 
1 4 l 

Ps：我自己的数据采用csv和Excel格式。

node1 node2 weight layer

图表摘要：

IGRAPH UNW-  -- 
+ attr:  id (v/c),  weight (e/c), layer1 (e/c),layer2 (e/c)