每组ggplot2中的彩色色带

Question

我正在尝试使用ggplot2中的功能区绘制多个折线图。下面的代码为我提供了彩色线条周围的黑色条带，而实际上我希望色带与线条具有相同的颜色。

ggplot(newdf,aes(x=date,y=value,group=variable,color=variable)) + 
  geom_line() + 
  facet_grid(variable ~.) +
  scale_x_date() +
  geom_ribbon(aes(ymin=0, ymax=value)) +
  theme(legend.position='none') +
  geom_line(aes(y=0),linetype="dotted")

这为我提供了黑色功能区，如下图

我正考虑按以下方式设置fill = variable：

ggplot(newdf,aes(x=date,y=value,group=variable,color=variable)) + 
  geom_line() + 
  facet_grid(variable ~.) +
  scale_x_date() +
  geom_ribbon(aes(ymin=0, ymax=value), fill = variable) +
  theme(legend.position='none') +
  geom_line(aes(y=0),linetype="dotted")

然而，这给了我以下错误：

  

do.call出错（＆＃34;图层＆＃34;，列表（mapping = mapping，data = data，stat =   stat，：object＆＃39;变量＆＃39;找不到

newdf是data.frame，看起来像这样

>head(newdf)
    date     variable      value
1 2014-01-02    CHINA -0.3163197
2 2014-01-03    CHINA -0.2820751
3 2014-01-06    CHINA -0.3256087
4 2014-01-07    CHINA -0.3741991
5 2014-01-08    CHINA -0.4064004
6 2014-01-09    CHINA -0.3630387

如何正确着色色带？

Answer 1

这应该有效。 nycflights13的示例。

user