Plot method for data_tabulate()?

[etiennebacher]

Asked in easystats/datawizard#419

It would be nice to have a plot method to do this:

library(ggplot2)
library(datawizard)

# Data Tabulate

## Desired input
dt <- data_tabulate(mpg, select = c("cyl", "drv"))
### Option 1: plot(dt)
### Option 2: data_tabulate(mpg, select = c("cyl", "drv"), plot = TRUE)

## Desired output
mpg |> 
  data_select(select = c("cyl", "drv")) |> 
  data_to_long() |> 
  ggplot(aes(x = value)) +
  facet_wrap(~name, scales = "free") +
  geom_bar()

^{Created on 2023-05-22 with reprex v2.0.2}

[etiennebacher]

@strengejacke I feel like this is very close to sjlabelled::plot_frq(), maybe there's a way to simply reuse this code?

[strengejacke]

I wrote sjPlot years ago, I don't think we want to use that code 😉