移除网格线后dygraph图表颜色变化的原因及解决方法

我绘制了如下堆叠dygraph图表：

library(dygraphs)

set.seed(1)
date <- seq(as.Date("2010-01-01"), as.Date("2010-12-01"), by = "month")
var1 <- rnorm(length(date), mean = 100, sd = 10)
var2 <- rnorm(length(date), mean = 50, sd = 5)
df <- data.frame(date, var1, var2)

library(xts)
df_xts <- xts(df[,-1], order.by = df$date)

dygraph(df_xts, main = "Stacked Graph") %>%
    dySeries("var1", label = "Var1") %>%
    dySeries("var2", label = "Var2") %>%
    dyOptions(stackedGraph = TRUE) %>%
    dyRangeSelector(height = 20)

该代码生成的堆叠图中，Var1和Var2分别呈现深浅不同的填充色，网格线可见，颜色显示正常。

但当我添加移除网格线的设置后，图表颜色发生了明显变化，对应代码如下：

dygraph(df_xts, main = "Stacked Graph") %>%
    dySeries("var1", label = "Var1") %>%
    dySeries("var2", label = "Var2") %>%
    dyOptions(stackedGraph = TRUE) %>%
    dyRangeSelector(height = 20) %>%
    dyOptions(fillGraph = TRUE, drawGrid = FALSE) 

此时生成的图表中，两个系列的填充色变得更浅、透明度更高，和原图表颜色差异明显。

请问这一现象的原因是什么？如何解决该问题，让移除网格线后的图表颜色与原图表相近？

原因分析 #

问题出在多次调用dyOptions()。第二次调用dyOptions()时，虽然指定了drawGrid = FALSE，但同时设置的fillGraph = TRUE会覆盖之前stackedGraph = TRUE带来的填充配置，导致图表使用默认的高透明度填充色，而非堆叠图的原始填充样式。

解决方法 #

将所有配置参数合并到同一次dyOptions()调用中，避免参数覆盖。可行的代码如下：

dygraph(df_xts, main = "Stacked Graph") %>%
    dySeries("var1", label = "Var1") %>%
    dySeries("var2", label = "Var2") %>%
    dyOptions(stackedGraph = TRUE, drawGrid = FALSE) 

这样既移除了网格线，又保留了堆叠图原本的填充颜色，效果和原始图表一致。

内容的提问来源于stack exchange，提问作者stats_noob