Question

我有以下动物园对象：

x<-read.zoo("values.txt",format="%H:%M:%OS",sep=",",header=F,FUN=as.POSIXct)

x如下所示：

2015-01-20 17:39:56 367 0
      2015-01-20 17:39:56 236 0
      2015-01-20 17:39:58 542 0
      2015-01-20 17:39:58 260 0

现在我聚合第二个时间间隔来获取每秒的值而不是毫秒级别： > x_uniq<-aggregate(x,format(time(x),"%H:%M:%S"),mean)

x_uniq如下所示：

17:39:55 403.0000 0.0
  17:39:56 301.5000 0.0
  17:39:58 401.0000 0.0
  17:40:00 607.0000 0.0

我试图绘制它然而我得到以下错误：

plot(x_uniq,plot.type = "single", col = c("red", "blue"),lwd = 2)
plot.window（...）中的错误：需要有限的＆＃39; xlim＆＃39;值
另外：警告信息：
1：在xy.coords（x，y，xlabel，ylabel，log）中：强制引入的NA 2：在min（x）中：min没有非缺失参数;返回Inf
3：在max（x）中：max没有非缺失参数;返回-Inf

现在是，我理解它的方式，因为现在时间已经转换为字符。但我不知道如何将其转换回来。有人可以帮忙吗？谢谢！

Answer 1

这个问题省略了输入，只显示了read.zoo语句的输出，所以我们真的不知道你有什么，但假设看起来如下所示：

Lines <- 
"2015-01-20 17:39:56,367,0
2015-01-20 17:39:56,236,0
2015-01-20 17:39:58,542,0
2015-01-20 17:39:58,260,0"

library(zoo)
z <- read.zoo(text = Lines, sep = ",", tz = "", aggregate = mean)
plot(z)

需要有限的＆＃39; xlim＆＃39; Zoo对象绘图的值

1 个答案: