从带有条件的数据表的媒体中设置时间序列

如何解决从带有条件的数据表的媒体中设置时间序列

我试图在给定条件的情况下计算数据帧的媒体，并为每次计算的媒体生成时间序列的条目。 这是我的数据表外观的一个示例：

month        price        dept
01-2013      872          A
01-2013      875          B
01-2013      872          A
01-2013      973          C
02-2013      853          A
02-2013      986          A
02-2013      953          B 
02-2013      743          C

其中日期02-2013表示月份= 2月，年份= 2013。我想生成一个从2013年1月到2019年10月每个月平均价格的时间序列。我试图使函数取决于月份和年份。

这是我尝试过的：

 meses <-c("01","02","03","04","05","06","07","08","09","10","11","12")
    años <- c("2013","2014","2015","2016","2017","2018","2019")
    
   promedio <- function(m,a){
   for(i in  m){
        for (j in a){
           mean(tabla3$price[tabla3$month ==i-j],na.rm = T) 
          }
                }
   }

但是当我尝试用线对其进行测试

promedio(01,2013)

它没有给出任何答案

也许有人可以帮助我 谢谢！