r - R中的加权平均值

Question

我有一个不同长度的时间序列数据 - a,b,c,d,e

 #printing a
 Time Series:
  Start = 1
  End = 42
  Frequency = 1
  [1] 60 
 
#printing b
Time Series:
  Start = 1
  End = 42
  Frequency = 1
  [1] 50 70  
 
#printing c
Time Series:
  Start = 1
  End = 42
  Frequency = 1
  [1] 40 70 100

 #and so on 

我正在尝试获取所有列表中元素的平均值:#因为第一个元素有 5 个可用值

mean1 <- a[1]+b[1]+c[1]+d[1]+e[1] / 5 

 #since there are 4 values available for 2nd element

mean2<-  b[2]+c[2]+d[2]+e[2] / 4

#next divide by 3 and 2...1

mean3<- c[3]+d[3]+e[3] / 3 and so on...

我需要这些值的平均值，以便为每个元素制作加权平均值以进行进一步处理。任何人都可以就如何从这些数据中获取加权平均值提出建议吗？

Answer 1

我们得到一个list中的对象，然后从list中得到mean并进行加权计算

lst1 <- lapply(mget(letters[1:5]), unlist)
mx <- max(lengths(lst1))
lst2 <- lapply(lst1, `length<-`, mx)
(1/mx) * (rowSums(mapply(`*`, lst2,  
     rowMeans(simplify2array(lst2), na.rm = TRUE)), na.rm = TRUE))