Условно форматная раскраска таблицы в R

Question

Есть ли способ условно отформатировать tableGrob ячейки / строки при использовании gridExtra экспортировать PDF-файлы? Основываясь на условных числовых значениях в кадре данных, я надеюсь изменить цвет фона фона форматирования / заливки для моего вывода PDF.

Пример данных:

 Name <- c('John','Adam','Jack')
 a <- c(1, 4, 3)
 b <- c(0, 6, 1)
 df1 <- data.frame(Name, a, b)

Прямо сейчас у меня есть простая тема для форматирования вывода:

mytheme <- gridExtra::ttheme_default(
    core = list(fg_params=list(cex = 0.6),bg_params=list(fill=c("#FFFFFF", "#F8F8F8"))),
    colhead = list(fg_params=list(cex = 0.6)),
    rowhead = list(fg_params=list(cex = 0.6)))

Это мой быстрый выходной код PDF:

 pdftitle=paste("Table-1.pdf",sep="")
  pdf(pdftitle,width=14, height=8)
  gridExtra::grid.table(df1,theme = mytheme, rows = NULL)
  dev.off()

Числовые значения в столбце a а также b Из данных выборки на самом деле удачные и неудачные события. В итоге я быстро найду процент успеха и добавлю его в свою таблицу для вывода.

Я надеюсь добиться форматирования всей строки таблицы в моем PDF-файле, чтобы любое значение, большее или равное 50% от df1 будет отформатирован в этом цвете: #C4122E и если ниже 50%, отформатирован как #1B458F