library(volker)
data <- volker::chatgpt
plot_counts_items_grouped(
data, starts_with("cg_adoption_"), adopter,
category=c("agree","strongly agree")
)
plot_counts_items_grouped(
data, starts_with("cg_adoption_"), adopter,
category=c(4,5)
)
Run the code above in your browser using DataLab