我想按小时创建2年（2016-2017）的时间序列，关税值取决于一年中的时间，即夏季和冬季，相对于工作日，周末/公众假期。
到目前为止，我已创建了time_index，夏季24小时的值，冬季24小时的值以及周末/公众假期的24小时值。
到目前为止，这是我的代码：
time_index <- seq(from = as.POSIXct("2016-01-01 00:00"),
to = as.POSIXct("2017-12-31 23:00"), by = "hour")
summer<-c(0.4,0.4,0.4,0.4,0.4,0.4,0.4,1.1,1.1,1.1,1.1,1.1,1.1,1.1,
1.1,1.1,1.1,1.1,1.1,1.1,1.1,1.1,1.1,0.4)
weeekn_ph<-c(0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,
0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4)
winter<-c(0.4,0.4,0.4,0.4,0.4,0.4,1.1,2.3,2.3,2.3,2.3,2.3,2.3,2.3,
2.3,2.3,2.3,2.3,2.3,2.3,1.1,1.1,1.1,1.1)
夏季期间从2016年3月20日到2016年9月21日生效，冬季期间为其余部分。
我从2015年开始有相同数据的时间序列。这是一年中前48小时的印刷品：
head(hp, n=48)
dato tarif
1 01-01-15 00:00 0.4
2 01-01-15 01:00 0.4
3 01-01-15 02:00 0.4
4 01-01-15 03:00 0.4
5 01-01-15 04:00 0.4
6 01-01-15 05:00 0.4
7 01-01-15 06:00 0.4
8 01-01-15 07:00 0.4
9 01-01-15 08:00 0.4
10 01-01-15 09:00 0.4
11 01-01-15 10:00 0.4
12 01-01-15 11:00 0.4
13 01-01-15 12:00 0.4
14 01-01-15 13:00 0.4
15 01-01-15 14:00 0.4
16 01-01-15 15:00 0.4
17 01-01-15 16:00 0.4
18 01-01-15 17:00 0.4
19 01-01-15 18:00 0.4
20 01-01-15 19:00 0.4
21 01-01-15 20:00 0.4
22 01-01-15 21:00 0.4
23 01-01-15 22:00 0.4
24 01-01-15 23:00 0.4
25 02-01-15 00:00 0.4
26 02-01-15 01:00 0.4
27 02-01-15 02:00 0.4
28 02-01-15 03:00 0.4
29 02-01-15 04:00 0.4
30 02-01-15 05:00 0.4
31 02-01-15 06:00 1.1
32 02-01-15 07:00 2.3
33 02-01-15 08:00 2.3
34 02-01-15 09:00 2.3
35 02-01-15 10:00 2.3
36 02-01-15 11:00 2.3
37 02-01-15 12:00 2.3
38 02-01-15 13:00 2.3
39 02-01-15 14:00 2.3
40 02-01-15 15:00 2.3
41 02-01-15 16:00 2.3
42 02-01-15 17:00 2.3
43 02-01-15 18:00 2.3
44 02-01-15 19:00 2.3
45 02-01-15 20:00 1.1
46 02-01-15 21:00 1.1
47 02-01-15 22:00 1.1
48 02-01-15 23:00 1.1
2015年的第一天是公众假期，而第二天是星期五。
我对R很生气。