Refactor: Replace deprecated size aesthetic with linewidth for li…

…nes in ggplot2 3.4.0.
yanlinlin82 · Sep 15, 2024 · 0d6914a · 0d6914a
1 parent 4c0ab38
commit 0d6914a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/geom_venn.R b/R/geom_venn.R
@@ -224,7 +224,7 @@ GeomVenn <- ggproto("GeomVenn", Geom,
                                     segmentsGrob(d3$x, d3$y, d3$xend, d3$yend,
                                                  default.units = "native",
                                                  gp = gpar(col = attr$text_color,
-                                                           size = attr$text_size * .pt)))
+                                                           lwd = attr$text_size * .pt)))
                       }
                       ggplot2:::ggname("geom_venn", grobTree(gl))
                     }

diff --git a/R/ggvenn.R b/R/ggvenn.R
@@ -127,7 +127,7 @@ ggvenn <- function(data, columns = NULL,
       geom_segment(data = venn$segs,
                    aes(x = x, y = y, xend = xend, yend = yend),
                    color = text_color,
-                   size = 0.5)
+                   linewidth = 0.5)
   }
   g <- g +
     scale_fill_manual(values = fill_color) +