在knitr中打印HTML或Word表格，以便考虑字符串中的空格

Question

使用 knit 和 Rstudio，我尝试将数据帧打印到 HTML 或 Word，以便 versicolor 中的前导空格将 versicolor 推到右侧。

#data
library(knitr ) 
library(xtable)

df <- iris[c(1,51),c(5,1)]
df$Species  <- as.character(df$Species)
df$Species[ df$Species=="versicolor"]  <- "         versicolor"

尝试 kable() 的不同组合...

#table
kable(  df)
kable(  df, right = FALSE,align = c("l", "l" ) )
kable(  df, right = FALSE,align = c("r", "l" ) )

我明白了：

...或这个：

但我试图得到这个：

Answer 1

如果你愿意修改一些 HTML：

df$Species[ df$Species=="versicolor"]  <- 
  "<code style='background:white'>         </code>versicolor"` will get you something like you want

或者

df$Species[ df$Species=="versicolor"]  <- 
  "<span style='padding-left:30px'>         versicolor</span>"

会给你留下空间填充。

后者甚至可能以编程方式更清晰（在padding-left.