ISO 8601扩展持续时间格式PnYnMnDTnHnMnS in R

Question

是否有任何方法可以解析ISO 8601持续时间，例如“P3Y6M4DT12H30M5S”，并返回类似“3年、6个月、4天、12:30:05”的内容

我对润滑剂的持续时间或解析包没有运气。

Answer 1

我也不知道有任何这样的包（可能存在）需要解决，但根据维基百科的说法，您可以使用正则表达式以自己的方式对其进行解析，因为模式是固定的（“PnYnMnDTnHnMnS”）：

gsub("P(\\d+)Y(\\d+)M(\\d+)DT(\\d+)H(\\d+)M(\\d+)S", "\\1 Years, \\2
Months, \\3 Days, \\4:\\5:\\6", "P3Y6M4DT12H30M5S")

输出：

[1] "3 Years, 6 Months, 4 Days, 12:30:5"

编辑:

如果您只对填充秒的零点而不是其他任何东西感兴趣，我在这里添加了两个元素，一个是秒的个位数，另一个是秒的两位数（假设秒不会超过60）来验证正则表达式：

    vect <- c("P3Y6M4DT12H30M5S", "P3Y6M4DT12H30M15S")
    ifelse(grepl(".*M(\\d)S", vect), gsub("P(\\d+)Y(\\d+)M(\\d+)DT(\\d+)H(\\d+)M(\\d)S", "\\1 Years, \\2 Months, \\3 Days, \\4:\\5:0\\6", vect), gsub("P(\\d+)Y(\\d+)M(\\d+)DT(\\d+)H(\\d+)M(\\d+)S", "\\1 Years, \\2 Months, \\3 Days, \\4:\\5:\\6", vect))

输出：

[1] "3 Years, 6 Months, 4 Days, 12:30:05"  
[2] "3 Years, 6 Months, 4 Days, 12:30:15"

如果您对填充单个数字的每个元素感兴趣：

topad <- gsub("P(\\d+)Y(\\d+)M(\\d+)DT(\\d+)H(\\d+)M(\\d+)S", "\\1-\\2-\\3-\\4-\\5-\\6", vect)
library(stringr)
splitvect <- strsplit(topad,split="-")
unlist(lapply(splitvect, function(x)paste0(str_pad(x, 2, "0", side="left"), c("Years, ", "Months, ", "Days, ", ":", ":", ""), collapse= "")))

输出：

[1] "03Years, 06Months, 04Days, 12:30:05"
[2] "03Years, 06Months, 04Days, 12:30:15"