R 按小时创建时间序列

我希望以小时为单位创建一个2年（2016-2017）的时间序列，电价值取决于一年中的时间，即夏季和冬季，与工作日、周末/公共假日相关

到目前为止，我已经创建了一个时间指数，即夏季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)

2015年的第一天是公共假日，而第二天是星期五

---

我对R很生疏。

为什么要将数据转换为字符？小数点是“.”，不是“，”。啊，对不起，在丹麦我们用逗号代替点。我会更改它。删除引号也是，这是不必要的。仍然生锈。。。

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