R:在同一轴上绘制多条线，平均值以粗体显示？

Question

我有一些看起来像这样的数据:

df <- data.frame(time=1:6, a=c(100, 90, 91, 92, 91, 91.5), b=c(99.9, 90.3, 90.9, 91.8, 92, 91.5), c=c(100.3, 88.5, 90.5, 91.5, 91, 91.3))
df <- data.frame(df, mean=apply(df[,2:4], 1, mean))
> df
  time     a    b     c      mean
1    1 100.0 99.9 100.3 100.06667
2    2  90.0 90.3  88.5  89.60000
3    3  91.0 90.9  90.5  90.80000
4    4  92.0 91.8  91.5  91.76667
5    5  91.0 92.0  91.0  91.33333
6    6  91.5 91.5  91.3  91.43333

我想在 x 轴上用 time 绘制同一 Canvas 上的线条。我希望行 a、b 和 c 稍微透明(或浅色)并且 mean大胆而清晰。

Answer 1

好的，这次在 ggplot 中!首先，你必须将你的 df 融化到每行一个点，然后是 ggplot 魔法:

dfm = melt(df,"time",c("a","b","c","mean"))
ggplot(dfm)+geom_line(
  aes(x=time,y=value,colour=variable)) + 
  scale_colour_manual(values=c("#FF000080","#00FF0080","#0000FF80","black"))