基于R中数据表第一行中的值的条件格式

Question

我有以下数据框：

df <- data.frame(
id = LETTERS[1:10],
score1 = c(30, 45, 30, 28, 33, 29, 27, 27, 31, 30),
score2 = c(40, 27, 30, 28, 47, 29, 27, 51, 31, 30))

df
   id score1 score2
1   A     28     28
2   B     27     27
3   C     30     30
4   D     28     28
5   E     29     29
6   F     29     29
7   G     27     27
8   H     27     27
9   I     31     31
10  J     30     30

有没有一种方法可以使用条件格式来基于与第一行中的值的比较来更改输出的颜色？ 具体来说，如果分数高于第一行的值，我希望score1和score2列中的所有值为红色，如果分数低于第一行的值，我希望绿色为绿色。

因此，对于score1，将值与30进行比较： 这些值应为红色：45、33、31。 这些值应为绿色：28、29、27、27

对于得分2，将值与40进行比较： 这些值应为红色：47、51。 这些值应为绿色：27、30、28、29、27、31、30。