删除列向量中的数字和点

Question

我有一个列向量，很难对其进行标准化。它看起来像这样:

X2015.11.03.15.00.00.1
X2015.11.03.15.00.00.2
X2015.11.03.15.00.00.13
X2015.11.03.15.00.00.14
X2015.11.03.15.00.00.14
X2015.11.03.16.00.00
X2015.11.03.16.00.00
X2015.11.03.17.00.00 

我想要得到的是规范化的时间戳:

2015.11.03 15.00.00
2015.11.03 15.00.00
2015.11.03 15.00.00
2015.11.03 15.00.00
2015.11.03 15.00.00
2015.11.03 16.00.00
2015.11.03 16.00.00
2015.11.03 17.00.00

到目前为止，我尝试了[Sub和gsub][1]的各种组合，但没有得到最终结果。

#remove X in Timestamp
x <- gsub("\\X", "", x)
#put space between time date and time
x <- sub("\\s+$", "", gsub('(.{11})', '\\1 ', x))

现在看起来像这样:

2015.11.03. 15.00.00.1
2015.11.03. 15.00.00.2
2015.11.03. 15.00.00.13
2015.11.03. 15.00.00.14
2015.11.03. 15.00.00.14
2015.11.03. 16.00.00
2015.11.03. 16.00.00
2015.11.03. 17.00.00

如何解决其余问题？如有任何帮助，我们将不胜感激。

Answer 1

我们可以使用 as.POSIXct 使用自定义格式转换为日期时间，在我看来，在这种情况下，这是比使用正则表达式更好的选择，因为输入本质上是日期时间值:

df$V2 <- as.POSIXct(df$V1, format = "X%Y.%m.%d.%H.%M.%S")

输出:

                       V1                  V2
1  X2015.11.03.15.00.00.1 2015-11-03 15:00:00
2  X2015.11.03.15.00.00.2 2015-11-03 15:00:00
3 X2015.11.03.15.00.00.13 2015-11-03 15:00:00
4 X2015.11.03.15.00.00.14 2015-11-03 15:00:00
5 X2015.11.03.15.00.00.14 2015-11-03 15:00:00
6    X2015.11.03.16.00.00 2015-11-03 16:00:00
7    X2015.11.03.16.00.00 2015-11-03 16:00:00
8    X2015.11.03.17.00.00 2015-11-03 17:00:00

数据:

df <- structure(list(V1 = structure(c(1L, 4L, 2L, 3L, 3L, 5L, 5L, 6L
), .Label = c("X2015.11.03.15.00.00.1", "X2015.11.03.15.00.00.13", 
"X2015.11.03.15.00.00.14", "X2015.11.03.15.00.00.2", "X2015.11.03.16.00.00", 
"X2015.11.03.17.00.00"), class = "factor")), class = "data.frame", row.names = c(NA, 
-8L))