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