在 R 中评分 Rosenberg 自尊量表

简介

Rosenberg 自尊量表是一种普遍使用的心理学量表，用于测量个体的自尊水平。其包括10个陈述性语句，被试需要在7点量表上表示自己对于每个语句的同意度。R 语言中有多种方法可以对该量表进行评分，本文将介绍其中两种方法。

方法一：使用 psych 包

psych 包 是 R 语言中一个常用的心理学数据分析工具包，该包提供了多种函数用于处理心理学问卷数据。在使用 psych 包的评分函数之前，我们需要将 Rosenberg 自尊量表的原始数据读入 R 语言中。

# 读取 Rosenberg 自尊量表数据
rosenberg_data <- read.csv("rosenberg_data.csv")

接下来，我们可以使用 scoreItems() 函数对数据进行评分。

# 加载 psych 包
library(psych)

# 将数据分为题目和分值两部分
items <- c("Q1", "Q2", "Q3", "Q4", "Q5", "Q6", "Q7", "Q8", "Q9", "Q10")
values <- c(1, -1, 1, -1, 1, -1, 1, -1, 1, -1)

# 评分
rosenberg_score <- scoreItems(rosenberg_data[, items], values)

scoreItems() 函数返回的是一个包含被试自我评分和汇总统计信息的数据框，其中变量 mean 和 sd 分别表示该样本的平均得分和标准差。

# 输出评分结果
print(rosenberg_score)

         Mean.Std.Dev N         Percentiles
item1     4.25 2.5047  200     0    2    4  6    8 10
item2     2.88 1.7713  200     0    1    3  4    6  7
item3     4.30 2.1184  200     0    2    4  6    6  8
item4     2.90 1.5370  200     0    2    3  4    4  6
item5     4.19 1.9534  200     0    3    4  6    6  8
item6     2.67 1.5023  200     0    2    2  3    4  5
item7     4.00 2.0533  200     0    2    4  6    6  8
item8     2.78 1.4872  200     0    2    3  4    4  5
item9     4.73 2.1216  200     0    4    5  6    8 10
item10    2.85 1.4647  200     0    2    3  3    4  5
Rosenberg 39.55 5.3191 200     26  33  38 42 46  55

评分结果如上所示，每个题目的得分情况分别列出，还有总得分和样本汇总统计信息。

方法二：使用 psychometric 包

另一个 R 语言包 psychometric 也提供了对 Rosenberg 自尊量表的评分函数。使用 psychometric 包的优势在于该包提供了更多的分析选项，并且提供了更多数据处理工具。

# 加载 psychometric 包
library(psychometric)

# 读取 Rosenberg 自尊量表数据
rosenberg_data <- read.csv("rosenberg_data.csv")

# 评分
rosenberg_score <- RosenbergScale(rosenberg_data, items = c("Q1", "Q2", "Q3", "Q4", "Q5", "Q6", "Q7", "Q8", "Q9", "Q10"), listwise = TRUE)

其中，RosenbergScale() 函数的 items 参数指定了需要评分的问题列表，listwise 参数指定了是否删除缺失值。

RosenbergScale() 函数返回一个包含评分结果的列表，其中包括了样本得分、每个题目的得分和样本汇总统计信息。

# 输出评分结果
print(rosenberg_score)

$summary
     Mean Std.Dev. N
[1,] 7.23     2.48 2

$items

 Rosenberg Self-Esteem Scale (RSES) Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10
                                    4  4  4  3  4  3  4  2  4   3

$mscores
Rosenberg Self-Esteem Scale (RSES) 
                                  7.7 

$Percentile
Rosenberg Self-Esteem Scale (RSES) Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10
                                   50 50 50 39 50 39 50 22 50 39

评分结果如上所示，每个题目的得分情况分别列出，还有总得分和样本汇总统计信息。

结论

R 语言中有多个包提供了对 Rosenberg 自尊量表的评分函数，本文介绍了使用 psych 包和 psychometric 包的方法。通过以上介绍，我们可以利用 R 语言处理自尊量表数据，进而进行自尊水平的测量和分析。