diff --git a/R/plot.R b/R/plot.R
index 95fa53c49ff..4e10254f7ec 100644
--- a/R/plot.R
+++ b/R/plot.R
@@ -99,7 +99,9 @@ plot.igraph <- function(x,
   ################################################################
   ## Visual parameters
   params <- i.parse.plot.params(graph, list(...))
-  vertex.size <- 1 / 200 * params("vertex", "size")
+
+  vertex.size <- params("vertex", "size")
+  vertex.size.scaling <- params("vertex", "size.scaling")
   label.family <- params("vertex", "label.family")
   label.font <- params("vertex", "label.font")
   label.cex <- params("vertex", "label.cex")
@@ -140,6 +142,7 @@ plot.igraph <- function(x,
   ylab <- params("plot", "ylab")
 
   palette <- params("plot", "palette")
+
   if (!is.null(palette)) {
     old_palette <- palette(palette)
     on.exit(palette(old_palette), add = TRUE)
@@ -150,12 +153,13 @@ plot.igraph <- function(x,
 
   ################################################################
   ## create the plot
-  maxv <- max(vertex.size)
-  if (vc > 0 && rescale) {
-    # norm layout to (-1, 1)
+  if (rescale) {
     layout <- norm_coords(layout, -1, 1, -1, 1)
-    xlim <- c(xlim[1] - margin[2] - maxv, xlim[2] + margin[4] + maxv)
-    ylim <- c(ylim[1] - margin[1] - maxv, ylim[2] + margin[3] + maxv)
+    fact <- (1 - vertex.size.scaling)
+    maxv <- 1 / 200 * max(vertex.size)
+
+    xlim <- c(xlim[1] - margin[2] - fact * maxv, xlim[2] + margin[4] + fact * maxv)
+    ylim <- c(ylim[1] - margin[1] - fact * maxv, ylim[2] + margin[3] + fact * maxv)
   }
   if (!add) {
     plot(0, 0,
@@ -165,6 +169,49 @@ plot.igraph <- function(x,
     )
   }
 
+  ################################################################
+  ## Rescaling vertices and updating params
+  if (vertex.size.scaling) {
+    newdots <- list(...)
+
+    # vertex.size
+    vertex.size <- i.rescale.vertex(vertex.size,
+      minmax.relative.size =
+        params("vertex", "relative.size")
+    )
+    newdots$vertex.size <- vertex.size
+
+    # vertex.size2: Notice that in this case we need to ajust the scale
+    # in two ways: (1) On the relative size of the axes, and (2) on the
+    # relative size of vertex.size/vertex.size2
+
+    scalefactor <- parusr <- par("usr")
+    scalefactor <- (parusr[2] - parusr[1]) / (parusr[4] - parusr[3])
+    if ("vertex.size2" %in% names(newdots)) { # If the user provided -vertex.size2-
+
+      scalefactor <- scalefactor * (
+        max(params("vertex", "size2"), na.rm = TRUE) / max(params("vertex", "size"), na.rm = TRUE))
+
+      newdots$vertex.size2 <- i.rescale.vertex(
+        params("vertex", "size2"),
+        parusr[3:4] * scalefactor,
+        params("vertex", "relative.size")
+      )
+    } else { # Otherwise use -vertex.size-
+      newdots$vertex.size2 <- i.rescale.vertex(
+        params("vertex", "size"),
+        parusr[3:4] * scalefactor,
+        params("vertex", "relative.size")
+      )
+    }
+
+    params <- i.parse.plot.params(graph, newdots)
+  } else {
+    params <- i.parse.plot.params(
+      graph,
+      list(vertex.size = 1 / 200 * vertex.size, vertex.size2 = 1 / 200 * params("vertex", "size2"))
+    )
+  }
   ################################################################
   ## Mark vertex groups
   if (!is.list(mark.groups) && is.numeric(mark.groups)) {
@@ -778,7 +825,20 @@ rglplot.igraph <- function(x, ...) {
   label.degree <- params("vertex", "label.degree")
   label.dist <- params("vertex", "label.dist")
   vertex.color <- params("vertex", "color")
-  vertex.size <- (1 / 200) * params("vertex", "size")
+
+  vertex.size <- params("vertex", "size")
+  vertex.size.scaling <- params("vertex", "size.scaling")
+
+  # Rescaling vertex size
+  if (vertex.size.scaling) {
+    vertex.size <- i.rescale.vertex(
+      vertex.size, rgl::par3d("scale")[1:2] * c(-1, 1),
+      params("vertex", "relative.size")
+    )
+  } else {
+    vertex.size <- (1 / 200) * params("vertex", "size")
+  }
+
   loop.angle <- params("edge", "loop.angle")
   loop.angle2 <- params("edge", "loop.angle2")
 
diff --git a/R/plot.common.R b/R/plot.common.R
index 6590ca69937..754e9560aba 100644
--- a/R/plot.common.R
+++ b/R/plot.common.R
@@ -83,7 +83,7 @@
 #' order have about the same size of vertices for a given value for all three
 #' plotting commands. It does not need to be an integer number.
 #' The default value is 15. This is big enough to place short labels on
-#' vertices.}
+#' vertices. If `size.scaling` is `TRUE`, `relative.size` is used to scale the size appropriately.}
 #' \item{size2}{The \dQuote{other} size of the vertex, for some
 #' vertex shapes. For the various rectangle shapes this gives the height of the
 #' vertices, whereas `size` gives the width. It is ignored by shapes for
@@ -209,7 +209,21 @@
 #' labels, see the `color` vertex parameter discussed earlier for the
 #' possible values.
 #'
-#' The default value is `black`.  } }
+#' The default value is `black`.}
+#'
+#' \item{size.scaling}{Switches between absolute vertex sizing (FALSE,default) and relative (TRUE).
+#' If FALSE, `vertex.size` and `vertex.size2` are used as is. IF TRUE,
+#' `relative.size` is used to scale both appropriately with `relative.size`}
+#'
+#' \item{relative.size}{
+#'      The relative size of the smallest and largest vertices as percentage of
+#'      the plotting region. When all vertices have the same size, then by default
+#'      the relative size observed in the plot will be equal to
+#'      \code{relative.size[2]}.
+#'      The default value is \code{c(.01,.025)} (1\% and 2.5\% respectively).
+#'
+#' Only used if `size.scaling` is TRUE`.
+#' }}
 #'
 #' Edge parameters require to add the \sQuote{\code{edge.}} prefix when used as
 #' arguments or set by [igraph_options()]. The edge parameters:
@@ -417,11 +431,19 @@
 #'   vertex.size = 10,
 #'   vertex.color = "green"
 #' )
+#'
+#' # use relative scaling instead of absolute
+#' g <- make_famous_graph("Zachary")
+#' igraph_options(plot.layout = layout_nicely)
+#' plot(g, vertex.size = degree(g))
+#' plot(g, vertex.size = degree(g), size.scaling = TRUE)
+#' plot(g, vertex.size = degree(g), size.scaling = TRUE, relative.size = c(0.05, 0.1))
 #' }
 #' @name plot.common
 #' @rdname plot.common
 NULL
 
+
 #' Optimal edge curvature when plotting graphs
 #'
 #' @description
@@ -1380,7 +1402,9 @@ i.vertex.default <- list(
   pie.angle = 45,
   pie.density = -1,
   pie.lty = 1,
-  raster = .igraph.logo.raster
+  raster = .igraph.logo.raster,
+  size.scaling = FALSE,
+  relative.size = c(0.01, 0.025)
 )
 
 i.edge.default <- list(
@@ -1418,6 +1442,33 @@ i.plot.default <- list(
 i.default.values <- new.env()
 
 i.default.values[["vertex"]] <- i.vertex.default
+
+i.default.values[["edge"]] <- i.edge.default
+i.default.values[["plot"]] <- i.plot.default
+
+# Rescale vertex size
+#
+# Rescale the size of the vertex according to the device dimmensions
+# By default uses x1 and x2.
+#
+# @param size Numeric vector with relative sizes.
+# @param plot.reg.coords Coordinates of the device.
+# @param minmax.relative.size Relative minimum and maximun sizes in terms of
+#  percent of the device scale.
+#
+# To use the default values (calling par()), it should be done after calling
+# the device and specifying its dimmensions.
+i.rescale.vertex <- function(size, plot.reg.coords = par("usr")[1:2],
+                             minmax.relative.size) {
+  # Adjusting
+  ran <- range(size, na.rm = TRUE)
+  scal <- (plot.reg.coords[2] - plot.reg.coords[1]) * minmax.relative.size
+  size <- (size - ran[1] + 1e-15) / (ran[2] - ran[1] + 1e-15) *
+    (scal[2] - scal[1]) + scal[1]
+
+  return(size)
+}
+
 i.default.values[["edge"]] <- i.edge.default
 i.default.values[["plot"]] <- i.plot.default
 
diff --git a/R/plot.shapes.R b/R/plot.shapes.R
index 4581ed964b1..685dd7a9585 100644
--- a/R/plot.shapes.R
+++ b/R/plot.shapes.R
@@ -261,7 +261,7 @@ add.vertex.shape <- function(shape, clip = shape_noclip, plot = shape_noplot, pa
 #'   if (length(vertex.color) != 1 && !is.null(v)) {
 #'     vertex.color <- vertex.color[v]
 #'   }
-#'   vertex.size <- 1 / 200 * params("vertex", "size")
+#'   vertex.size <- params("vertex", "size")
 #'   if (length(vertex.size) != 1 && !is.null(v)) {
 #'     vertex.size <- vertex.size[v]
 #'   }
@@ -289,7 +289,7 @@ add.vertex.shape <- function(shape, clip = shape_noclip, plot = shape_noplot, pa
 #'   if (length(vertex.color) != 1 && !is.null(v)) {
 #'     vertex.color <- vertex.color[v]
 #'   }
-#'   vertex.size <- 1 / 200 * params("vertex", "size")
+#'   vertex.size <- params("vertex", "size")
 #'   if (length(vertex.size) != 1 && !is.null(v)) {
 #'     vertex.size <- vertex.size[v]
 #'   }
@@ -401,7 +401,7 @@ add_shape <- function(shape, clip = shape_noclip,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
 
   if (end == "from") {
     phi <- atan2(coords[, 4] - coords[, 2], coords[, 3] - coords[, 1])
@@ -463,7 +463,8 @@ add_shape <- function(shape, clip = shape_noclip,
   if (length(vertex.frame.width) != 1 && !is.null(v)) {
     vertex.frame.width <- vertex.frame.width[v]
   }
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
+
   if (length(vertex.size) != 1 && !is.null(v)) {
     vertex.size <- vertex.size[v]
   }
@@ -499,7 +500,7 @@ add_shape <- function(shape, clip = shape_noclip,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
 
   square.shift <- function(x0, y0, x1, y1, vsize) {
     m <- (y0 - y1) / (x0 - x1)
@@ -578,7 +579,8 @@ add_shape <- function(shape, clip = shape_noclip,
   if (length(vertex.frame.width) != 1 && !is.null(v)) {
     vertex.frame.width <- vertex.frame.width[v]
   }
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
+
   if (length(vertex.size) != 1 && !is.null(v)) {
     vertex.size <- vertex.size[v]
   }
@@ -614,7 +616,7 @@ add_shape <- function(shape, clip = shape_noclip,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
 
   square.shift <- function(x0, y0, x1, y1, vsize) {
     l <- cbind(
@@ -676,8 +678,8 @@ add_shape <- function(shape, clip = shape_noclip,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
-  vertex.size2 <- 1 / 200 * params("vertex", "size2")
+  vertex.size <- params("vertex", "size")
+  vertex.size2 <- params("vertex", "size2")
 
   rec.shift <- function(x0, y0, x1, y1, vsize, vsize2) {
     m <- (y0 - y1) / (x0 - x1)
@@ -766,12 +768,13 @@ add_shape <- function(shape, clip = shape_noclip,
   if (length(vertex.frame.width) != 1 && !is.null(v)) {
     vertex.frame.width <- vertex.frame.width[v]
   }
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
   if (length(vertex.size) != 1 && !is.null(v)) {
     vertex.size <- vertex.size[v]
   }
   vertex.size <- rep(vertex.size, length.out = nrow(coords))
-  vertex.size2 <- 1 / 200 * params("vertex", "size2")
+  vertex.size2 <- params("vertex", "size2")
+
   if (length(vertex.size2) != 1 && !is.null(v)) {
     vertex.size2 <- vertex.size2[v]
   }
@@ -807,8 +810,8 @@ add_shape <- function(shape, clip = shape_noclip,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
-  vertex.size2 <- 1 / 200 * params("vertex", "size2")
+  vertex.size <- params("vertex", "size")
+  vertex.size2 <- params("vertex", "size2")
 
   rec.shift <- function(x0, y0, x1, y1, vsize, vsize2) {
     l <- cbind(
@@ -880,8 +883,8 @@ add_shape <- function(shape, clip = shape_noclip,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
-  vertex.size2 <- 1 / 200 * params("vertex", "size2")
+  vertex.size <- params("vertex", "size")
+  vertex.size2 <- params("vertex", "size2")
 
   rec.shift <- function(x0, y0, x1, y1, vsize, vsize2) {
     l <- cbind(x1 - vsize, y1, x1 + vsize, y1)
@@ -989,7 +992,7 @@ mypie <- function(x, y, values, radius, edges = 200, col = NULL, angle = 45,
     return(coords)
   }
 
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
 
   if (end == "from") {
     phi <- atan2(coords[, 4] - coords[, 2], coords[, 3] - coords[, 1])
@@ -1049,7 +1052,7 @@ mypie <- function(x, y, values, radius, edges = 200, col = NULL, angle = 45,
   }
   vertex.color <- getparam("color")
   vertex.frame.color <- getparam("frame.color")
-  vertex.size <- rep(1 / 200 * getparam("size"), length.out = nrow(coords))
+  vertex.size <- rep(getparam("size"), length = nrow(coords))
   vertex.pie <- getparam("pie")
   vertex.pie.color <- getparam("pie.color")
   vertex.pie.angle <- getparam("pie.angle")
@@ -1090,8 +1093,9 @@ mypie <- function(x, y, values, radius, edges = 200, col = NULL, angle = 45,
     }
     p
   }
-  vertex.color <- rep(getparam("color"), length.out = nrow(coords))
-  vertex.size <- rep(1 / 200 * getparam("size"), length.out = nrow(coords))
+
+  vertex.color <- rep(getparam("color"), length = nrow(coords))
+  vertex.size <- rep(getparam("size"), length = nrow(coords))
 
   ## Need to create a separate image for every different vertex color
   allcols <- unique(vertex.color)
@@ -1131,8 +1135,8 @@ mypie <- function(x, y, values, radius, edges = 200, col = NULL, angle = 45,
     p
   }
 
-  size <- rep(1 / 200 * getparam("size"), length.out = nrow(coords))
-  size2 <- rep(1 / 200 * getparam("size2"), length.out = nrow(coords))
+  size <- rep(getparam("size"), length = nrow(coords))
+  size2 <- rep(getparam("size2"), length = nrow(coords))
   raster <- getparam("raster")
 
   for (i in seq_len(nrow(coords))) {
diff --git a/R/tkplot.R b/R/tkplot.R
index f44cb1f8fc6..23420196e05 100644
--- a/R/tkplot.R
+++ b/R/tkplot.R
@@ -340,6 +340,12 @@ tkplot <- function(graph, canvas.width = 450, canvas.height = 450, ...) {
   label.dist <- params("vertex", "label.dist")
   vertex.color <- .tkplot.convert.color(params("vertex", "color"))
   vertex.size <- params("vertex", "size")
+  
+  # Adjusting size
+  vertex.size <- i.rescale.vertex(
+    vertex.size, c(-canvas.width, canvas.height)/2,
+    params("vertex", "relative.size"))
+  
   vertex.frame.color <- .tkplot.convert.color(params("vertex", "frame.color"))
 
   edge.color <- .tkplot.convert.color(params("edge", "color"))
diff --git a/man/plot.common.Rd b/man/plot.common.Rd
index 9890d261991..a68c65571a3 100644
--- a/man/plot.common.Rd
+++ b/man/plot.common.Rd
@@ -92,7 +92,7 @@ latter case each vertex sizes may differ. This vertex sizes are scaled in
 order have about the same size of vertices for a given value for all three
 plotting commands. It does not need to be an integer number.
 The default value is 15. This is big enough to place short labels on
-vertices.}
+vertices. If \code{size.scaling} is \code{TRUE}, \code{relative.size} is used to scale the size appropriately.}
 \item{size2}{The \dQuote{other} size of the vertex, for some
 vertex shapes. For the various rectangle shapes this gives the height of the
 vertices, whereas \code{size} gives the width. It is ignored by shapes for
@@ -218,7 +218,21 @@ The default value is \code{-pi/4}.  }
 labels, see the \code{color} vertex parameter discussed earlier for the
 possible values.
 
-The default value is \code{black}.  } }
+The default value is \code{black}.}
+
+\item{size.scaling}{Switches between absolute vertex sizing (FALSE,default) and relative (TRUE).
+If FALSE, \code{vertex.size} and \code{vertex.size2} are used as is. IF TRUE,
+\code{relative.size} is used to scale both appropriately with \code{relative.size}}
+
+\item{relative.size}{
+The relative size of the smallest and largest vertices as percentage of
+the plotting region. When all vertices have the same size, then by default
+the relative size observed in the plot will be equal to
+\code{relative.size[2]}.
+The default value is \code{c(.01,.025)} (1\\% and 2.5\\% respectively).
+
+Only used if \code{size.scaling} is TRUE`.
+}}
 
 Edge parameters require to add the \sQuote{\code{edge.}} prefix when used as
 arguments or set by \code{\link[=igraph_options]{igraph_options()}}. The edge parameters:
@@ -424,6 +438,13 @@ tkplot(make_tree(50, 2, mode = "undirected"),
   vertex.size = 10,
   vertex.color = "green"
 )
+
+# use relative scaling instead of absolute
+g <- make_famous_graph("Zachary")
+igraph_options(plot.layout = layout_nicely)
+plot(g, vertex.size = degree(g))
+plot(g, vertex.size = degree(g), size.scaling = TRUE)
+plot(g, vertex.size = degree(g), size.scaling = TRUE, relative.size = c(0.05, 0.1))
 }
 }
 \seealso{
diff --git a/man/rglplot.Rd b/man/rglplot.Rd
index 3a078863649..67b89564b94 100644
--- a/man/rglplot.Rd
+++ b/man/rglplot.Rd
@@ -31,7 +31,7 @@ arguments.
 g <- make_lattice(c(5, 5, 5))
 coords <- layout_with_fr(g, dim = 3)
 
-\dontshow{if (interactive() && rlang::is_installed("rgl")) withAutoprint(\{ # examplesIf}
+\dontshow{if (interactive() && rlang::is_installed("rgl")) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 rglplot(g, layout = coords)
 \dontshow{\}) # examplesIf}
 }
diff --git a/man/shapes.Rd b/man/shapes.Rd
index 22b10927f37..c479b2fdf5d 100644
--- a/man/shapes.Rd
+++ b/man/shapes.Rd
@@ -146,7 +146,7 @@ mytriangle <- function(coords, v = NULL, params) {
   if (length(vertex.color) != 1 && !is.null(v)) {
     vertex.color <- vertex.color[v]
   }
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
   if (length(vertex.size) != 1 && !is.null(v)) {
     vertex.size <- vertex.size[v]
   }
@@ -174,7 +174,7 @@ mystar <- function(coords, v = NULL, params) {
   if (length(vertex.color) != 1 && !is.null(v)) {
     vertex.color <- vertex.color[v]
   }
-  vertex.size <- 1 / 200 * params("vertex", "size")
+  vertex.size <- params("vertex", "size")
   if (length(vertex.size) != 1 && !is.null(v)) {
     vertex.size <- vertex.size[v]
   }
diff --git a/man/vertex.shape.pie.Rd b/man/vertex.shape.pie.Rd
index 41f29019379..e77eb73e9ec 100644
--- a/man/vertex.shape.pie.Rd
+++ b/man/vertex.shape.pie.Rd
@@ -31,7 +31,7 @@ slices.} }
 g <- make_ring(10)
 values <- lapply(1:10, function(x) sample(1:10, 3))
 
-\dontshow{if (interactive()) withAutoprint(\{ # examplesIf}
+\dontshow{if (interactive()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 plot(g,
   vertex.shape = "pie", vertex.pie = values,
   vertex.pie.color = list(heat.colors(5)),
diff --git a/tests/testthat/_snaps/plot/basic-graph-layout-1.svg b/tests/testthat/_snaps/plot/basic-graph-layout-1.svg
index d8d1dc241fa..cbb18228d35 100644
--- a/tests/testthat/_snaps/plot/basic-graph-layout-1.svg
+++ b/tests/testthat/_snaps/plot/basic-graph-layout-1.svg
@@ -25,7 +25,7 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='579.73,471.81 584.32,469.61 588.71,467.69 592.91,466.03 596.92,464.62 600.74,463.45 604.36,462.51 607.80,461.78 611.05,461.26 614.10,460.94 616.96,460.79 619.64,460.81 622.12,460.99 624.41,461.32 626.51,461.78 628.42,462.37 630.14,463.06 631.67,463.86 633.00,464.74 634.15,465.70 635.10,466.72 635.87,467.80 636.44,468.91 636.82,470.06 637.01,471.22 637.01,472.39 636.82,473.56 636.44,474.70 635.87,475.82 635.10,476.89 634.15,477.92 633.00,478.87 631.67,479.76 630.14,480.55 628.42,481.25 626.51,481.83 624.41,482.29 622.12,482.62 619.64,482.80 616.96,482.83 614.10,482.68 611.05,482.35 607.80,481.83 604.36,481.11 600.74,480.17 596.92,479.00 592.91,477.59 588.71,475.93 584.32,474.01 579.73,471.81 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
+<polygon points='3430.52,471.81 3435.11,469.61 3439.50,467.69 3443.70,466.03 3447.71,464.62 3451.53,463.45 3455.15,462.51 3458.59,461.78 3461.84,461.26 3464.89,460.94 3467.76,460.79 3470.43,460.81 3472.91,460.99 3475.20,461.32 3477.30,461.78 3479.21,462.37 3480.93,463.06 3482.46,463.86 3483.79,464.74 3484.94,465.70 3485.89,466.72 3486.66,467.80 3487.23,468.91 3487.61,470.06 3487.80,471.22 3487.80,472.39 3487.61,473.56 3487.23,474.70 3486.66,475.82 3485.89,476.89 3484.94,477.92 3483.79,478.87 3482.46,479.76 3480.93,480.55 3479.21,481.25 3477.30,481.83 3475.20,482.29 3472.91,482.62 3470.43,482.80 3467.76,482.83 3464.89,482.68 3461.84,482.35 3458.59,481.83 3455.15,481.11 3451.53,480.17 3447.71,479.00 3443.70,477.59 3439.50,475.93 3435.11,474.01 3430.52,471.81 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
 <line x1='555.28' y1='461.68' x2='384.48' y2='290.88' style='stroke-width: 0.75; stroke: #FF0000;' />
 <line x1='364.22' y1='270.62' x2='193.52' y2='99.92' style='stroke-width: 0.75; stroke: #0000FF;' />
 <circle cx='565.41' cy='471.81' r='14.33' style='stroke-width: 0.75; fill: #E69F00;' />
diff --git a/tests/testthat/_snaps/plot/basic-graph-layout-2.svg b/tests/testthat/_snaps/plot/basic-graph-layout-2.svg
index f0808d3e4c3..46111bdeb72 100644
--- a/tests/testthat/_snaps/plot/basic-graph-layout-2.svg
+++ b/tests/testthat/_snaps/plot/basic-graph-layout-2.svg
@@ -25,7 +25,7 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='197.72,89.79 202.30,87.59 206.69,85.67 210.89,84.01 214.90,82.60 218.72,81.43 222.35,80.49 225.78,79.77 229.03,79.25 232.08,78.92 234.95,78.77 237.62,78.80 240.10,78.98 242.40,79.31 244.50,79.77 246.40,80.35 248.12,81.05 249.65,81.84 250.99,82.73 252.13,83.68 253.09,84.71 253.85,85.78 254.42,86.90 254.81,88.04 255.00,89.21 255.00,90.38 254.81,91.54 254.42,92.69 253.85,93.80 253.09,94.88 252.13,95.90 250.99,96.86 249.65,97.74 248.12,98.54 246.40,99.23 244.50,99.82 242.40,100.28 240.10,100.61 237.62,100.79 234.95,100.81 232.08,100.66 229.03,100.34 225.78,99.82 222.35,99.09 218.72,98.15 214.90,96.98 210.89,95.57 206.69,93.91 202.30,91.99 197.72,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
+<polygon points='3048.51,89.79 3053.09,87.59 3057.48,85.67 3061.68,84.01 3065.69,82.60 3069.51,81.43 3073.14,80.49 3076.57,79.77 3079.82,79.25 3082.88,78.92 3085.74,78.77 3088.41,78.80 3090.89,78.98 3093.19,79.31 3095.29,79.77 3097.20,80.35 3098.91,81.05 3100.44,81.84 3101.78,82.73 3102.92,83.68 3103.88,84.71 3104.64,85.78 3105.21,86.90 3105.60,88.04 3105.79,89.21 3105.79,90.38 3105.60,91.54 3105.21,92.69 3104.64,93.80 3103.88,94.88 3102.92,95.90 3101.78,96.86 3100.44,97.74 3098.91,98.54 3097.20,99.23 3095.29,99.82 3093.19,100.28 3090.89,100.61 3088.41,100.79 3085.74,100.81 3082.88,100.66 3079.82,100.34 3076.57,99.82 3073.14,99.09 3069.51,98.15 3065.69,96.98 3061.68,95.57 3057.48,93.91 3053.09,91.99 3048.51,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
 <line x1='193.52' y1='99.92' x2='364.13' y2='270.53' style='stroke-width: 0.75; stroke: #FF0000;' />
 <line x1='384.39' y1='290.79' x2='555.28' y2='461.68' style='stroke-width: 0.75; stroke: #0000FF;' />
 <circle cx='183.39' cy='89.79' r='14.33' style='stroke-width: 0.75; fill: #E69F00;' />
diff --git a/tests/testthat/_snaps/plot/basic-graph-spheres.svg b/tests/testthat/_snaps/plot/basic-graph-spheres.svg
index f35282245e1..0d0423a8260 100644
--- a/tests/testthat/_snaps/plot/basic-graph-spheres.svg
+++ b/tests/testthat/_snaps/plot/basic-graph-spheres.svg
@@ -25,7 +25,6 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='305.96,143.91 309.24,142.34 312.39,140.96 315.40,139.77 318.27,138.76 321.01,137.92 323.61,137.25 326.07,136.73 328.40,136.35 330.59,136.12 332.64,136.02 334.55,136.03 336.33,136.16 337.97,136.40 339.48,136.73 340.85,137.15 342.08,137.64 343.17,138.21 344.13,138.85 344.95,139.53 345.64,140.27 346.18,141.04 346.59,141.84 346.87,142.66 347.01,143.49 347.01,144.33 346.87,145.16 346.59,145.98 346.18,146.78 345.64,147.56 344.95,148.29 344.13,148.98 343.17,149.61 342.08,150.18 340.85,150.68 339.48,151.09 337.97,151.43 336.33,151.66 334.55,151.79 332.64,151.81 330.59,151.70 328.40,151.47 326.07,151.09 323.61,150.58 321.01,149.90 318.27,149.06 315.40,148.05 312.39,146.86 309.24,145.49 305.96,143.91 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: none;' />
 <line x1='285.91' y1='192.31' x2='325.90' y2='232.30' style='stroke-width: 0.75; stroke: #A9A9A9;' />
 <line x1='422.70' y1='329.10' x2='462.89' y2='369.29' style='stroke-width: 0.75; stroke: #A9A9A9;' />
 <image width='136.89' height='136.89' x='169.07' y='75.47' preserveAspectRatio='none' xlink:href='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAGQAAABkCAYAAABw4pVUAAARlklEQVR4nO2dO48sSbHH/1nV3dPzPA9WiEXCvNa1+QKLuM71wcE4SIdFIF1wMNH1sMAAgRDCYT2+BZ+Da8E1dxeD1WKcM12ZgZEZmZGZkfXoqZ7pfYRUU93V1TVV8at/RGRWVjXwpX1pp7DX3wY99T6sYeapd2CO/fw7oG0PdB3QAXGviQAKc0eAc36yBFgHWAsMDhgscLDA/QH44C/nfcxnuXO/+B7oYgNsGIIBTLGnDCGDEUA4F4CEaWA4AczBAofBf3ZugM5mZ371fdB+C2w3wKbLQfBOshoqVRRAqskKKEExgwBzP/jtnwOcJ92BX74C3eyBiy2w2wB9D/QBRMcgZHgKMFogSmWUCrEMQ0DJwFiAM9FTwXmSf/qb16DbS2C/BXZbH5paqgByRbTyRROGrV9rUMpwxvbYYB71n/3ufdDdFXC586rY9gFGH1TR+R3ifEHhTwaCkvOzBC7Ck6qMImRZCUQJYwfrt8/2WGAe5Z/8+jXo5Q1wvQcugyp2IWn3XQpTWuKuQFBbDZnzldwh1WEVGBqYweb7dGowJwfyp594VVxd+BDFytj2ec6YBWNkaoWmDIKijqUhDDgtlJNt+Pc/BH3lDri9BK52wJ7D1CbAYGUEINKyfKHkiVYo0qqpShWt5SNQeE5F0/MUYDZrbxAAPvgp6MU1cHOZK2O3SWVtqYiWaW2KzgKD8XMuAIyoymZ7idKcymWKlVBevQdaG8rqhP/8M9DzKw/j+sIrYx9gdN3x23VKYo5nu3Z2N5L3WGKvtqOUx8OJlbLahn77A9C7L4Hn18DNPiTwAOMhIKQRtR3fWqZVU2M5pFV9lWA0WwPMKq76w49A33gHeOfWA3l2DdyFcLUWDMCHJS4IuFzedH7qGxOX010H9CZfFnNY8Zm6rT5Nm17fv1fvPbyD88Hu+uOPQV9/Cby89SCeXXkY25NkJ299Pw6hL51q8gKCAcT3Jv9MzlvbbJ1oD4XyICB//DHo3RfAi5sA4sqHqrkJ+1gzSGcqO0ee7ZmjG4432udj81JtI4XJQ6AcDeQPPwJ97QXw/MaDuL30OeMYM8YsnmTYyaAIRxsDmOA4o0AwxbrdxBSVYsZVAhwP5Sggv/0B6GvPfb64uwRu976aWmrsXG1ZOWnf7Y1B15laDZ0HUSnF1HDK1xJkJ+YZQA5npm5DSTsGylGRnqup20tf3i6FIR2sOXvqOxTqzq4DOgcPxQHGUO3YxtQBcGJdJ+byc/lZZwDXAR0JMAS4RtV1jC1WyJ9/BnoeGn03+2VhSp7tx4Qp9budPKNN5XTDEy/HOKhKLdCVVIa4li1VySIgH/w0NPpCO+PqYv5354Doui6bxmDEAwgQOrCjTA2hBIGZ8+L7ElCmwAkvLoEyG8jvf5i6Q673vn9qbjXVgsFObwHQllXb4u1nzvaQoDiVnQ0o3S1yPgWoUMmUL+ZCmZ1DvnKXukMud/PaGdJ5PJ8646UREYwxMWdon8MYGFDahqHgHL+83qlsll4XUEYBCRhOvG/s5iKbpZA//cRf4bsSfVNzbUwdfd+j7/vstVymha9qm9n75OgEJTm1dHZar4Ahlkl1NZWD8TzCNkclk0B+/Tpczwgg5vZNaSpg55YQNptNNmlgtDAWNu5nCYXYCUSPmfyTbE3lm1kIailHC2FTNgVlMvC8vEnK4C70KSvLWi1faM4GfBjiyTkH51wMWbw8N4J3j1xevp/aYbnvjdfivaoirBO2Rs/1370Put7n1zOm1KGFKHZ6qYjdbuen/R7b/R7biwvsLi6w2+0ytWhJP/0vnyn8lDxI+fl+hGv4eNrvtXA3x8ZUMnq+3135a+DxSt/MEmCspGVHb7dbYLsFNhs/8ellLcwwYDMMcMMAYwysTS0vVgwn+3Rk/vsEA+IrToRs+JCmLXX/q+Op38tcJRXyUGue7795Dbrc+QEJsct7pjrk+zJMbTYbbHc7YL8Hrq+BZ8+AFy/89OwZcHsLXF0BFxfottumQowx3vkUJginawDI6MtRhxkNVOXrQhF5MTFtLZU0z/nbS3HZtR/v3cz2s9GW4HC13W6BiwsP4+7OT1dXPha+fQv8619+Cv+sI0Iv8gqrA0hdKGlEI6sEYblXSwkLSBCWxPxRKAtC1pipQH75Kgzr5C7uAGTMNHXwXIYrbLdeHXd3wFe/Cjx/F8A7/ohuPgGuP/Rw4kg4iz4kd+dcUgcRiAwcUQhLvCy95pAlZSEVooWwY5JyCWXuJrRr8iqQm30aUTh1QSbbsUajT0LBZpOAPH8XwH8C+I+whb8B+w64ewu8eQPc3/tJCVeOwtlPJqjDw3AQiuE8IpchLSs/a3qyEer8QWazxQVeaSqQi226RCqvMbRMa2mrYPreA9ntfJjCO/AwvimO4iPg8kO/Tt/Hfu8SdjZmSwwbKpO4hJOFNAGlVE/9vcez6rz/1fdBOx6Bbub104xZ5sis34H7YgF/yGKkcwMwmxw8JyFUQ04JXklUOFi+R5FfihC36FiXf6VK7pVC9tt0YnYzE3m1Y60vsTes9Qn85hMAf+MPAfwdwD99uBqG5HGIBE4pvWSOdxIAqaBKMHKXKlVhJpeV5VMB2W7E8M4FG2pCCEYSxuHgK6nrD33OwEdhrX8Chw/9Z2/fJiih7UFEsI7ioLkSTKkOVQ0KlHpn84mKqUVrDTZZyPrF90Acqsq+mYd0CcSS1TnvZC5vP/4Y+OTvwP1fgcP/AZ/+P/CPfwCffupVcjgA1oICkAQjQeHB1zGEOQK5HE6lEi2EjSilOp7GdKzJsJUp5GIjRmVkDvUHdIzJ9oO1FhsGYoz34Js3PoEDCdabN34egDjnYJ3DYAmDpTCul7Lxvq0QRkQZjFb40qDEY8DDnT7XMiB8n4ZMtZlUZ1rWtVF0FLphQMfSc86XtX2f3g+DBxEmNwyw1uEwMAzCEGF41TiiGkgBIC5D7Xj1bG+EqVY3TDr4+X7SLAMSk7ggEg8mnIVzRyKWLWrnHKy1cVnH+SS0M8KKsTEIawMMi/vBYhgcBgElC1sOsER1XnFpk0Ss1olyueH4EpaWW9YokaN7f/4dUKkOudN8S8ASkwqRUIZhgD0cPAwOURym3r4F3d/DHg4YBou3B4vDweEwpJDlB0YHdUgIjsL++jwymeyn8ofieAAnCWGcR6JCtn1K4mXJKG8J6BsqkYoolzvnqmW8POsslPnGhTA1eBg+ZDmhEIgEH9QRTprkfBK5pD05yiG0AEnfRJVgXTgRSIwaKM4okTT5/oztRGNRuwYuwWhA5HrWUVLDwK8dDlYsL8A4p4esMjyVZXIzuSNfLsNY9BOU/LJWDuGTXu6gDFXyZhljvKI0K5VSDlRgCLy87A7hsz0mcBVCrhB57yGrwpYwwnqqMo4ApMJ5GIscCCcPQnE2KXcuwSIOeM7L47prvBw1UoLg9fPQSOHmGa6qEOF49aQcwiWwEyqxMlw5xHaJlku09kkFR4CQYSpTxUpEsior7rRDljfiHa0GMDZfv++BDroqJJhyOb/nvqb6xk7RCLRCNSKhNxuJVbuEKhASxuzGo4DTCmGrASnPHg0Kh6sMIJDdbyGtDFf8mhtsFLrQs9gu/p8rnW7z93zHU6ywnA5AU4UKARMwpkLYmgqJsZRBUJ0/TAhXGRDyfV8uDHw2HfnhnSDfbR7mfP7EMwyhPCWTO0qc6XlrXCqm9ZkMXwWoELpaMJoq0UCJ91kIW8GaCinvA+9sMbapONs6R+g6A+MAY0KeiKGMAB58gPogq7ZCTMq109ugkvNTV4qiFDcPRnxdwhhRyWpAXn8bVIYpGToGmzobjRFqIqBnIIYVEio2k2CYcBktBC7w1T0ZsqI6heO8WqSTKXuSgytgyMqqnU+mQ5dTTpZR1awE49V7oHjC/+93xXBRHoe1BXZ9utlfXkXU7lwyJr8lADB5zoEc+WGqElQDE898Emd+A4xcxxbfibCK19l2qb2eBGyLz/n7D7UP/gITQ5b66AoLWD7zRbySjuzCzqV79zhcwasEgOyQIR4CTaScjSGfOMqVQnkYyh1I1ToMo1KHU8KjFqb4NWplyP1dO1wBIoe0HuoyOF/qRh5F7Ix3E5EcNMZtDd46RSg8iM1/3xQNsxC+KifmDm42AgsYcnkFgZe5cTAVhMa0PhBNIS7cMia6SiQMErd3GUrr+VF8HoKEIkMWAMRLrahjeeaoMoSRKHEzSIoySihFPmmFTVU10F+vaQmI1dXB1VVyaxGyOHcEhfCdTDA86lZe7RLqYDgFkHY+odrJhVJaOaKEUqplDpxWcl8hdehAhhKG9c4elMu5QAGkEyEL+fqpHZK+59FQVsfH0SFl+KIWBH5dNyzVOeXf15w/BqcVwlbtg8+AyAew9L6b3SoKYad2XZrX4UoCgV+B8UQgCQZJAKhDlxb/s7zSAtaCWCxTz/wZcNZWRwbkIJ6qs7GA7UTrXKmwOko5xIjxW9VI8Oz6PA9SMzUQ1AetzZ0rrvq1qqimotpgWhBaIWxtdWRA7g/pUUe2TyFLfVQrfIMwyyESiIRQDpiA9zwfi4ch2iQVmDp0ZQ4qndmCooAZq5rmhLBTWBaN/ue/8xt0ygbhRmkMdp2uDqPAyKEkuDK5ZweN8fBV5pdSOS0l1WX1jLCXldvrA+FB11n3Oz+ga+iBvugukc7skfJHLHsbIasJBFDySPFaCRNVCBtTj6KSSlELJrlfp7IcyJAe0tXzYyvKspcSjJ7gHzvBzwGBltD1f9xO7no+mcotrTC2RDXx/4+EM3dCGEABxDqvko1tDCdlJ1LIIWEdR8U928hVVeUQ+VoA4G1LKK34PRtOEWZaFdZclZzaqvP3/f8CXV3kD63kR7puik7F1lN2ZFIfG3cNTEOpKh7Uzq8rsWk4Wg4aLQrc6YDIm3aqwdb3gxhw3aV+LPaeLHu1B4JpCb0MXTIGz1FJmeSXhLJWQdDMMSOKeQxTb9g5DOlZ7DL8kJg4ZBGherTRVJUlTSplDAi/ngphY0m/lWfid0cqrscy1V+vvgW62iml70TZqypkBIpUR97p2AYyVhbPyi1aPlEAlWHvVDbrHkOQT+5cPRV9g2rZO6UQLZdoeYSXZxCQw5gKXbPDWOH4suI6NQzNmrdFHwaRsMVydkYfwhV1AAkYXQGjBGGQHC+3WSqFtPfhdZXoCc3LrktL43L5Y1szxL96D9R1odoauXwboXV5O2ROpcWmAuHXM5RyjEq0yqxcfmrTHrw8+rAM57xSKoWEqSMBhVJynxuy4jbHQhdqACocdiQWAlGU8hTKYBs9d3mIPCd2+RMT2ZOjWSGyL0trIC5ok/DyVtgqldKqvmYrRKz/GNZ6LPmsx8lIlZTOmFRIkYMqKAIAkMPJymA0gBT7szSfyJB1DjbVTIgq4RHvMY/0xeO6uxzGWHuk1ZUC6GqZq5RyMMKS3PKYNvbQ/tnPXCQKv58B4YxQ9vadP6ix9ohWbQHzgfBnVM5nqESDcA75QrNJhQD5bbvGhAaifO76WB5ZUG0BuYOiMpA7vlTOGIgxdTyFTf2kxSwggPIIiBKI1mJfWG0ByJO6eL92PnkKm/P7Ikf/qMRg/QHGbngtZCnVlol/GtYAslY+OXebrRBAfwqaMbpKZKs9wpgDRQABFAD8emE+qff8cW3ur+8sAgK0H03X7Ghs5JH4j5WSqwTCy7SwNZVPnhoEsOynkBYDAcafqpkl96mGYmMbLSBL8sm52NLfpVr9h4kcAbBFZ2NZAgORhra3U0A0Vch1P8t2lEKAZU/8n5Pcp9ol/FpTyrnaMb/adjQQ4Pif9Tmm4gLOH4C0Y39C70FAgHV+Ku7zZg/5PcMHAwG+hCLtoT8uuQoQ4EsowDq/9LkaELYvIpiz/C1caV8kKGf/a9FsXwQop/g99ZMBYfs8gjkFCLaTAwE+X1BOCQN4JCBsn2UwpwbB9qhA2D5LYB4LBNuTAGE7ZzCPDYLtSYFIOwc4TwVB2pPvgGaPCeccIEg7q51p2ZqAzg3A59bOIeStYf8GrpZye2XFI/8AAAAASUVORK5CYII='/>
diff --git a/tests/testthat/_snaps/plot/loop-graph.svg b/tests/testthat/_snaps/plot/loop-graph.svg
index 91cf9f3730a..245c8ffb98f 100644
--- a/tests/testthat/_snaps/plot/loop-graph.svg
+++ b/tests/testthat/_snaps/plot/loop-graph.svg
@@ -25,8 +25,8 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='197.72,89.79 202.30,87.59 206.69,85.67 210.89,84.01 214.90,82.60 218.72,81.43 222.35,80.49 225.78,79.77 229.03,79.25 232.08,78.92 234.95,78.77 237.62,78.80 240.10,78.98 242.40,79.31 244.50,79.77 246.40,80.35 248.12,81.05 249.65,81.84 250.99,82.73 252.13,83.68 253.09,84.71 253.85,85.78 254.42,86.90 254.81,88.04 255.00,89.21 255.00,90.38 254.81,91.54 254.42,92.69 253.85,93.80 253.09,94.88 252.13,95.90 250.99,96.86 249.65,97.74 248.12,98.54 246.40,99.23 244.50,99.82 242.40,100.28 240.10,100.61 237.62,100.79 234.95,100.81 232.08,100.66 229.03,100.34 225.78,99.82 222.35,99.09 218.72,98.15 214.90,96.98 210.89,95.57 206.69,93.91 202.30,91.99 197.72,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
-<text x='255.02' y='91.78' text-anchor='middle' style='font-size: 12.00px; fill: #00FF00; font-family: sans;' textLength='30.69px' lengthAdjust='spacingAndGlyphs'>green</text>
+<polygon points='3048.51,89.79 3053.09,87.59 3057.48,85.67 3061.68,84.01 3065.69,82.60 3069.51,81.43 3073.14,80.49 3076.57,79.77 3079.82,79.25 3082.88,78.92 3085.74,78.77 3088.41,78.80 3090.89,78.98 3093.19,79.31 3095.29,79.77 3097.20,80.35 3098.91,81.05 3100.44,81.84 3101.78,82.73 3102.92,83.68 3103.88,84.71 3104.64,85.78 3105.21,86.90 3105.60,88.04 3105.79,89.21 3105.79,90.38 3105.60,91.54 3105.21,92.69 3104.64,93.80 3103.88,94.88 3102.92,95.90 3101.78,96.86 3100.44,97.74 3098.91,98.54 3097.20,99.23 3095.29,99.82 3093.19,100.28 3090.89,100.61 3088.41,100.79 3085.74,100.81 3082.88,100.66 3079.82,100.34 3076.57,99.82 3073.14,99.09 3069.51,98.15 3065.69,96.98 3061.68,95.57 3057.48,93.91 3053.09,91.99 3048.51,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
+<text x='3105.81' y='91.78' text-anchor='middle' style='font-size: 12.00px; fill: #00FF00; font-family: sans;' textLength='30.69px' lengthAdjust='spacingAndGlyphs'>green</text>
 <line x1='193.52' y1='99.92' x2='364.13' y2='270.53' style='stroke-width: 0.75; stroke: #FF0000;' />
 <line x1='384.39' y1='290.79' x2='555.28' y2='461.68' style='stroke-width: 0.75; stroke: #0000FF;' />
 <text x='250.39' y='161.08' text-anchor='middle' style='font-size: 12.00px; fill: #FF0000; font-family: sans;' textLength='17.34px' lengthAdjust='spacingAndGlyphs'>red</text>
diff --git a/tests/testthat/_snaps/plot/rectangle-edges.svg b/tests/testthat/_snaps/plot/rectangle-edges.svg
index 9687c3c7ce9..b37ed4d6b42 100644
--- a/tests/testthat/_snaps/plot/rectangle-edges.svg
+++ b/tests/testthat/_snaps/plot/rectangle-edges.svg
@@ -25,27 +25,27 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<line x1='310.31' y1='346.68' x2='398.47' y2='259.59' style='stroke-width: 0.75; stroke: #A9A9A9;' />
-<line x1='281.09' y1='375.48' x2='209.46' y2='445.96' style='stroke-width: 0.75; stroke: #A9A9A9;' />
-<line x1='397.44' y1='260.60' x2='309.28' y2='347.69' style='stroke-width: 0.75; stroke: #A9A9A9;' />
+<line x1='323.54' y1='333.61' x2='385.24' y2='272.65' style='stroke-width: 0.75; stroke: #A9A9A9;' />
+<line x1='267.92' y1='388.44' x2='222.63' y2='433.00' style='stroke-width: 0.75; stroke: #A9A9A9;' />
+<line x1='384.22' y1='273.67' x2='322.51' y2='334.62' style='stroke-width: 0.75; stroke: #A9A9A9;' />
 <line x1='440.24' y1='248.69' x2='526.17' y2='256.29' style='stroke-width: 0.75; stroke: #A9A9A9;' />
-<line x1='410.90' y1='231.37' x2='402.10' y2='115.64' style='stroke-width: 0.75; stroke: #A9A9A9;' />
-<line x1='210.49' y1='444.95' x2='282.12' y2='374.47' style='stroke-width: 0.75; stroke: #A9A9A9;' />
+<line x1='409.88' y1='217.98' x2='403.12' y2='129.03' style='stroke-width: 0.75; stroke: #A9A9A9;' />
+<line x1='223.66' y1='431.99' x2='268.95' y2='387.43' style='stroke-width: 0.75; stroke: #A9A9A9;' />
 <line x1='524.73' y1='256.16' x2='438.81' y2='248.56' style='stroke-width: 0.75; stroke: #A9A9A9;' />
-<line x1='402.21' y1='117.08' x2='411.01' y2='232.81' style='stroke-width: 0.75; stroke: #A9A9A9;' />
-<polygon points='391.31,272.83 391.64,271.64 392.03,270.39 392.51,269.05 393.11,267.58 393.91,265.93 395.08,263.90 398.52,259.64 398.42,259.54 394.11,262.92 392.08,264.07 390.41,264.85 388.94,265.43 387.59,265.89 386.33,266.27 385.14,266.58 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<polygon points='216.64,432.73 216.32,433.92 215.92,435.17 215.44,436.51 214.83,437.98 214.03,439.63 212.86,441.65 209.41,445.91 209.51,446.01 213.82,442.63 215.86,441.49 217.53,440.72 219.00,440.14 220.35,439.67 221.61,439.30 222.80,438.99 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<polygon points='316.44,334.44 316.12,335.63 315.72,336.89 315.24,338.23 314.64,339.69 313.84,341.35 312.67,343.37 309.23,347.64 309.34,347.74 313.64,344.35 315.68,343.21 317.34,342.43 318.81,341.84 320.16,341.38 321.42,341.00 322.62,340.69 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
+<line x1='403.23' y1='130.47' x2='409.99' y2='219.41' style='stroke-width: 0.75; stroke: #A9A9A9;' />
+<polygon points='378.09,285.90 378.41,284.71 378.80,283.45 379.28,282.11 379.89,280.65 380.69,278.99 381.86,276.97 385.29,272.70 385.19,272.60 380.89,275.99 378.85,277.13 377.18,277.91 375.71,278.50 374.37,278.96 373.11,279.34 371.91,279.65 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
+<polygon points='229.82,419.77 229.49,420.96 229.09,422.21 228.61,423.55 228.00,425.02 227.20,426.67 226.03,428.69 222.58,432.95 222.68,433.05 226.99,429.67 229.03,428.53 230.70,427.76 232.17,427.18 233.52,426.71 234.78,426.34 235.98,426.03 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
+<polygon points='329.67,321.38 329.34,322.57 328.95,323.82 328.47,325.16 327.87,326.63 327.07,328.28 325.90,330.31 322.46,334.57 322.56,334.67 326.87,331.29 328.90,330.14 330.57,329.37 332.04,328.78 333.39,328.32 334.65,327.94 335.84,327.63 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
 <polygon points='511.44,259.39 512.56,258.87 513.77,258.36 515.10,257.86 516.61,257.37 518.39,256.91 520.69,256.49 526.16,256.36 526.17,256.22 520.81,255.12 518.62,254.31 516.95,253.54 515.55,252.80 514.32,252.07 513.22,251.35 512.21,250.64 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<polygon points='407.57,129.67 406.87,128.65 406.17,127.54 405.46,126.30 404.73,124.89 403.98,123.22 403.20,121.02 402.17,115.64 402.03,115.65 401.82,121.12 401.38,123.41 400.90,125.19 400.39,126.69 399.87,128.02 399.35,129.22 398.81,130.33 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<polygon points='274.93,387.70 275.26,386.51 275.66,385.26 276.14,383.92 276.75,382.45 277.55,380.80 278.72,378.78 282.17,374.52 282.07,374.42 277.75,377.80 275.72,378.94 274.05,379.71 272.58,380.29 271.23,380.75 269.97,381.13 268.77,381.44 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
+<polygon points='408.59,143.06 407.89,142.04 407.19,140.93 406.48,139.69 405.75,138.29 405.00,136.61 404.22,134.41 403.19,129.03 403.04,129.04 402.84,134.51 402.40,136.81 401.91,138.58 401.41,140.08 400.89,141.41 400.36,142.61 399.83,143.72 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
+<polygon points='261.76,400.66 262.09,399.47 262.49,398.22 262.97,396.88 263.57,395.41 264.38,393.76 265.55,391.74 269.00,387.48 268.90,387.38 264.58,390.76 262.54,391.90 260.88,392.67 259.40,393.25 258.06,393.72 256.79,394.09 255.60,394.40 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
 <polygon points='453.54,245.46 452.42,245.98 451.21,246.49 449.88,246.99 448.37,247.48 446.59,247.94 444.29,248.36 438.81,248.49 438.80,248.64 444.17,249.73 446.36,250.54 448.03,251.31 449.43,252.05 450.65,252.78 451.76,253.50 452.77,254.21 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<polygon points='405.54,218.78 406.23,219.80 406.94,220.91 407.65,222.14 408.37,223.55 409.12,225.23 409.91,227.43 410.94,232.81 411.08,232.80 411.28,227.33 411.73,225.03 412.21,223.26 412.72,221.76 413.23,220.43 413.76,219.23 414.29,218.11 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<rect x='268.95' y='347.69' width='53.57' height='26.78' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
-<rect x='385.24' y='232.81' width='53.57' height='26.78' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
-<rect x='374.30' y='88.86' width='53.57' height='26.78' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
-<rect x='169.07' y='445.96' width='53.57' height='26.78' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
-<rect x='526.17' y='245.26' width='53.57' height='26.78' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
+<polygon points='404.52,205.39 405.21,206.41 405.92,207.52 406.63,208.75 407.36,210.16 408.10,211.84 408.89,214.04 409.92,219.42 410.06,219.41 410.26,213.94 410.71,211.64 411.19,209.87 411.70,208.37 412.21,207.04 412.74,205.83 413.28,204.72 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
+<rect x='268.95' y='334.30' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
+<rect x='385.24' y='219.41' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
+<rect x='374.30' y='75.47' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
+<rect x='169.07' y='432.57' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
+<rect x='526.17' y='231.87' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
 </g>
 <g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
 <text x='295.73' y='365.21' text-anchor='middle' style='font-size: 12.00px; fill: #00008B; font-family: sans;' textLength='6.67px' lengthAdjust='spacingAndGlyphs'>1</text>
diff --git a/tests/testthat/test-plot.R b/tests/testthat/test-plot.R
index 0874cc09d3a..82cc2e908d1 100644
--- a/tests/testthat/test-plot.R
+++ b/tests/testthat/test-plot.R
@@ -121,6 +121,7 @@ test_that("Edges stop at outside of rectangle node", {
     )
     plot(g,
       vertex.size = 30,
+      vertex.size2 = 30,
       vertex.color = rgb(0.1, 0.7, 0.8, 0.1),
       vertex.shape = "rectangle",
       layout = layout