我有一个看起来像这样的数据框：
from to value sourceID targetID clustid
1 1400 1413 0.6846 3055586 3060697 1
2 323 661 0.5550 1596205 724084 1
3 323 1411 0.6817 724084 3060607 1
4 1413 1411 0.6729 3060697 3060607 1
5 1498 1411 0.6381 3111960 3060607 1
6 1478 1415 0.7423 3062164 3099199 2
7 1478 1414 0.7423 3099199 3062163 2
8 1415 1462 0.7078 3090708 3062164 2
9 1415 1463 0.7078 3062164 3090709 2
10 1462 1404 0.7078 3090708 3058341 2
11 1418 278 0.5048 3064885 612944 3
12 1418 851 0.5595 3064885 1919812 3
13 1418 1355 0.5932 3064885 3018082 3
14 1417 278 0.5048 3064884 612944 3
15 1417 851 0.5595 3064884 1919812 3
16 862 851 0.6109 1935866 1919812 3
17 525 1632 0.6565 1365467 3458397 4
18 525 506 0.6031 1365467 1312582 4
19 1445 526 0.5288 3083388 1365468 4
20 1445 1632 0.5077 3083388 3458397 4
21 1445 1271 0.7222 3083388 2933726 4
22 526 1270 0.5121 1365468 2933725 4
23 611 582 0.6245 1477137 1519842 5
24 611 567 0.6245 1519842 1450552 5
25 611 579 0.5230 1519842 1469099 5
26 582 568 0.6381 1477137 1450553 5
27 567 616 0.7150 1450552 1528881 5
28 120 121 0.7719 370873 370871 6
29 120 438 0.6054 370871 1145838 6
30 120 166 0.5995 370871 431814 6
31 121 125 0.6452 370873 374920 6
32 121 439 0.6054 370873 1145839 6
我正在使用formattable创建一个 html 输出。
我想根据值为背景着色clustid
我第一次尝试：
formattable(df,
list(area(col = names(df)) ~ formatter("span",
style = ~ style(color = ifelse(df$clustid %% 2, "red", "grey")))))
但这只会改变文本本身的颜色。
从有限的文档和这个问题Formattable based on multiple columns和一些其他资源，我设法拼凑了以下内容：
formattable(df, list(area(col = names(df)) ~ formatter("span", style = ~ style("background-color" = ifelse(df$clustid %% 2, "white", "grey")))))
这会产生：
我不想突出单词本身的背景，而是想突出整行本身。
我宁愿突出显示整行，而不仅仅是单个单元格。如何才能做到这一点？
非常感谢 ：）
编辑：最初包括以下内容，color-tile但似乎这是针对特定列的跨行渐变，因此在这种情况下不适用。
[这是不正确的，但不要散布原始问题]
formattable(df, list(area(1:5) ~ color_tile("transparent", "lightgray")
但是当然，没有包含相应的图像来显示输出，甚至测试数据本身......
当我尝试用我的条件语句来实现它时，我收到以下错误：
formattable(df, list(area(col = names(df)) ~ color_tile(ifelse(df$clustid %% 2, "white", "grey"))))
Error in grepl(if (alpha) "^#([0-9a-fA-F]{2}){3,4}$" else "^#([0-9a-fA-F]{2}){3}$", :
argument "max.color" is missing, with no default