在R语言中生成两位评分者一致性的交叉表

实现步骤与代码 #

1. 重构数据结构：将原始矩阵格式转换为每行对应一个受试者的数据框，让R1和R2作为独立变量，便于后续统计。
2. 生成交叉表：使用R内置的table()函数直接统计两个评分者的评分频数分布，指定R1为行、R2为列。

# 原始数据定义
pro <- c("P1", "P2", "P3", "P4", "P5")
R1 <- c("Poor", "Acceptable", "Acceptable", "Good", "Acceptable")
R2 <- c("Poor", "Acceptable", "Good", "Good", "Acceptable")

# 重构为标准数据框
df <- data.frame(
  Subject = pro,
  R1 = R1,
  R2 = R2
)

# 生成交叉表（R1为行，R2为列）
cross_table <- table(df$R1, df$R2)

# 查看结果
cross_table

运行上述代码后，输出的交叉表结果如下：

Poor Acceptable Good
  Poor       1          0    0
  Acceptable 0          2    1
  Good       0          0    1

生成美观的Markdown表格 #

如果需要输出格式化的表格，可以使用knitr包的kable()函数：

# 安装并加载knitr包（首次使用需执行安装命令）
# install.packages("knitr")
library(knitr)

# 转换为Markdown格式表格
kable(cross_table)

输出结果：

内容的提问来源于stack exchange，提问作者MetehanGungor