Fix #227

thomasp85 · Jan 11, 2024 · 5fc1ba7 · 5fc1ba7
1 parent 3186ec4
commit 5fc1ba7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,8 @@
 
 * Fix a precision bug in circle pack layout (#345)
 * `GeomEdgeTile` now uses `edge_width` instead of `edge_size` for the border
+* Fix a bug in `geom_edge_parallel()` when used with edge labels. Edges are now
+ correctly offset, though label may still overlap (#227)
 
 # ggraph 2.1.0
 

diff --git a/R/geom_edge.R b/R/geom_edge.R
@@ -223,7 +223,7 @@ GeomEdgeParallelPath <- ggproto('GeomEdgeParallelPath', GeomEdgePath,
  label_dodge = label_dodge,
  label_push = label_push)
  if (inherits(panel, 'gList')) {
- panel[[1]]$sep <- (data$.position * sep)[panel[[1]]$id]
+ panel[[1]]$sep <- (data$.position[!duplicated(data$group)] * sep)[panel[[1]]$id]
  class(panel[[1]]) <- c('parallelPath', class(panel[[1]]))
  } else {
  panel$sep <- (data$.position[!duplicated(data$group)] * sep)[panel$id]