Question

我目前正在研究土壤湿度，必须从我的时间序列数据中获取每小时和每天的平均值。

当我将数据帧转换为xts对象时，时间序列发生变化，我不知道为什么。

数据框中的数据如下：

  time                MC temp

1 2018-06-27 11:30:00 17.1 15.8

2 2018-06-27 11:45:00 17.0 15.8

3 2018-06-27 12:00:00 17.0 15.8

4 2018-06-27 12:15:00 17.0 15.9

5 2018-06-27 12:30:00 17.2 15.9

6 2018-06-27 12:45:00 17.0 16.0

但是，当我将其转换时，时间戳记始于2018-01-09 00:00并进行5分钟的时间增量。这是我正在使用的代码：

sm_xts <- xts(sm.data[,2:3], as.Date(sm.data$time))
sm_zoo <- read.zoo(sm.data, index.column = 1)
dat_xts <- as.xts(sm_zoo)

我已经将时间戳转换为as.POSIXct类，并检查了时间序列中的重复项。

> anyDuplicated(sm.data$time)
[1] 0

Answer 1

也许您在初始数据输入过程中遇到了一些问题。

    df
#                  time   MC temp
# 1 2018-06-27 11:30:00 17.1 15.8
# 2 2018-06-27 11:45:00 17.0 15.8
# 3 2018-06-27 12:00:00 17.0 15.8
# 4 2018-06-27 12:15:00 17.0 15.9
# 5 2018-06-27 12:30:00 17.2 15.9
# 6 2018-06-27 12:45:00 17.0 16.0

现在日期和时间值以char形式存储在单个变量中

str(df$time)
# chr [1:6] "2018-06-27 11:30:00" "2018-06-27 11:45:00" ...

让我们将其转换为真实的日期和时间，以免丢失时间信息：

strptime(df$time, "%Y-%m-%d %H:%M:%S")
# [1] "2018-06-27 11:30:00 EEST" "2018-06-27 11:45:00 EEST"
# [3] "2018-06-27 12:00:00 EEST" "2018-06-27 12:15:00 EEST"
# [5] "2018-06-27 12:30:00 EEST" "2018-06-27 12:45:00 EEST"

似乎可行。时区可能出现的问题不在此答案的范围内。

现在让我们将数据帧转换为xts。在完成的xts中，我们不需要符号形式的日期和时间。因此，我们排除第一列。

df2xts <- xts(df[,2:3], order.by=strptime(df$time, "%Y-%m-%d %H:%M:%S"))
df2xts
#                 time   MC temp
# 1 2018-06-27 11:30:00 17.1 15.8
# 2 2018-06-27 11:45:00 17.0 15.8
# 3 2018-06-27 12:00:00 17.0 15.8
# 4 2018-06-27 12:15:00 17.0 15.9
# 5 2018-06-27 12:30:00 17.2 15.9
# 6 2018-06-27 12:45:00 17.0 16.0

将数据转换为XTS会更改时间戳数据

1 个答案: