小编vtr*_*ost的帖子

我正在尝试使用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("layer", list(mapping = mapping, data = data, stat = stat, : object 'variable' not found) 中的错误

的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 …