`geom_interactive_col` tooltip messes up order of categories about ggiraph

[davidgohel]

You need to add a group aesthetic

library(ggiraph)
library(ggplot2)
data <- structure(list(
  variable_label = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), levels = c("Bejing", "Brussels", "Budapest"), class = c("ordered", "factor")),
  category = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), levels = c("Not at all", "A bit", "A lot"), class = "factor"),
  count = c(55L, 37L, 8L, 40L, 48L, 12L, 45L, 42L, 13L),
  proportion = c(0.55, 0.37, 0.08, 0.4, 0.48, 0.12, 0.45, 0.42, 0.13),
  data_label = c("0.55", "0.37", "0.08", "0.40", "0.48", "0.12", "0.45", "0.42", "0.13"),
  Tooltip = c("Not at all: 55", "A bit: 37", "A lot: 8", "Not at all: 40", "A bit: 48", "A lot: 12", "Not at all: 45", "A bit: 42", "A lot: 13")
), class = "data.frame", row.names = c(NA, -9L))

zz <- ggplot(data, aes(
  y = proportion,
  x = variable_label,
  fill = category,
  label = data_label,
  group = category
),
cumulative = TRUE
) +
  geom_col_interactive(
    mapping = aes(tooltip = Tooltip), # Messes up category order
    position = position_stack()
  ) +
  geom_text(position = ggplot2::position_stack(vjust = .5))

[sda030]

Oh, whoops, this will be an easy workaround that I should have tried. Still found it a bit surprising as specifying group = is not necessary with regular ggplot2. But as long as it works I am happy! Thanks.