r - 如何用kables中的空白替换0

Question

我正在使用 kable 函数创建一个相当大的 html 表，该表中有很多 0。为了更清楚地显示相关信息，我试图通过用空格替换它们来隐藏表格中的 0。

现在，我正在尝试这样的事情，但它不起作用:

my_table = knitr::kable(...)
cat(gsub(0," ",my_table), sep = '\n')

与上述类似的东西可以删除 NA，但我似乎无法让它为 0 工作。

提前致谢!

编辑:示例数据:

Product = c('A','B','A','A','C','B')
Month = c('Jan', 'Feb', 'Feb', 'Apr', 'Jan', 'Feb')
my_data = data.frame(Product, Month)
my_table = table(my_data)
kable(my_table) #This has the 0's which I don't want

Product | Month

A       | Jan

B       | Feb

A       | Feb

A       | Apr

C       | Jan

B       | Feb

电流输出:

----Jan  Feb  Mar Apr

A  1 1 0 1

B  0 2 0 0

C  1 0 0 0

期望的输出:

----Jan Feb Mar Apr

A 1 1 - 1

B - 2 - -

C 1 - - -

除了“-”将是一个空格而不是一个破折号

EDIT2:没关系，即使这真的很hacky，我也想通了:

my_kable = knitr::kable(my_table)
gsub(0, ' ', my_kable)

哈哈

Answer 1

你原来的原因gsub不起作用的原因是它正在将表格展平为向量。维护表结构的众多选择之一是使用 replace功能:

knitr::kable(replace(my_table, my_table==0, ""))

#|   |Apr |Feb |Jan |
#|:--|:---|:---|:---|
#|A  |1   |1   |1   |
#|B  |    |2   |    |
#|C  |    |    |1   |