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

如何解决您可以重命名R“格式表”中的列，而又不会丢失以前应用的格式吗？

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

我使用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

解决方法

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'))
    )