在kable表中格式化/引用字符串

Question

我正在尝试格式化kable表格列以用引号括起字符串。我的问题是，我无法区分标签，如果它们有尾随或领先的空间或类似的问题。

library(knitr)
kable(as.data.frame(table(c('',' ',' '))), format='html')

我的首选输出是这样的：

|Var1 | Freq|
|:----|----:|
| " " |    3|
|  "" |    5|

Answer 1

感谢NicE，我创建了一个解决问题的小功能。

myKableCount <- function(x) {
  df <- as.data.frame(table(x), stringsAsFactors=FALSE)
  df[[1]] <- paste0('"', df[[1]], '"')
  kable(df)
}