暦

2010-01-01から作成。

カラム名 内容
date 日時（yyyy-mm-dd形式）
dow 曜日
name 日種別名称（平日／休日／祝日）
event 特異期間名称（年末年始／GW／お盆）
md 月日（mm-dd形式）
gr 曜日回り同一年グループ（４月１日の曜日番号； 日：１〜土：７）
year 年（yyyy形式）
month 月（m形式）
day 日（d形式）
su 日曜ダミー
mo 月曜ダミー
tu 火曜ダミー
we 水曜ダミー
th 木曜ダミー
fr 金曜ダミー
sa 土曜ダミー
wd 平日ダミー
ho 祝日ダミー
bw 休日間ダミー
af 休日明ダミー
sp 特異日ダミー
ab 異常日ダミー

気象

2010-06-01から記録されている。

カラム名 内容
time 時刻（HH:MM:SS形式）
hr 時（H形式）
mi 分（M形式）
hm 1時間平均相対湿度（％）
rm 日照時間（分）＃最大60分
ws 1時間平均風速（m/s）
tp 1時間平均気温（摂氏度）
tp3h 3時間平均気温（摂氏度）
tp5h 5時間平均気温（摂氏度）
tp3d 3日平均気温（摂氏度）
tp7d 7日平均気温（摂氏度）

電力需要

ここで電力需要として使用しているデータは， 発受電端電力と呼ばれる発電機出力の合計値 である。実際には，この値に送電ロスを追加した値が本当の電力需要である。

2016-04-01から記録されている。

カラム名 内容
mw 電力需要（MW） 
library(RSQLite)

# https://stats.dip.jp/01_ds/data/に次のデータベースは保存されている。
con.ca <- dbConnect(RSQLite::SQLite(), 'calendar.db')
con.am <- dbConnect(RSQLite::SQLite(), 'amedas.db')
con.ld <- dbConnect(RSQLite::SQLite(), 'load.db')

dbListTables(con.ca)
## [1] "ca"
dbListTables(con.am)
##  [1] "p40_b47629_Mito"           "p40_b47629_Mito_10m"      
##  [3] "p40_b47629_Mito_30m"       "p40_b47629_Mito_60m"      
##  [5] "p41_b47615_Utsunomiya"     "p41_b47615_Utsunomiya_10m"
##  [7] "p41_b47615_Utsunomiya_30m" "p41_b47615_Utsunomiya_60m"
##  [9] "p43_b47626_Kumagaya"       "p43_b47626_Kumagaya_10m"  
## [11] "p43_b47626_Kumagaya_30m"   "p43_b47626_Kumagaya_60m"  
## [13] "p44_b47662_Tokyo"          "p44_b47662_Tokyo_10m"     
## [15] "p44_b47662_Tokyo_30m"      "p44_b47662_Tokyo_60m"     
## [17] "p45_b47682_Chiba"          "p45_b47682_Chiba_10m"     
## [19] "p45_b47682_Chiba_30m"      "p45_b47682_Chiba_60m"     
## [21] "p46_b47670_Yokohama"       "p46_b47670_Yokohama_10m"  
## [23] "p46_b47670_Yokohama_30m"   "p46_b47670_Yokohama_60m"  
## [25] "p49_b47638_Kofu"           "p49_b47638_Kofu_10m"      
## [27] "p49_b47638_Kofu_30m"       "p49_b47638_Kofu_60m"      
## [29] "p50_b47657_Mishima"        "p50_b47657_Mishima_10m"   
## [31] "p50_b47657_Mishima_30m"    "p50_b47657_Mishima_60m"
dbListTables(con.ld)
## [1] "tepco"         "tepco5min"     "tepco5min_mva"
d.ca <- dbGetQuery(con.ca, 'select * from ca where date between "2017-01-01" and "2022-12-31"')
d.am <- dbGetQuery(con.am, 'select * from p44_b47662_Tokyo_60m where datetime between "2017-01-01 00:00:00" and "2022-12-31 23:59:59"')
d.ld <- dbGetQuery(con.ld, 'select datetime, date, mw from tepco where datetime between "2017-01-01 00:00:00" and "2022-12-31 23:59:59"')

d.al <- merge(d.ca, d.ld)
d.al <- merge(d.al, d.am)

