我有兴趣打印一张表格，其中第二行的颜色基于该单元格中的值（与同一列中的其他值相比）。

目标是将输出作为Latex表，我认为可以使用formattable和kableExtra完成。我不知道如何将这两个结果放在一起以得到结果。

最小示例数据：

 df <- data.frame(Group = c("1.a","1.a","2.b","3.c","3.c"),var1 = c("1(ref)",35,"0.6 (0.5,0.7)",25,"0.7 (0.6,0.9)",20),stringsAsFactors = FALSE)

我想要与此类似的输出，但要作为可打印为word或pdf的乳胶表。

图片代码：

library(formattable)
 formattable(df,list(area(row = seq(2,nrow(df),by=2),col = var1  ) ~ 
                                      color_tile("transparent","pink")
      ))

有些链接指向相似的格式，但是没有“每第二行有条件”格式的示例。 Here和here。