Error in ggforce::geom_link2()

[RenaLYY]

Hi,
Thanks a lot for developing the powerful dynverse series software. But I come across an issue in plotting, could you please help me to fix it.

This is the code that I used and the error message that I receive:

library(tidyverse)
library(dyno)

get trajectory

data(example_bifurcating)
trajectory <- example_bifurcating %>% add_root()

gather some prior information

grouping <- trajectory$prior_information$groups_id
groups <- tibble(
group_id = trajectory$milestone_ids,
color = dynplot:::milestone_palette_list$auto(length(group_id))
)
features_oi <- apply(as.matrix(trajectory$counts), 2, sd) %>% sort() %>% names() %>% tail(10)
feature_oi <- features_oi[[10]]

patchwork::wrap_plots(
plot_dimred(trajectory) + labs(title = "Topology"),
plot_dimred(trajectory, "milestone") + labs(title = "Ordering"),
plot_dimred(trajectory, grouping=grouping, groups=groups) + labs(title = "Grouping/clustering"),
plot_dimred(trajectory, feature_oi=feature_oi) + labs(title = "Expression of\na single gene"),
plot_dimred(trajectory, "pseudotime") + labs(title = "Pseudotime"),
byrow = TRUE,
ncol = 3
) & theme(legend.position = "none")

Coloring by milestone
Using milestone_percentages from trajectory
Using milestone_percentages from trajectory
Coloring by grouping
Coloring by expression
Pseudotime not provided, will calculate pseudotime from root milestone
Error in ggforce::geom_link2():
! Problem while converting geom to grob.
ℹ Error occurred in the 7th layer.
Caused by error in [.data.frame:
! undefined columns selected
Run rlang::last_error() to see where the error occurred.

rlang::last_error()
<error/rlang_error>
Error in ggforce::geom_link2():
! Problem while converting geom to grob.
ℹ Error occurred in the 7th layer.
Caused by error in [.data.frame:
! undefined columns selected

Backtrace:

1. base (local) <fn>(x)
2. patchwork:::print.patchwork(x)
3. patchwork:::build_patchwork(plot, plot$layout$guides %||% "auto")
4. base::lapply(x$plots, plot_table, guides = guides)
5. patchwork:::plot_table.ggplot(X[[i]], ...)
6. ggplot2::ggplotGrob(x)
7. ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
8. ggplot2:::by_layer(...)
9. ggplot2 (local) f(l = layers[[i]], d = data[[i]])
10. l$draw_geom(d, layout)
11. ggplot2 (local) draw_geom(..., self = self)
12. self$geom$draw_layer(...)
13. ggplot2 (local) draw_layer(..., self = self)
14. base::lapply(...)
15. ggplot2 (local) FUN(X[[i]], ...)
16. self$draw_panel(...)
17. ggforce (local) draw_panel(...)
18. ggforce:::dapply(...)
19. base::lapply(...)
20. ggforce (local) FUN(X[[i]], ...)
21. ggforce (local) fun(cur_data, ...)
22. base::[.data.frame(df, , c("alpha", "colour", "size", "linetype"))
23. base::stop("undefined columns selected")
    Run rlang::last_trace() to see the full context.