对于列中的第二个单元格，将来自formattable的color_tile与kableExtra组合

Question

我的目标是要有一个乳胶表，每隔两行有条件地根据单元格值与同一列中的其他值进行颜色格式化。

Example of wanted color coding with formattable

我认为根据我的专家谷歌搜索，可以使用formattable和kableExtra实现此目的： https://cran.r-project.org/web/packages/kableExtra/vignettes/use_kableExtra_with_formattable.html 和 kableExtra how to use cell_spec from a user defined range?

示例数据：

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

仅使用formattable时，此代码可用于html输出：

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