horizontal: horizontal plots with DEV scales package causes problems

[davidhodge931]

horizontal: horizontal plots with DEV scales package causes problems

[davidhodge931]

For horizontal plots with multiple layers, it will work better if you make it vertically and then use coord_flip

[davidhodge931]

Option A: magic + coord_flip if adding layers
Option B: No magic + everything works

[davidhodge931]

This relates to 411 in scales

[davidhodge931]

4. If users are building a horizontal plot that includes multiple geoms, it is recommended that users build the plot vertically with ggblanket - and then use ggplot2::coord_flip to make it horizontally.

Users need to ensure that the scales built by their gg_* function are appropriate for subsequent layers. Plot scales are built by the gg_* function based on the data, x, y, *_limits, *_include, stat, position and coord arguments in the gg_* function.

# ggblanket + ggplot2
d <- penguins2 |>
  group_by(species) |>
  summarise(body_mass_g = mean(body_mass_g)) |>
  mutate(lower = body_mass_g * 0.95) |> 
  mutate(upper = body_mass_g * 1.2)

p1 <- d |>
  gg_col(
    x = species,
    y = body_mass_g,
    col = species,
    width = 0.75,
    y_include = c(0, max(d$upper)), 
    y_labels = \(x) x / 1000, 
    y_title = "Body mass kg",
    x_gridlines = TRUE, 
    y_gridlines = FALSE,
    col_legend_place = "n") +
  geom_errorbar(aes(ymin = lower, ymax = upper), 
                colour = "black",
                width = 0.1) +
  coord_flip()

p2 <- d |>
  gg_col(
    x = species,
    y = body_mass_g,
    col = species,
    colour = "#d3d3d3",
    fill = "#d3d3d3",
    width = 0.75,
    y_include = c(0, max(d$upper)), 
    y_labels = \(x) x / 1000, 
    y_title = "Body mass kg",
    x_gridlines = TRUE, 
    y_gridlines = FALSE,
    col_legend_place = "n") +
  geom_errorbar(aes(ymin = lower, ymax = upper), 
                width = 0.1) +
  coord_flip()

p1 / p2