iago-pssjd
commented
2 months ago Reproducible example with R 4.0.5 (and probably newer). I use library checkout to a sane and compatible installation of libraries before geomnet being archived (therefore ggplot2 3.3.3, ggrepel 0.9.0, geomnet 0.3.1):
(GeomTextRepel used in https://github.com/sctyner/geomnet/blob/master/R/geom-net.r)
library(checkpoint)
checkpoint("2021-01-01")
options(checkpoint.mranUrl="https://packagemanager.posit.co/")
install.packages('ggplot2')
install.packages('ggrepel')
install.packages('geomnet')
library(dplyr)
library(geomnet)
data(theme_elements)
# data step
TEnet <- fortify(as.edgedf(theme_elements$edges[,c("parent", "child")]), theme_elements$vertices)
# create a degree variable for use later
TEnet <- TEnet %>%
group_by(from_id) %>%
mutate(degree = sqrt(10 * n() + 1))
# plot
ggplot(data = TEnet,
aes(from_id = from_id, to_id = to_id)) +
geom_net(layout.alg = "fruchtermanreingold",
aes(fontsize = degree), directed = TRUE,
labelon = TRUE, size = 1, labelcolour = 'black',
ecolour = "grey70", arrowsize = 0.5,
linewidth = 0.5, repel = TRUE) +
theme_net() +
xlim(c(-0.05, 1.05))
Error in `$<-.data.frame`(`*tmp*`, "point.size", value = numeric(0)) :
replacement has 0 rows, data has 53
rlang::last_trace()
<error/rlang_error>
Can't show last error because no error was recorded yet
Backtrace:
█
1. └─rlang::last_trace()
2. └─rlang::last_error()
traceback()
23: stop(sprintf(ngettext(N, "replacement has %d row, data has %d",
"replacement has %d rows, data has %d"), N, nrows), domain = NA)
22: `$<-.data.frame`(`*tmp*`, "point.size", value = numeric(0))
21: `$<-`(`*tmp*`, "point.size", value = numeric(0))
20: makeContent.textrepeltree(x)
19: makeContent(x)
18: drawGTree(x)
17: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
16: grid.draw.gTree(x$children[[i]], recording = FALSE)
15: grid.draw(x$children[[i]], recording = FALSE)
14: drawGTree(x)
13: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
12: grid.draw.gTree(x$children[[i]], recording = FALSE)
11: grid.draw(x$children[[i]], recording = FALSE)
10: drawGTree(x)
9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
8: grid.draw.gTree(x$children[[i]], recording = FALSE)
7: grid.draw(x$children[[i]], recording = FALSE)
6: drawGTree(x)
5: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
4: grid.draw.gTree(gtable)
3: grid.draw(gtable)
2: print.ggplot(x)
1: (function (x, ...)
UseMethod("print"))(x)
slowkow
aphalo
Sorry for lack of specificity on title.
Summary
I am trying to update an archived package which calls to
ggrepel. Although it passes all the tests, certain example working either withggplot2::GeomText$draw_panel(labels, panel_scales, coord)orggplot2::GeomTextRepel$draw_panel(labels, panel_scales, coord)(or with label instead of text), it works with theggplot2version, but it gives an error with theggrepeloption.First, I am working with current R 4.4.1 and
ggplot2release 3.4.3 on Debian 12.I see that until commit 1a267f4 (2018-10-30) (and/or CRAN release 0.8.2), it works. After commit f4ebe30 (2019-01-02), it does not print labels and it produces
Same until commit 306c074 (2019-04-30). From commit b8352c1 (2019-05-01) to commit e02dfdf (2019-11-03) I cannot even install the package. Then, with commit 8d16037 (2019-11-03) I can install again, the used code print no labels and then, when printing the produced plot, I get the error
where
labelsis adata.framewith 53 rows (see below); and this is the same as for most recent versions of bothggplot2andggrepel(from CRAN release 0.9.0) installed.I tried using
ggplot2::GeomTextRepel$draw_panel(labels, panel_scales, coord, max.overlaps = Inf)with the same result.May you give me some hint on how should I proceed?
Thanks a lot!
The objects passed to `GeomTextRepel`: