http://tjo.hatenablog.com/entry/2013/07/12/184704 を参考に。 データ: sentdex.com/GBPUSD.zip tb <- read.table("GBPUSD1d.txt",sep=',',colClasses=c("character","numeric","numeric")) df <- data.frame(strptime(tb$V1,"%Y%m%d%M%S"),tb$V2,tb$V3) n…