Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/74.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何从apply.monthly函数中提取日期_R_Xts - Fatal编程技术网

R 如何从apply.monthly函数中提取日期

R 如何从apply.monthly函数中提取日期,r,xts,R,Xts,如果我有一组每日数据,我想得到每个月的最小值,以及该值出现的日期。如果我使用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.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
库(xts)
#创建示例数据

日期
应用。每月
使用
期间。应用
,并始终在每个期间的结束处编制索引。如果需要不同的行为,则需要使用更通用的函数

在这种情况下,您可以将
lappy(split(),…)
习惯用法与自定义函数一起使用:

do.call(rbind, lapply(split(ts,"months"), function(x) x[which.min(x)]))