我有一个由两个评分员打分的科目组成的数据集.我想获取找到评分者一致意见的 case 的交叉表.
# Column names
pro <- c("P1", "P2", "P3", "P4", "P5")
# Rows
R1 <- c("Poor", "Acceptable", "Acceptable", "Good", "Acceptable")
R2 <- c("Poor", "Acceptable", "Good", "Good", "Acceptable")
# Data
data1 <- rbind(R1, R2)
colnames(data1) <- pro
as.data.frame(data1)
期望结果(行中为R1的评级，列中为R2的评级):
| Poor | Acceptable | Good |
|---|---|---|
| 1 | 0 | 0 |
| 0 | 2 | 1 |
| 0 | 0 | 1 |