R语言绘图—李克特图

R语言与医学生

医师执业证书持证人

李克特量表顾名思义是有李克特（美国社会心理学家）于1932年对原有的量表改善而成，该表通过一组与某个主题相关的问题，通过计算量表中各题的得分，了解人们对某问题得综合态度或看法。李克特量表的尺度形式有多种，我们常见是五级量表，即五个答项，另外还会有四级量表、七级量表、九级量表等。其范围从一个极端的态度到另一个极端，如“非常可能”到“根本不可能”或者“非常同意”到“非常不同意”。这在问卷调查中经常用到，那么我们怎么来可视化问卷结果呢？

在R中李克特量表得绘制可通过Likert包来实现。Likert包，旨在帮助分析和可视化Likert类型的项目。这是该包得网页： GitHub - jbryer/likert: Package to analyze likert based items.

函数用法

Usage
likert(items, summary, grouping = NULL, factors = NULL, importance,
  nlevels = length(levels(items[, 1])))

一、数据集结构及绘图

library(likert)
#加载R自带得数据集
data(pisaitems) 
items28 <- pisaitems[, substr(names(pisaitems), 1, 5) == "ST24Q"]
#查看数据集得结构
View(items28)

大家绘制前需要把数据整理好如上的格式

#绘图
p <- likert(items28) 
P#p的格式如下

plot(p)

图形默认是以0为中心绘图的，我们可以通过centered参数来控制是否以0为中心

#不以0为中心
plot(p,centered=FALSE, wrap=30)

#以0为中心
plot(p,centered=T, wrap=30)

center参数可以改变条图的位置

plot(p,centered=T, center=2, wrap=30)

指定颜色

plot(p,centered=T, center=2, wrap=30,
     colors=c('orange','darkorange','pink','skyblue'),#指定条形图的颜色
     )

为每个问题后添加数据概况

library(grid)
plot(p,centered=T, center=2, wrap=30,
     include.histogram=TRUE)

绘制密度图

plot(p,centered=T, center=2, wrap=30,
     include.histogram=F,#不添加统计概况
     type='density',#绘制密度图