具有 formattable （或任何其他包）的列中每隔一行的条件颜色格式

Question

我有一个类似于下面的数据表（原来是 10 列和 34 行）。我想根据每个单元格中的值有条件地每隔一行设置颜色格式。所有带数字的行都应格式化为 (35, 25, 20)。

我还希望在 Group 列中只包含一个双峰，同时在 Obesity 列中保留它们引用的两行。不知道这是否可行。

>df
Group    Obesity       
1.a      1(ref)          
1.a      35             
2.b      0.6 (0.5,0.7)         
2.b      25              
3.c      0.7 (0.6,0.9)           
3.c      20

这是适用于普通数字列的代码，它也适用于示例数据，但颜色不正确。

formattable(df, list(
      Obesity = color_tile("darkorange",  "white") 

    )) 

可重复的数据

 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)

Answer 1

像这样？

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))
library(formattable)
formattable(df, list(area(row = seq(2, nrow(df), by=2), col = Obesity) ~ 
                       color_tile("transparent", "pink")))

PS：确实，这个问题可以用更清晰的方式提出；-)