记录R语言在时间序列分析中的一些常用写法

in 编程
关注公众号【好便宜】( ID:haopianyi222 ),领红包啦~
阿里云,国内最大的云服务商,注册就送数千元优惠券:https://t.cn/AiQe5A0g
腾讯云,良心云,价格优惠: https://t.cn/AieHwwKl
搬瓦工,CN2 GIA 优质线路,搭梯子、海外建站推荐: https://t.cn/AieHwfX9

由于经常在不同语言中切换,需要记录时间序列开发中常遇到实用写法,暂置于此,不断修改中。。。

常用的库

library(DMwR)
library(xts)
library(quantmod)
library(jsonlite)
library(RCurl)

查看变量的类型

class(theTS)

例如输出:

[1] "xts" "zoo"

取时间序列的首尾时间

start(theTS) 

例如输出:

[1] "2017-04-05 CST"

end(theTS) 

合并两个时间序列

rbind.zoo(currentTS,historyTS)

为了避免麻烦,需保证两个序列时间不重叠

改时间序列的列名

 names(theTS) <- c("Open", "High","Low", "Close",    "Volume" ,  "Amount")

这个写法如此不同,左侧一般是变量,这里竟然是一个动作,R 语言有独到之处。

异常处理

 tryCatch({
            .....
        },
        error=function(e){
            ...
            Sys.sleep(3)
            ...
        },
        finally={}
  )

从文件读数据

 theData <- na.omit(read.table(theFileName,sep=",",header=F,fill=TRUE,fileEncoding ="gb18030"))

文件中数据,用","区分数据列,没有header

写入文件

write.zoo(theTS,theFile,sep=",",col.names=FALSE)

以,分隔字段,不写入列名;

转换为时间序列

theTS <- try.xts(theData[,c(2)],as.POSIXct(theData[,1],tryFormats = c("%Y-%m-%d %H:%M:%OS","%Y-%m-%d")))

其中第一列是时间,格式 2017-12-08 或 2017-12-08 08:09:30

读取JSON数据

aa <- fromJSON(theURL)

画K线图

getVolume <- function(da){ da[,"Volume"] }
addVolumeToChart <- newTA(FUN=getVolume,col=1,legend="Volume")
chartSeries(last(theData,100) ,name=sym,type="candlesticks",
        theme = 'white',up.col = 'red',dn.col = 'green',
        TA=c( addVolumeToChart()))

 

关注公众号【好便宜】( ID:haopianyi222 ),领红包啦~
阿里云,国内最大的云服务商,注册就送数千元优惠券:https://t.cn/AiQe5A0g
腾讯云,良心云,价格优惠: https://t.cn/AieHwwKl
搬瓦工,CN2 GIA 优质线路,搭梯子、海外建站推荐: https://t.cn/AieHwfX9
扫一扫关注公众号添加购物返利助手,领红包
Comments are closed.

推荐使用阿里云服务器

超多优惠券

服务器最低一折,一年不到100!

朕已阅去看看