Question

我需要使用R解析ISO8601中的字符。这些字符的格式如下：

%Y-%m-%dT%H:%M:%S%z

一个导致问题的示例如下：

2000-01-02T13:00:00.000+13:00

我能够删除UTC偏移量中的:，但这并没有什么用。

我正在使用通过此Dockerfile从rocker / geospatial：latest运行在docker容器中的rstudio 1.2.1335。 R的环境是：

> sessionInfo()
R version 3.6.0 (2019-04-26)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Debian GNU/Linux 9 (stretch)

Matrix products: default
BLAS/LAPACK: /usr/lib/libopenblasp-r0.2.19.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8     LC_MONETARY=en_US.UTF-8   
 [6] LC_MESSAGES=C              LC_PAPER=en_US.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] parsedate_1.2.0  sos4R_0.4.0.9002 stringr_1.4.0    httr_1.4.0       webmockr_0.3.4   testthat_2.1.1  

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.1         compiler_3.6.0     pillar_1.4.0       remotes_2.0.4      prettyunits_1.0.2  tools_3.6.0        digest_0.6.18     
 [8] packrat_0.5.0      pkgbuild_1.0.3     uuid_0.1-2         pkgload_1.0.2      memoise_1.1.0      tibble_2.1.1       lattice_0.20-38   
[15] anytime_0.3.3      pkgconfig_2.0.2    rlang_0.3.4        cli_1.1.0          rstudioapi_0.10    withr_2.1.2        xml2_1.2.0        
[22] fs_1.3.1           fauxpas_0.2.0      desc_1.2.0         devtools_2.0.2     rprojroot_1.3-2    grid_3.6.0         glue_1.3.1        
[29] R6_2.4.0           processx_3.3.1     sessioninfo_1.1.1  sp_1.3-1           callr_3.2.0        magrittr_1.5       rematch2_2.0.1    
[36] usethis_1.5.0      ps_1.3.0           backports_1.1.4    assertthat_0.2.1   RApiDatetime_0.0.4 stringi_1.4.3      crayon_1.3.4

我尝试使用lubridate，parsedate，anytime，但它们似乎都无法正确解析时区。

最后，我尝试了here at stack overflow提出的解决方案，结果如下：

> timestring <- "2000-01-02T13:00:00.000+13:00"
> fmt <- "%Y-%m-%dT%H:%M:%S%z"
> cleanedTimestring <- gsub("(.*).(..)$","\\1\\2",timestring)
> parsedTime <- strptime(cleanedTimestring, fmt, tz = "UTC")
> str(parsedTime)
 POSIXlt[1:1], format: NA

将UTC偏移量更改为12:00并除去毫秒数.000时，会产生几乎有用的结果：

> timestring <- "2000-01-02T13:00:00+12:00"
> cleanedTimestring <- gsub("(.*).(..)$","\\1\\2",timestring)
> parsedTime <- strptime(cleanedTimestring, fmt, tz = "UTC")
> str(parsedTime)
 POSIXlt[1:1], format: "2000-01-02 01:00:00"
> parsedTime
[1] "2000-01-02 01:00:00 UTC"

但这是太多的预处理，由于缺少毫秒，我正在丢失信息。

我希望能够将2000-01-02T13:00:00.000+13:00之类的字符串解析为POSIXct，结果如下：

[1] "2000-01-02 13:00:00.000 NZDT"

或

[1] "2000-01-02T13:00:00.000+13:00"

有没有可以执行此操作的库？

请记住，我事先不知道时间戳记的时区。它们可能以UTC偏移量或ID形式出现（例如+13:00|+1300与NZDT。

您需要其他详细信息吗？

Answer 1

如果您只需要花费毫秒而不是毫秒，那么您可以做到

timestring <- c(
  "2000-01-02T13:00:00.000+13:00",
  "2000-01-02T13:00:00+12:00"
)
formats <- c("%Y-%m-%dT%H:%M:%S%z", "%Y-%m-%dT%H:%M:%OS%z")
lubridate::parse_date_time(timestring, c("%Y-%m-%dT%H:%M:%S%z", "%Y-%m-%dT%H:%M:%OS%z"), exact=TRUE)
# [1] "2000-01-02 00:00:00 UTC" "2000-01-02 01:00:00 UTC"

如何在R中解析带有+13：00偏移量的时间戳？

1 个答案: