使用likert plot包绘图,包括组,并按最高百分比对结果进行排序

问题描述

我想绘制分组结果(使用李克特图),但分组顺序应保留最高百分比。我已经检查了这个问题一段时间,并没有找到任何可行的解决方案。我知道这个包使用了 ggplot,但由于未知原因(可能是我的限制),重新排序功能无法正常工作。

所需的情节和代码如下。谢谢

desired plot

pilot_ds <- structure(list(time = c(".Second","First",".Second","First"),Economy = structure(c(3L,4L,3L,2L,NA,1L,3L),.Label = c("Not at all","A little","Moderately","Very much"),class = "factor"),`My personal finance` = structure(c(3L,`My own health` = structure(c(4L,1L),`My friends and family health` = structure(c(4L,`Social cohesion` = structure(c(3L,`Food and pharmaceutical drugs` = structure(c(3L,`Price of grocery product` = structure(c(3L,`Stock prices` = structure(c(3L,`Children's academic achievement` = structure(c(4L,class = "factor")),class = "data.frame",row.names = c(NA,-100L))
likert(pilot_ds[-1],grouping = pilot_ds$time) %>% 
  plot(.,centered=TRUE,include.center=FALSE,ordered = T)

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)