Рисование вручную по фигуре

Вот еще один подход, основанный на igraph. Он вдохновлен этим примером кода igraph.

Я предполагаю, что использование igraph вместо DiagrammeR является вариантом - возможно, это не так...

Мы оставляем позиционирование вершин для стандартного алгоритма компоновки и запрашиваем у него результирующие позиции вершин. Затем эти позиции используются для рисования пунктирного прямоугольника вокруг произвольного набора «выбранных» вершин. Взаимодействие с пользователем не требуется.

Начнем с топологии графа.

library(igraph)

set.seed(42)

df <- data.frame(from = c('A', 'B', 'I', 'D', 'D', 'E', 'E', 'F', 'F', 'G'),
                 to = c('B', 'C', 'I', 'E', 'F', 'G', 'F', 'H', 'G', 'H'))

g <- graph.data.frame(df, directed = TRUE)

Размер вершин и стрелок на графике можно задавать свободно, по вкусу.

vertexsize <- 50
arrowsize <- 0.2

Мы просим механизм компоновки Фрухтермана-Рейнгольда вычислить координаты вершин.

coords <- layout_with_fr(g)

Затем постройте график.

plot(g,
     layout = coords,
     vertex.size = vertexsize,
     edge.arrow.size = arrowsize,
     rescale = FALSE,
     xlim = range(coords[,1]),
     ylim = range(coords[,2]))

Если нам нравится видеть, что происходит, мы можем добавить оси координат и распечатать координаты вершин:

axis(1)
axis(2)

V(g) # ordered vertex list
coords # coordinates of the vertices (in the same coordinate system as our dotted rectangle)

Теперь мы определяем ограничивающую рамку вершин, вокруг которых мы хотим создать прямоугольник.

selectedVertices = c("A", "B", "C")
vertexIndices <- sapply(selectedVertices, FUN = function(x) { return(as.numeric(V(g)[x])) } )
llx <- min(coords[vertexIndices, 1])
lly <- min(coords[vertexIndices, 2])
urx <- max(coords[vertexIndices, 1])
ury <- max(coords[vertexIndices, 2])

Почти готово. У нас уже есть координаты вершин centers в координатах [], но нам также нужен размер вершин в системе координат plot(). Из исходного кода plot.igraph видно, что параметр vertex.size для plot() делится на 200 и затем используется как радиус для рисования вершины. Мы используем значение на 50% больше в качестве поля вокруг ограничительной рамки координат вершины при рисовании пунктирного прямоугольника.

margin <- (vertexsize / 200) * 1.5
rect(llx - margin, lly - margin, urx + margin, ury + margin, lty = 'dotted')

Вот такой результат мы получаем:

Вы можете использовать решение @StevenBeaupre для виджета, но есть несколько пакетов для построения графиков сетей с использованием графики R. Одним из них является igraph, если вы открыты для использования других решений.

Это сделает график

library('igraph')
set.seed(11)
g <- data.frame(from = c('A', 'B', 'I', 'D', 'D', 'E', 'E', 'F', 'F', 'G'),
                to = c('B', 'C', 'I', 'E', 'F', 'G', 'F', 'H', 'G', 'H'))
(gg <- graph.data.frame(g, directed = TRUE))
plot(gg, vertex.color = 'white')

И есть много способов добавить рамку в графику; вот тот, где вы можете щелкнуть график, чтобы добавить поле, не вычисляя ничего

rekt <- function(...) {
  coords <- c(unlist(locator(1)), unlist(locator(1)))
  rect(coords[1], coords[2], coords[3], coords[4], ..., xpd = NA)
}

rekt(border = 'red', lty = 'dotted', lwd = 2)

я понимаю это

Простым решением с DiagrammR было бы использовать точку, а не обернуть. В основном вы теряете возможность вручную позиционировать узлы (атрибут pos больше не работает), но вы получаете возможность использовать кластер и подграф для рисования линий вокруг наборов узлов.

library(DiagrammeR)
grViz("
      digraph boxes_and_circles {

      # a 'graph' statement
      graph [ fontsize = 10,rankdir=LR]

      # several 'node' statements
      node [shape = circle,
      fontname = Helvetica]

      # several 'edge' statements

      subgraph cluster_1 {
            style=dotted
            A->B->C
        }

      D->E D->F E->F E->G F->G G->H F->H
      I
      }

      ")