это просто, так что я думаю, что мне не нужно добавлять воспроизводимый образец. Я просто хочу добавить в таблицу некую легенду, где я могу напечатать, что белый цвет - самый низкий, и чем темнее синий оттенок, тем выше значение. Что-то вроде этого: 
, который я сделал с каким-то изображением, которое я нашел в Интернете из библиотеки RColorBrewer, но они не совпадают с оттенками.
formattable(farm_field, align = "l", list(
`Number of trees` = color_tile("white", "blue"),
`Number of animals` = color_tile("white", "blue")
Есть ли способ автоматически добавить такую легенду рядом со столом или в любое место, где я могу найти изображение, используя эти конкретные цвета?