在R中对李克特量表（likert）数据进行可视化描述性统计分析，热力图、密度图、柱状图

在R中对李克特量表带数据进行可视化描述性统计分析

李克特量表是一种常用的社会调查问卷模式。常规论文中对多级的李克特量表数据大多计算均值来进行描述性统计分析，但均值较难表现样本整体分布状况，R中likert package可以协助完成多种可视化图表的描述性统计分析，如下柱状图、热力图、密度图等。相对于传统表格，更清晰直观漂亮。而且likert package语法也很简单。

#安装likert package
if(!require(likert)){install.packages("likert")}
library(likert)
library(magrittr)
#创建数据
input <- ("
  A       B       C
  3       2       4
  5       4       4
  4       2       3
  4       2       4
  3       1       5
  4       2       3
  4       3       5
  4       2       2
  4       5       4
  5       3       3
")

df_likert <- read.table(textConnection(input), header = TRUE)
#分类定级
df_likert$A <- factor(df_likert$A,
                         levels = c("1", "2", "3", "4", "5"),
                         ordered = TRUE)
df_likert$B <- factor(df_likert$B,
                           levels = c("1", "2", "3", "4", "5"),
                           ordered = TRUE)

df_likert$C <- factor(df_likert$C,
                             levels = c("1", "2", "3", "4", "5"),
                             ordered = TRUE)

因为李克特量表的是定序、有级别差异的，所以一定要用factor给变量分级。

1.柱状图

likert(df_likert) %>%
  plot(type = "bar")

如图

2.热力图

likert(df_likert) %>%
  plot(
    type = "heat",
    low.color = "white",
    high.color = "blue",
    text.color = "black",
    text.size = 4,
    wrap = 50
  )

如图

3.密度图

likert(df_likert) %>%
  plot(type = "density",
       facet = TRUE,
       bw = 0.5)

如图

参考资料
[1]https://www.rdocumentation.org/packages/likert/versions/1.3.5
[2]https://rcompanion.org/handbook/E_03.html