R です。 lubridate パッケージを使うとかんたん。 [1301 東証1部] 極洋 日足 時系列データ CSVダウンロード のデータを使います。 > library(lubridate) > library(dplyr) > stocks <- read.csv("~/Downloads/stocks_1301-T.csv",fileEncoding = "cp932") > head(stocks) 日付 始値 高値 安値 終値 出来高 売買代金 1 2016-12-22 2727 2729 2720 2729 15600 42518900 2 2016-12-21 2736 2745 2724 2731 16500 45131600 3 2016-12-20 2725 2739 2715 2733 31800 86682900 4 2016-12-19 2727 2736 27