r-接收存档标记包日期

Question

我正试图在R中使用RhivalTag包，但日期和时间有问题。每当我尝试使用read_histos((时，它都会给我以下错误：

hist_dat_1<- read_histos(Georgia)
Warning: 598 parsing failures.
row col                    expected              actual
1  -- date like %H:%M:%S %d-%b-%Y 2009-02-23 00:00:00
2  -- date like %H:%M:%S %d-%b-%Y 2009-02-23 06:00:00
3  -- date like %H:%M:%S %d-%b-%Y 2009-02-23 12:00:00
4  -- date like %H:%M:%S %d-%b-%Y 2009-02-23 18:00:00
5  -- date like %H:%M:%S %d-%b-%Y 2009-02-24 00:00:00
... ... ........................... ...................
See problems(...) for more details.
Error in .fact2datetime(as.character(add0$Date), date_format = date_format,  : 
date concersion failed! Please revise current'date_format': %H:%M:%S %d-%b-%Y to 2009-02-23 00:00:00

当前日期/时间类别：

class(Georgia$Date)
#[1] "POSIXct" "POSIXt" 

我已将日期和时间格式更改为：

format(Georgia$Date, format = "%H:%M:%S %d-%b-%Y")

但我仍然收到错误信息。如果有人熟悉这个软件包，将不胜感激

Answer 1

如果没有可复制的数据，这是一个困难的问题，但我们实际上可以使用包的内置数据集之一复制您的错误：

library(RchivalTag)
hist_file <- system.file("example_files/67851-12h-Histos.csv",package="RchivalTag")
Georgia <- read.csv(hist_file)

这将以数据帧的形式读取直方图数据，这似乎是您所处的阶段。然而，我们将把格式更改为POSIXct标准的日期-时间表示。

Georgia$Date <- strptime(Georgia$Date, "%H:%M:%S %d-%b-%Y")
Georgia$Date <- as.character(Georgia$Date)

现在，当我们试图读取我们得到的数据时：

read_histos(Georgia)
#> Warning: 34 parsing failures.
#> row col                    expected              actual
#>   1  -- date like %H:%M:%S %d-%b-%Y 2012-02-01 08:10:00
#>   2  -- date like %H:%M:%S %d-%b-%Y 2012-02-01 12:00:00
#>   3  -- date like %H:%M:%S %d-%b-%Y 2012-02-02 00:00:00
#>   4  -- date like %H:%M:%S %d-%b-%Y 2012-02-02 12:00:00
#>   5  -- date like %H:%M:%S %d-%b-%Y 2012-02-03 00:00:00
#> ... ... ........................... ...................
#> See problems(...) for more details.
#> 
#> Error in .fact2datetime(as.character(add0$Date), date_format = date_format,  : 
#>   date concersion failed! Please revise current'date_format': %H:%M:%S %d-%b-%Y to 2012-02-01 08:10:00

为了解决这个问题，我们可以使用strftime:重写Date列

Georgia$Date <- strftime(Georgia$Date, "%H:%M:%S %d-%b-%Y")

现在我们可以在没有解析错误的情况下读取数据。

read_histos(Georgia)
#>   DeployID   Ptt Type p0_25 p0_50 p0_75 p0_90
#> 1    67851 67851  TAD   2.9   100   100   100
#> 2    67851 67851  TAT   3.0   100   100   100