Repository navigation
Collect axes: tick mis-alignment #436
Description
Fantastic package.
Currently, I am evaluating the options to collect axis_titles, axes, and guides.
I am hitting the issue that axes with identical labels but different tick positions are collected:
library(ggplot2)
library(patchwork)
x <- data.frame(
x = c(-0.1, 1, 2, 1, 2, 3, 4, 1),
z = c(-0, 1, 2, 1, 2, 3, 4.1, 1),
y = 1:8
)
p1 <- ggplot(x, aes(x, y)) +
geom_point()
p2 <- ggplot(x, aes(z, y)) +
geom_point()
wrap_plots(list(p1, p2), axes = "collect", axis_titles = "collect", ncol = 1)
My workaround is to call get_guide_data(), check if all columns correspond across plots and set axes correctly.
get_guide_data(p1, aesthetic = "x")
# x .value .label y
# 1 0.06762749 0 0 0
# 2 0.28935698 1 1 0
# 3 0.51108647 2 2 0
# 4 0.73281596 3 3 0
# 5 0.95454545 4 4 0
get_guide_data(p2, aesthetic = "x")
# x .value .label y
# 1 0.04545455 0 0 0
# 2 0.26718404 1 1 0
# 3 0.48891353 2 2 0
# 4 0.71064302 3 3 0
# 5 0.93237251 4 4 0
# Also useful
ggplot2::get_labs(p1)Is this behaviour as intended?
Activity