library(kableExtra)
kable(d.al[1:24, ])%>%kable_classic('striped')
date datetime dow name event md gr year month day su mo tu we th fr sa wd ho bw af sp ab mw time hr mi hm rm ws tp tp3h tp5h tp3d tp7d
2017-01-01 2017-01-01 00:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 27830 00:00:00 0 0 77.43 0 2.32 4.87 5.31 5.53 5.50 6.74
2017-01-01 2017-01-01 01:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 26340 01:00:00 1 0 71.00 0 2.52 4.49 5.01 5.20 5.53 6.73
2017-01-01 2017-01-01 02:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 25200 02:00:00 2 0 68.86 0 1.52 4.07 4.48 4.90 5.54 6.72
2017-01-01 2017-01-01 03:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 24380 03:00:00 3 0 71.43 0 1.40 3.91 4.16 4.60 5.56 6.71
2017-01-01 2017-01-01 04:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 23890 04:00:00 4 0 74.86 0 1.97 3.19 3.72 4.11 5.58 6.69
2017-01-01 2017-01-01 05:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 23940 05:00:00 5 0 73.71 0 2.25 3.14 3.41 3.76 5.61 6.68
2017-01-01 2017-01-01 06:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 24910 06:00:00 6 0 76.86 0 1.85 2.60 2.98 3.38 5.63 6.66
2017-01-01 2017-01-01 07:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 26260 07:00:00 7 0 75.00 31 1.48 3.10 2.95 3.19 5.65 6.64
2017-01-01 2017-01-01 08:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 27150 08:00:00 8 0 68.57 60 1.87 4.96 3.55 3.40 5.69 6.64
2017-01-01 2017-01-01 09:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 26370 09:00:00 9 0 57.86 60 1.62 7.69 5.25 4.30 5.75 6.65
2017-01-01 2017-01-01 10:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 25070 10:00:00 10 0 47.71 60 2.32 10.36 7.67 5.74 5.83 6.67
2017-01-01 2017-01-01 11:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 24000 11:00:00 11 0 39.71 60 2.38 12.44 10.16 7.71 5.92 6.70
2017-01-01 2017-01-01 12:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 23330 12:00:00 12 0 35.14 60 2.07 13.31 12.04 9.75 6.02 6.72
2017-01-01 2017-01-01 13:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 22830 13:00:00 13 0 34.57 60 1.62 13.27 13.01 11.41 6.10 6.74
2017-01-01 2017-01-01 14:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 22590 14:00:00 14 0 39.57 60 1.65 12.61 13.06 12.40 6.18 6.76
2017-01-01 2017-01-01 15:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 23170 15:00:00 15 0 47.14 60 2.57 11.89 12.59 12.70 6.25 6.77
2017-01-01 2017-01-01 16:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 25400 16:00:00 16 0 58.00 25 1.63 9.33 11.28 12.08 6.30 6.78
2017-01-01 2017-01-01 17:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 28390 17:00:00 17 0 59.57 0 2.37 7.90 9.71 11.00 6.33 6.79
2017-01-01 2017-01-01 18:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 29190 18:00:00 18 0 60.14 0 1.38 7.49 8.24 9.84 6.37 6.80
2017-01-01 2017-01-01 19:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 29300 19:00:00 19 0 63.14 0 1.57 7.19 7.53 8.76 6.41 6.81
2017-01-01 2017-01-01 20:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 29350 20:00:00 20 0 57.29 0 2.55 7.96 7.55 7.97 6.46 6.82
2017-01-01 2017-01-01 21:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 28960 21:00:00 21 0 53.29 0 2.92 7.69 7.61 7.65 6.48 6.83
2017-01-01 2017-01-01 22:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 27800 22:00:00 22 0 52.29 0 2.55 7.84 7.83 7.63 6.50 6.85
2017-01-01 2017-01-01 23:00:00 日 祝日：元日 年末年始 01-01 6 2017 1 1 1 0 0 0 0 0 0 0 1 0 0 1 0 26690 23:00:00 23 0 55.71 0 1.25 6.66 7.40 7.47 6.52 6.86 
write.csv(d.al, file = 'load_amedas_y2017-2022_tokyo.csv', row.names = F, quote = F)

d.ca <- dbGetQuery(con.ca, 'select * from ca')
d.am <- dbGetQuery(con.am, 'select * from p44_b47662_Tokyo_60m')

write.csv(d.ca, file = 'calendar.csv',     row.names = F, quote = F)
write.csv(d.am, file = 'amedas_tokyo.csv', row.names = F, quote = F)

dbDisconnect(con.ca)
dbDisconnect(con.am)
dbDisconnect(con.ld)