不要删除 kable 函数中的空格 - 举例

我正在汇总数据并在 Shiny 应用程序中创建一个表。我的基本问题是，我想在连接字符串的元素之间添加一些额外的空格，以便它更具可读性，但添加的空格似乎消失了。我认为paste()函数在“+/-”符号周围适当地添加了额外的空格，但是使用kable或kableExtra创建表会删除空格。

我想我是在问和这个人问的问题一样 https://stackoverflow.com/questions/54842561/do-not-remove-spaces-in-kable-function，但该人没有提供完整的可重现示例。我尝试使用 iris 数据集创建一个下面的表示。

我曾三次尝试使用 mutate() 创建带有“+/-”符号的新变量。我最好的理解是，这并不是真正的问题。我希望能够在此符号的两侧添加任意数量的空格以提高可读性。

library(tidyverse)
library(kableExtra)


data(iris)


data.summary = iris %>% 
  group_by(Species) %>% 
  summarise(N = n(),
            avg.sepal.width = round(mean(Sepal.Width),2),
            sd.sepal.width = round(sd(Sepal.Width),2)) %>% 
  # mutate(table.name = paste(avg.sepal.width, '\u00B1', sd.sepal.width)) %>% 
  # mutate(table.name = paste(avg.sepal.width, '\u00B1', sd.sepal.width, sep= "    ")) %>% 
  mutate(table.name = paste(avg.sepal.width, '   ', '\u00B1','   ', sd.sepal.width, sep= "    ")) %>% 
  


  knitr::kable(caption = "Iris Avg Sepal Width \u00B1 Standard Deviation ", align = "c") %>%
  kableExtra::kable_styling(bootstrap_options = c("striped", "hover", "condensed"), full_width = F, position = "left") 


data.summary

以下是在 RStudio 中查看的结果表的屏幕截图。使用Shiny时，结果是一样的。无论我添加多少个空格，当在此表中格式化时它们都会消失

这不是一个kable问题。这就是 html 的行为方式。如果您想在文本中添加额外的空格，您需要添加" "到你的文字。将此作为您的粘贴分离器，并确保您转动escape = FALSE inside kable:

library(tidyverse)
library(kableExtra)

data(iris)

data.summary = iris %>% 
  group_by(Species) %>% 
  summarise(N = n(),
            avg.sepal.width = round(mean(Sepal.Width),2),
            sd.sepal.width = round(sd(Sepal.Width),2)) %>% 
  mutate(table.name = paste(avg.sepal.width, '\u00B1', 
                            sd.sepal.width, sep = " ")) %>% 
  knitr::kable(caption = "Iris Avg Sepal Width \u00B1 Standard Deviation ", 
               align = "c", escape = FALSE) %>%
  kableExtra::kable_styling(bootstrap_options = c("striped", "hover", "condensed"), 
                            full_width = F, 
                            position = "left") 

data.summary