Как заполнить ячейку на основе того, что % ячейки больше, чем % другой ячейки в таблице gt?

#r #gt

Вопрос:

 as_gt(dispro_tabl) %gt;%  tab_style(  style = list(cell_fill(color = "lightcyan")),  locations = cells_body(  rows = stat_1 gt; stat_4))  

введите описание изображения здесь

Ячейка заполнения, по-видимому, работает правильно для первых двух вопросов опроса, но в вопросе 3 она не работает. Выделенная ячейка не должна быть заполнена, потому что stat_1 lt; stat_4, и другая ячейка должна быть выделена («Определенно верно»), потому что stat_1 gt; stat_4.

Как заполнить строку только в том случае, если stat_1 больше, чем stat_4?