rCharts（酒窝）面积图与负序列

Question

我有以下问题;我在凹坑周围使用rCharts包装器来生成面积图。我意识到当我添加一个带负值的系列（v3）时，图表系列颜色和图例是不同的。以下是以下代码;

library(rCharts)
library(reshape2)
seq(as.Date("2011-3-1"), by = "month", length.out = 12)
df <- data.frame(date= 2003:2014,
            v1 = runif(12,100,700), 
            v2 = runif(12,10,70) ,
            v3 = -1*runif(12,3,15))
dat <- melt(df,id="date")
dat$date <- as.character(dat$date)
p <- dPlot(value ~ date,
      groups = "variable",
      data = dat,
      type = "area")
p$legend( x = 60, y = 10, width = 620, height = 20,
      horizontalAlign = "right")
p

如果你能提供帮助，我将不胜感激。