Маскирование выходных ячеек с подсчитанным <2

Question

Я пытаюсь найти способ скрыть или замаскировать ячейки из выходных данных, которые содержат менее определенного порога респондентов в CrossTable.Мне нужно, чтобы результаты отображались, но с заполнителем или NA в ячейке.

Я могу отфильтровать строки, которые приведут к ячейке, в которой не будет правильного числа респондентов, но это оставляет ячейку с 0. Это имеет значение при интерпретации вывода, как, например, 6 мужчини менее 5 женщин в строительстве отличается от 6 мужчин и 0 женщин в строительстве.

library(dplyr)
library(descr)
# Test Unique Combinations <2, Fake data 

Hide <- data.frame(Gend = c("Pref No Resp", "Male", "Male", "Male", "Male", "Male", "Male",
                            "Female", "Female", "Female", "Female"),
                   Job = c(1, 1, 1, 1, 1, 2, 2, 1, 2, 2, 1),
                  Dayson = c(0, 2, 3, 44, 55, 12, 12, 8, 10, 1, 2))

# Complete Output
CrossTable(Hide$Gend, Hide$Job, chisq = FALSE, prop.t = FALSE, prop.c = FALSE, prop.chisq = FALSE)

# If I Filter - 
Hide2 <- Hide %>% group_by(Gend, Job) %>% filter(n()>1)

CrossTable(Hide2$Gend, Hide2$Job, chisq = FALSE, prop.t = FALSE, prop.c = FALSE, prop.chisq = FALSE)

По сути, я ищу результаты в коде полного вывода, но с нижней строкой с NA, -99 или каким-то другим значением, которое скрыло бы результат без 0, но все ещеподдержание строк и столбцов.

Например, два значения (1 и 0) в приведенной выше строке «Pref No Resp» будут X или NA

Я использовал CrossTable из пакета descr, но открыт для других.Мне нужно максимально автоматизировать, так как скрипт будет использовать разные группы данных с большим количеством выходов.

Спасибо всем!