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   |

Answer 2

你可以试试：

gsub(" 0", "  ", kable(my_table))

Answer 3

您可以使用 base R gsub()：

gsub(0, " ", kable(my_table))

要得到：

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