r - 更改 kableExtra 表中的特定值

Question

我正在寻找更改 kableExtra 表中的特定值。

这是一个例子。我创建了一个使用 kableExtra 输出的汇总统计表。统计数据基于 iris 数据集，我添加了一个 Year 变量。

iris %>% 
  mutate(Year = runif(n = 150, min = 2005, max = 2020) %>% 
           round(digits = 0)) %>% 
  sumtable(out = "kable",
           vars = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Year"),
           summ = c("notNA(x)", "mean(x)", "sd(x)", "min(x)", "max(x)"),
           summ.names = c("Count", "Mean", "St. Dev.", "Min", "Max")) %>% 
  kable_styling()

输出如下所示:

对于最后一行，均值和标准差不适用，而计数、最小值和最大值有一些用处。

因此，我想将 Year 行的均值和标准差值更改为 NA 或 -。有什么办法可以实现吗？

提前致谢。

Answer 1

您可以返回一个数据框，将所需的条目转换为 NA，然后设置 kable 的样式，例如

library(dplyr)
library(kableExtra)
library(vtable)


iris %>% 
  mutate(Year = runif(n = 150, min = 2005, max = 2020) %>% 
           round(digits = 0)) %>% 
  sumtable(out = "return",
           vars = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Year"),
           summ = c("notNA(x)", "mean(x)", "sd(x)", "min(x)", "max(x)"),
           summ.names = c("Count", "Mean", "St. Dev.", "Min", "Max")) %>%
  mutate(Mean = ifelse(Variable == "Year", NA_real_, Mean),
         `St. Dev.` = ifelse(Variable == "Year", NA_real_, `St. Dev.`))  %>%
  kable(digits = 2, caption = "Summary") %>%
  kable_styling()