我在使用 xts 后得到双倍的日期和时间列?并得到错误 'x' must be a time-series object

i am getting double date and time column after using xts? and getting error 'x' must be a time-series object

我遇到了一个问题。我正在尝试将我的数据转换为 xts 对象,以便稍后我可以合并时间序列并绘制它们。但是我得到一个错误 'x' must be a time-series object.I 我要在这里显示一个示例数据。

time<-c("21.11.2021 22:45", "21.11.2021 23:25")
time_p<-as.POSIXct(time, format='%d.%m.%Y %H:%M')
value1<-c(1,9)
value1<-as.numeric(value1)
value2<-c(1,21)
value2<-as.numeric(value2)
time_dataframe<-cbind.data.frame(time_p,value1,value2)
time_dataframe<-xts(time_dataframe,order.by(time_p)

但是当我绘制时,出现错误 'x' must be a time-series.

而且我正在输出 2 倍的日期和时间列,如下所示。

                         time_p            value 1    value 2
2021-11-21 22:45:00  2021-11-21 22:45:00      1          1
2021-11-21 23:25:00  2021-11-21 23:25:00      9          21 

数据部分不应包含时间。

library(xts)

time <- c("21.11.2021 22:45", "21.11.2021 23:25")
time_p <- as.POSIXct(time, format='%d.%m.%Y %H:%M')
value1 <- c(1, 9)
value2 <- c(1, 21)

xts(cbind(value1, value2), time_p)
##                     value1 value2
## 2021-11-21 22:45:00      1      1
## 2021-11-21 23:25:00      9     21

DF <-  data.frame(time_p, value1, value2)
z <- read.zoo(DF)
as.xts(z)
# same