从r中的数据帧创建图形

我有一个代表grn网络的数据框。如果第3列（链接）设置为1，则第1列中的基因连接到第2列中的基因。我运行了这段代码，但生成的图形不正确

  x <- data.frame("g1" = c(1,1,1,2,2,3), "g2" = c(2,3,4,3,4,4), "link" = c(1,0,1,1,0,0))
  g = graph_from_data_frame(x,x$link==1)
 tkplot(g)

---

x必须以这种方式定义数据帧

g=data.frame("g1"=c(1,1,2), "g2" = c(2,4,3))

g=graph.data.frame(g)

您必须以这种方式定义数据帧

g=data.frame("g1"=c(1,1,2), "g2" = c(2,4,3))

g=graph.data.frame(g)