R tablegrob условного форматирования для установки цветов на основе значений столбцов

Question

Есть ли способ условного форматирования столбца объекта tableGrob или gtable и его цвет (красный, желтый или зеленый) на основе условного формата?Например:

library(gridExtra)
library(grid)
d = head(iris, 20)
d
grob=tableGrob(d)

Я хочу изменить Sepal.Width и раскрасить его на основе значений Petal.Length.Если Petal.Length = 1.1, тогда установите его на красный, если это 1.4, тогда установите на желтый, а если 1.7, то на зеленый.

Answer 1

Для этого можно использовать пакет condformat, и его синтаксис довольно понятен, я считаю:

library(condformat)
data(iris)
condformat(head(iris, 20)) %>%
  rule_fill_discrete(
    columns = Sepal.Width,
    expression = Petal.Length,
    colours = c("1.1" = "red", "1.4" = "yellow", "1.7" = "green")) %>%
  condformat2grob()