使用R格式表包对多列进行条件格式设置

Question

我正在维护一个Rmarkdown报告，其中包含一个汇总表，用于每月12个月的效果滚动。管理层希望进行颜色编码以指示针对目标的性能。我正在尝试使用R formattable包来实现这一点。我现在遇到的问题是列名可能会逐月更改（因为我使用滚动12个月），下面是示例数据：

library(tidyverse)
library(formattable)

sample_data <- tibble(
  Country=c("CHINA","JAPAN"),
  `19-01`=c(95,94),
  `19-02`=c(97,93),
  `19-03`=c(95,98),
  `19-04`=c(85,96),
  `19-05`=c(95,94),
  `19-06`=c(97,93),
  `19-07`=c(95,98),
  `19-08`=c(85,96),
  `19-09`=c(95,94),
  `19-10`=c(97,93),
  `19-11`=c(95,98),
  `19-12`=c(85,96),
  `Year to Date`=c(95,98))

我要实现的目标是，对于每个月（以及Year to Date的最后一列），如果性能低于95，则背景色设置为RED，如果性能介于在95和96中，单元格背景设置为黄色，而性能在96以上时，背景色设置为绿色。 即使下个月要更改列名，我该如何实现？

感谢您的帮助。

费利克斯