r - 您可以重命名 R“格式表”中的列，而不会丢失以前应用的格式吗？

Question

感谢我对一个非常小的问题的任何想法。

我使用 R 中出色的 formattable 包创建了一个表，其中列标题使用关联的变量名称。这对于内部工作来说很好，但不是我打算将它们呈现给最终使用的方式。为了让它们在决赛桌中更具可读性，我重命名了它们，但新名称有点笨拙，所以我将其保存到最后一步。但是，我重命名的任何变量都会丢失以前应用的格式。

显而易见的解决方案是在我执行任何格式化之前重命名，但如前所述，这些名称对于代码来说可能有点冗长。有没有办法将列重命名为最后一步，但不会丢失以前应用的格式？我还没有在包文档中找到解决方案，但是由于我对 R 比较陌生，很可能我忽略了一些非常明显的东西——或者这种方法被认为是不好的做法，所以不是这样建议。

我在下面提供了一个工作示例。我正在使用 R v3.5.2 和可格式化版本 0.2.0.1 - 由于工作场所的安全性，我受到我可以使用的软件包（及其版本）的限制。非常感谢您的任何想法。

library(tidyverse)
library(formattable)
data("iris")

# A very simple summary of iris data
my_table <- iris %>% group_by(Species) %>%
  summarise(
    mean_sepal_length = mean(Sepal.Length),
    mean_sepal_width = mean(Sepal.Width)
  )

#Create my formattable with some arbitrary formatting
my_formattable <- formattable(
  my_table,
  align = c ("l", "r", "r"),
  list(
    Species = formatter("span", style = ~ style(
      color = "grey", font.weight = "bold"
    )),
    mean_sepal_length = color_bar('lightseagreen'),
    mean_sepal_width = color_bar('pink')
  )
)

my_formattable

# Change a column header to something more human-readable
my_formattable_renamed_cols <-
  my_formattable %>%  rename("Mean sepal length (cm)" = mean_sepal_length)

#Renamed columns lose their formatting
my_formattable_renamed_cols

标签： rformattable

Answer 1

my_table <- iris %>% group_by(Species) %>%
      summarise(
        `Mean sepal length (cm)` = mean(Sepal.Length),
        `Mean sepal width (cm)` = mean(Sepal.Width)
      )
    
    #Create my formattable with some arbitrary formatting
    my_formattable <- formattable(
      my_table,
      align = c ("l", "r", "r"),
      list(Species = formatter("span", style = ~ style(color = "grey", font.weight = "bold")),
        `Mean sepal length (cm)` = color_bar('lightseagreen'), `Mean sepal width (cm)` = color_bar('pink'))
    )