R 在配对设计中填写缺少级别的表格

我有一个分类变量的重复测量设计。比如说，参与者在时间点1和2报告了他们的态度（“赞成”、“中立”、“不赞成”）。然后，我创建一个包含响应组合频率的表

#设置
种子集（123）
图书馆（tidyverse）
#编造数据
调查数据%
tidyr:：未计数（，计数）%>%
tibble:：as_tibble（）
#计数表
表（“1”=survey.data$`1st survey`，“2”=survey.data$`2nd survey`）
#>          2
#>1赞成不赞成中立
#>核准79 15 10
#>中性86 0 0

请注意，由于没有人在时间点1选择选项

“不批准”

，因此表中缺少该选项。当然，这是意料之中的。但是我想要使用的函数（

rcompanion:：cohenG

）要求表中的行数和列数相等。因此，我想知道如何更改上面的代码以获得预期的输出-

#>2
#>1赞成不赞成中立
#>核准79 15 10
#>不赞成
#>中性86 0 0

您可以对具有三个已知级别的因子转换响应

levels <- c("Disapprove", "Neutral", "Approve")

survey.data <- survey.data %>%
  mutate_at(vars(`1st survey`,
                 `2nd survey`),
            factor, levels = levels)

table(survey.data$`1st survey`,
      survey.data$`2nd survey`)
#>             
#>              Disapprove Neutral Approve
#>   Disapprove          0       0       0
#>   Neutral             0       0      86
#>   Approve            15      10      79

级别
#>不赞成，赞成
#>不赞成
#>中性0 0 86
#>批准151079

---

由（v0.2.1）创建于2019-03-08，您可以使用三个已知级别对因子进行响应

levels <- c("Disapprove", "Neutral", "Approve")

survey.data <- survey.data %>%
  mutate_at(vars(`1st survey`,
                 `2nd survey`),
            factor, levels = levels)

table(survey.data$`1st survey`,
      survey.data$`2nd survey`)
#>             
#>              Disapprove Neutral Approve
#>   Disapprove          0       0       0
#>   Neutral             0       0      86
#>   Approve            15      10      79

级别
#>不赞成，赞成
#>不赞成
#>中性0 0 86
#>批准151079

由（v0.2.1）于2019-03-08创建