安装.包("xts码")

#轻量级
遥控器::安装github("约书亚尔里奇/xts")#或
开发工具::安装github("约书亚尔里奇/xts")

n个 <- 10
系列 <-rnorm公司(n个)#POSIXct（日期/时间）索引
日期时间 <-seq（作为.POSIXct("2017-03-27"),输出长度 = n个,通过 = "天")图书馆(xts码)x个 <-xts码(系列,日期时间)

#2017年3月
x个["2017-03"]#[,1]
#2017-03-27  0.25155453
#2017-03-28 -0.09379529
#2017-03-29  0.44600926
#2017-03-30  0.18095782
#2017-03-31 -1.45539421

#3月30日至4月2日
x个["2017-03-30/2017-04-02"]#[,1]
#2017-03-30  0.1809578
#2017-03-31 -1.4553942
#2017-04-01 -0.4012951
#2017-04-02 -0.5331497

#系列开始至4月1日
x个["/2017-04-01"]#[,1]
#2017-03-27  0.25155453
#2017-03-28 -0.09379529
#2017-03-29  0.44600926
#2017-03-30  0.18095782
#2017-03-31 -1.45539421
#2017-04-01 -0.40129513

数据(样本矩阵)x个 <-as.xts公司(样本矩阵)至周期(x个,"月")#x.打开x.高x.低x.关闭
#2007-01-31 50.03978 50.77336 49.76308 50.22578
#2007-02-28 50.22448 51.32342 50.19101 50.77091
#2007-03-31 50.81620 50.81620 48.23648 48.97490
#2007-04-30 48.94407 50.33781 48.80962 49.33974
#2007-05-31 49.34572 49.69097 47.51796 47.73780
#2007-06-30 47.74432 47.94127 47.09144 47.76719至月(x个)#结果有一个“年鉴”索引
#x.打开x.高x.低x.关闭
#2007年1月50.03978 50.77336 49.76308 50.22578
#2007年2月50.22448 51.32342 50.19101 50.77091
#2007年3月5081620 50.81620 48.23648 48.97490
#2007年4月48.94407 50.33781 48.80962 49.33974
#2007年5月49.34572 49.69097 47.51796 47.73780
#2007年6月47.74432 47.94127 47.09144 47.76719

#每个列的月平均值周期。应用(x个，个终结点(x个,"月"),col平均值)#开盘-高-低-收盘
#2007-01-31 50.21140 50.31528 50.12072 50.22791
#2007-02-28 50.78427 50.88091 50.69639 50.79533
#2007-03-31 49.53185 49.61232 49.40435 49.48246
#2007-04-30 49.62687 49.71287 49.53189 49.62978
#2007-05-31 48.31942 48.41694 48.18960 48.26699
#2007-06-30 47.47717 47.57592 47.38255 47.46899

#开盘-高-低-收盘
#2007-01-31 50.21140 50.31528 50.12072 50.22791
#2007-02-28 50.78427 50.88091 50.69639 50.79533
#2007-03-31 49.53185 49.61232 49.40435 49.48246
#2007-04-30 49.62687 49.71287 49.53189 49.62978
#2007-05-31 48.31942 48.41694 48.18960 48.26699
#2007-06-30 47.47717 47.57592 47.38255 47.46899