r - 使用 ggplot2 用丝带绘制两条线

Question

我有一个带有度量 v 和分类变量 t 的数据框。
我可以将它们绘制成这样的线条

set.seed(42)
v <- runif(20, min=0, max=100)
t <- sample( LETTERS[1:2], 20, replace=TRUE )

df <- data.frame(v,t)

qplot(1:length(v),v,data=df,geom="line",group=t,color=t)

我想在每条线周围添加丝带。可能具有不同的宽度(我将用公式设置)和透明度。我试图用“ribbon”替换geom，但出现以下错误:

qplot(1:length(v),v,data=df,geom="ribbon",group=t,color=t)
Error: geom_ribbon requires the following missing aesthetics: ymin, ymax

如何在一张图表中同时绘制线条及其色带？

Answer 1

以下是添加功能区的方法。当然，您可以更改 ymin 的公式。和 ymax满足您的需求:

ggplot(df, aes(x=1:length(v), y=v, group=t, colour=t)) + 
  geom_ribbon(aes(ymin=v-0.1*v, ymax=v+0.1*v, fill=t), alpha=0.2) +
  geom_line()