R flexdashboard gauge功能不会改变颜色

Question

我正在尝试使用R中的flexdashboard包制作一个蓝色的仪表，但我似乎无法改变仪表的颜色。它似乎只有三种预设颜色的成功，警告和危险。我的问题是我似乎无法将成功转变为蓝色。这是我的代码

library(flexdashboard)

gauge(20, 
          min = 0, 
          max = 100,
          symbol = "%",
          sectors = gaugeSectors(success = c(0, 0.4),
                                 warning = c(0.4, 0.6),
                                 danger = c(0.6, 1)
          )                              )

Answer 1

您可以通过colors函数中的gaugeSectors参数修改颜色。正如帮助所述?gaugeSectors：

  

颜色可以是标准主题颜色（＆＃34;成功＆＃34;，＆＃34;警告＆＃34;，＆＃34;危险＆＃34;，   ＆＃34; primary＆＃34;，＆＃34; info＆＃34;）或任何其他有效的CSS颜色说明符

因此，您需要添加colors这样的参数：colors = c("blue", rgb(0, 1, 0), "#CC664D")

在gaugeSectors中指定值范围时也犯了一个错误：您的最小值和最大值分别为0和100，因此您需要提供此范围内的值：

success = c(0, 40),
warning = c(40, 60),
danger = c(60, 100)

请注意，符号"%"实际上并未将该值转换为百分比，它只是在值之后打印的字符串。

gauge(20, 
      min = 0, 
      max = 100,
      symbol = "%",
      sectors = gaugeSectors(success = c(0, 40),
                             warning = c(40, 60),
                             danger = c(60, 100),
                             colors = c("blue", rgb(0, 1, 0), "#CC664D")
      )
)