условное форматирование для настройки таблиц в R с помощью grid и gridExtra

Question

Я хочу отформатировать фрейм данных, который я преобразую в таблицу с помощью пакета grid и gridExtra в R. Например, у меня есть фрейм данных и этот R-код, который дает мне таблицу с синей ячейкой в ​​строке и втором столбце.

    g <- tableGrob(iris[1:4, 1:3])
    find_cell <- function(table, row, col, name="core-fg"){
      l <- table$layout
      which(l$t==row & l$l==col & l$name==name)
    }

    ind <- find_cell(g, 3, 2, "core-fg")
    ind2 <- find_cell(g, 2, 3, "core-bg")
    g$grobs[ind][[1]][["gp"]] <- gpar(fontsize=15, fontface="bold")
    g$grobs[ind2][[1]][["gp"]] <- gpar(fill="blue", col = "blue", lwd=5)
    grid.draw(g)

Как изменить этот формат, чтобы цвет / полнота цвета зависели от условия. Например, я оцениваю другое математическое выражение, и это дает мне 50%. В этом случае, как я могу покрасить ячейку только наполовину. Как настроить насыщенность цвета и интенсивность цвета в ячейке в зависимости от условия?