r - Rでのテーブルの条件付きフォーマットカラーリング

Question

を使用して PDF をエクスポートするtableGrobときに、条件付きでセル/行を書式設定する方法はありますか? gridExtraデータフレームの条件付き数値に基づいて、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