Блог

благодарен за любые мысли по очень незначительной проблеме, которая у меня есть.

Я создал таблицу, используя превосходный пакет formattable в R, в котором заголовки столбцов используют имя связанной переменной. Это хорошо для внутренней работы, но я не собираюсь представлять их для окончательного использования. Чтобы сделать их более удобочитаемыми для окончательной таблицы, я переименовал их, но новые имена немного громоздки, поэтому я сохраняю это до последнего шага. Однако любые переменные, которые я переименовываю, теряют ранее примененное форматирование.

Очевидным решением является переименование до того, как я выполню какое-либо форматирование, но, как уже упоминалось, имена могут быть немного подробными для кода. Есть ли способ переименовать столбцы в качестве последнего шага, но не потерять ранее примененное форматирование? Мне еще предстоит найти решение в документации пакета, но, поскольку я относительно новичок в 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'))
    )