r - 使用格式化表根据另一列的值为列着色

Question

使用 formattable 包，很容易根据自己的值为一列着色：

formattable::formattable(mtcars[1:3,1:2],list(mpg=color_text("blue","red")))

有没有办法根据列 mpg 中的值来为列 cyl 着色？谢谢！！

Answer 1

请参阅“列表”下的第二个参数：

library(formattable)

formattable::formattable(mtcars[1:3,1:2], 
                     list(mpg = color_text("blue","red"),
                          cyl = formatter("span",
                                          style = x ~ style(color = ifelse(mtcars$mpg[1:3] == 21, "blue", "red")))))

“...我们将 x 定义为值，将其放在 ~ 的左侧，然后在右侧的函数中使用它（它是一个 lambda 函数，使用一些行话）” 在这里阅读更多