这很简单，因此我认为不需要添加可重复的样本。我只想在表中添加一些图例，就可以在其中打印出白色是最低的值，蓝色阴影得到的颜色越深，值越高。有点像这样：
RColorBrewer库中找到的某些图像制成的，但是它们的阴影并不相同。
formattable(farm_field,align = "l",list(
`Number of trees` = color_tile("white","blue"),`Number of animals` = color_tile("white","blue")
有没有一种方法可以自动在桌子旁边或我可以使用这些特定颜色查找图像的任何位置旁边添加这种图例？