将字体大小应用于格式化表中的多个列后，将字体大小设置为 header 的元素

Question

使用下面的代码，我可以自定义列 mpg 和 disp 的格式：

library(formattable)
data(mtcars)

df <- mtcars

f1 <- formatter("span", style = x ~ style(color = ifelse(x > 0, red, blue), "font-size:20px"))
f2 <- formatter("span", style = x ~ style("font-size:20px"))

formattable(df, list(
  `mpg` = f1,
  `disp` = f2
  ))

根据我上面所做的，我想通过将 f2 应用于 header:

来设置 header 元素的字体大小

formattable(df, list(
  `mpg` = f1,
  `disp` = f2,
  names(df) <- f2(names(df))
  ))

但是您可能会注意到，mpg 和 disp 的效果已经消失，有什么办法可以解决这个问题吗？谢谢。

Answer 1

问题由以下代码解决：

library(formattable)
data(mtcars)

df <- mtcars

f1 <- formatter("span", style = x ~ style(color = ifelse(x > 0, red, blue), "font-size:20px"))
f2 <- formatter("span", style = x ~ style("font-size:20px"))

df$mpg <- f1(df$mpg) 
df$disp <- f2(df$disp) 
names(df) <- f2(names(df))
formattable(df)

输出：

将字体大小应用于格式化表中的多个列后，将字体大小设置为 header 的元素

Set font size to header's elements after applied a fomatter to multiple columns in formattable

r

formattable