R如何跟踪多个绘图的总体形状

我有一个随时间变化的多个对象的绘图，我想画一条线来追踪时间序列的主要形状。目前，我用于绘图的代码是：

a$id = rownames(a)
am = melt(a, id='id')
ggplot(am)+geom_line(aes(x=variable, y=value, group=id, color=id))

---

你能帮我加一条线来描绘曲线的整体形状吗？我不太清楚自己该怎么做。谢谢。

不完全确定您要的是哪种汇总统计数据。但无论如何，

？统计摘要

是一个很好的起点。以下是一些可重复的数据和两种可能的汇总统计数据

# create reproducible example
set.seed(123)
require(reshape2)
require(ggplot2)
a <- data.frame(matrix(rnorm(400), 20))
a[, 5] <- a[, 5] + 2
a[, 15] <- a[, 15] + 2
a$id = rownames(a)
am = melt(a, id='id')
p <- ggplot(am, aes(x=variable, y=value, color=id)) + geom_line(aes(group=id))
# plotting median
p + stat_summary(mapping=aes(group=1), 
                 fun.data=function(x) data.frame(y=median(x)), 
                 size=1.3, 
                 color='black',
                 geom="line")
# mean and ci's
p + stat_summary(mapping=aes(group=1), 
                 fun.data='mean_cl_normal', 
                 size=1.3, 
                 color='black',
                 geom="smooth")

#创建可复制的示例
种子集（123）
要求（2）
需要（ggplot2）
给
？geom_smooth
看一看。@hrbrmstr您好，我刚刚尝试将
+geom_smooth（aes（x=变量，y=值））
添加到我的
ggplot
代码中，但它没有生成任何行！！？？请提供更多帮助…要重复@jd8585的无答案假设，您希望/计划如何总结/组合该系列，然后使用
geom_smooth
？@hrbrmstr-um…对不起，我不明白？？我应该如何使用
geom_smooth
请问我只想沿着曲线的主要形状画一条线all@maryam你如何估计主导形状？用一个平均值，一个百分位数，其他什么？天哪，这太神奇了，你太棒了！！！非常感谢你救了我的命！！！非常感谢。