Может, это просто, но решения я не нашел.
Проблема заключается в нулевом счетчике в перекрестной таблице в р. Если все элементы в строке или столбце кросс-таблицы, команда table
не отображает эту строку или столбец. Насколько я понимаю, есть решение с командой tabulate
для случая одного вектора, но я не могу найти решение для кросс-таблиц.
Ниже приведен простой пример того, «что я получаю» и «что я хочу».
a <- c(rep("a", 4), rep("b", 4))
b <- rep("a", 8)
table(letter1 = a, letter2 = b)
# What I get
# letter2
# letter1 a
# a 4
# b 4
# What I want
# letter2
# letter1 a b
# a 4 0
# b 4 0
Вы можете преобразовать b
в коэффициент и указать соответствующие уровни.
table(letter1 = a, letter2 = factor(b, levels = unique(a)))
# letter2
#letter1 a b
# a 4 0
# b 4 0