Условное форматирование на основе значения в первой строке таблицы данных в 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.