Если у меня есть набор ежедневных данных, я хочу получить минимальное значение для каждого месяца и дату, когда это значение произошло. Если я используюapply.monthly Функция, она дает мне минимальное значение, но соответствующей датой является конец каждого месяца, а не дата, когда это произошло на самом деле. Как я могу получить правильную дату?

library(xts)
#create sample data
dates<-seq(from=as.Date("1970-01-01"),to=as.Date("1970-12-31"),by=1)
x<-sample(1:365,365)
ts<-xts(x,dates)

#apply function
monthly.mins<-apply.monthly(ts,min)
monthly.mins