0

我正在尝试在调查数据上建立一个李克特图，唯一我不知道的是如何移动该原点，以便满意和非常满意在同一边。任何人都可以帮忙吗？

library(sjPlot)
library(sjmisc)

dta <- structure(list(`Medical: Overall` = structure(c(3L, 3L, 4L, 4L, 
4L, 3L, 4L, 4L, 3L, 1L, 3L), .Label = c("Don't Use", "Less Satisfied", 
"Satisfied", "Very Satisfied"), class = "factor"), `Medical: Plan Options` = structure(c(4L, 
3L, 4L, 4L, 4L, 2L, 4L, 3L, 3L, 1L, 3L), .Label = c("Don't Use", 
"Less Satisfied", "Satisfied", "Very Satisfied"), class = "factor"), 
    `Medical: Rx Costs` = structure(c(3L, 4L, 3L, 4L, 3L, 3L, 
    4L, 1L, 3L, 1L, 3L), .Label = c("Don't Use", "Less Satisfied", 
    "Satisfied", "Very Satisfied"), class = "factor"), `Medical: Mail Order for Rx` = structure(c(1L, 
    3L, 2L, 2L, 4L, 2L, 4L, 1L, 1L, 1L, 2L), .Label = c("Don't Use", 
    "Less Satisfied", "Satisfied", "Very Satisfied"), class = "factor")), row.names = 10:20, class = "data.frame")

clrs <- c("#FD6467", "#ABDDDE", "#81A88D")

plot_likert(dta, catcount=3, cat.neutral = 1, sort.frq="neg.desc", 
            reverse.colors=T, values = "show", show.n=F, digits=0, show.prc.sign=T, 
            show.legend=T, geom.colors=clrs)
4

1 回答 1

0

从文档中plot_likert

?plot_likert

笔记

请注意，只能绘制偶数个类别，因此“正”和“负”值可以分成两半。可以使用中性类别（如“不知道”），但必须由 cat.neutral 指示。

此函数不处理奇数个李克特响应。

于 2020-10-04T17:59:13.443 回答