Как построить ориентированный ациклический решетчатый граф в R

Question

мне нужно построить ориентированные ациклические решетки график размера MXN, аналогичен, как и в этой картине, но без ребер на контуре и без вершин по углам:

Это можно сделать с graph.lattice функция? Если да, как установить такие метки меток (т. Е. (X, y), а не только целое число) и удалить упомянутые ребра и вершины? Кроме того, возможно ли построить график в таком положении (как на картинке) без использования функции tkplot и затем его вращать?

Answer 1

Я не совсем уверен, что вы имеете в виду под «без ребер на контуре», но вот некоторые моменты:

• Read ?igraph.plotting для полного списка планировавших параметров.
• Если вы не хотите кадр на вершинах, установите vertex.frame.color на то же значение, что и vertex.color.
• Использование layout.grid, см. ?layout.grid.
• Используйте vertex.label для установки этикеток.
• Если вы хотите опустить некоторые ребра, удалите их или установите их ширину в ноль или их цвет на цвет фона.
• Если вы хотите опустить некоторые вершины, то приложите координаты, вычисленные layout.grid как атрибуты вершины, а затем удалите вершины из графика.

Что-то подобное может работать:

g <- graph.lattice(c(5,5)) 
lay <- layout.grid(g) 
V(g)$x <- lay[,1] 
V(g)$y <- lay[,2] 
V(g)$color <- V(g)$frame.color <- "darkolivegreen" 
V(g)$label.color <- "lightgrey" 
V(g)$label <- paste(V(g)$x+1, V(g)$y+1, sep=",") 

Чтобы удалить ребра, вы можете выбрать их на основе координат вершин:

torem <- c(E(g)[ V(g)[x==0] %--% V(g)[x==0] ], 
      E(g)[ V(g)[y==0] %--% V(g)[y==0] ], 
      E(g)[ V(g)[x==4] %--% V(g)[x==4] ], 
      E(g)[ V(g)[y==4] %--% V(g)[y==4] ]) 
g2 <- delete.edges(g, torem) 

, а затем удалить вершины и участок :

g3 <- delete.vertices(g2, V(g2)[ x %in% c(0,4) & y %in% c(0,4) ]) 
plot(g3, layout=cbind(V(g3)$x, V(g3)$y))