问题描述
我想借助令人惊叹的sjplot-Package（有点像，但是使用不同的包：Plotting likert scale questions and grouping them）来创建Likert-Plots，其中每个项目的相对频率都由一个因素（例如性别）。没有这种解决方法（不是很喜欢）有没有办法做到这一点？
library(tidyverse)
library(sjplot)
plot_df <- tibble(VAR_1 = sample(c(1:4),100,replace = TRUE,prob = c(0.1,0.3,0.4,0.2)),VAR_2 = sample(c(1:4),prob = c(0.4,0.25,sex = sample(c("male","female"),prob = c(0.49,0.51)))
plot_df <- plot_df %>%
transmute(VAR_1_male = case_when(sex == "male" ~ VAR_1,TRUE ~ NA_integer_),VAR_1_female = case_when(sex == "female" ~ VAR_1,TRUE ~ NA_integer_),VAR_2_male = case_when(sex == "male" ~ VAR_2,VAR_2_female = case_when(sex == "female" ~ VAR_2,TRUE ~ NA_integer_))
plot_df %>% plot_likert()
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）