regex - 在R中使用正则表达式根据模式替换一些数字

Question

我正在尝试在 4 位数字后添加时间戳(4 位数字是年份)，我当前使用以下代码:

 temp.table[,"admission_datetime"] <- gsub("/2010$", "/2010 0:00:00", temp.table[,"admission_datetime"])
 temp.table[,"admission_datetime"] <- gsub("/1976$", "/1976 0:00:00", temp.table[,"admission_datetime"])
 temp.table[,"admission_datetime"] <- gsub("/1990$", "/1990 0:00:00", temp.table[,"admission_datetime"])
 temp.table[,"admission_datetime"] <- gsub("/1978$", "/1978 0:00:00", temp.table[,"admission_datetime"])

该代码对我来说工作正常，但有点笨拙和不灵活，我知道我可以使用 [0-9]{4} 来捕获 1976,1978,1990,2010，但我不知道如何使用正则表达式将它们放回去，有人可以启发我吗？谢谢。

Answer 1

这应该有效:

temp.table[,"admission_datetime"] <- gsub("/([0-9]{4})$", "/\\1 0:00:00", temp.table[,"admission_datetime"])