R 选择带点和冒号的数字字符串

我有这根绳子

string <- "Hospitalization from 25.1.2018 to 26.1.2018", "Date of hospitalization was from 28.8.2019 8:15", "Date of arrival 30.6.2018 20:30 to hospital")

我试过了

dates <- gsub("([0-9]+).*$", "\\1", string)

但它只给了我第一个数字，在第一个点之前，你可以使用

图书馆长 unstriststr\u extract\u allstring，\\d{1,2}\\\\\\d{1,2}\\\\\\d{4}？：\\s+\\d{1,2}:\\d{1,2}？ => [1] 25.1.2018 26.1.2018 28.8.2019 8:15 30.6.2018 20:30 看

细节

\d{1,2}-一位或两位数字 \-一个点 \d{1,2}\.\d{4}-一个或两个数字，一个点和四个数字 ？：\s+\d{1,2}:\d{1,2}-可选择的事件 \s+-一个或多个空格 \d{1,2}:\d{1,2}-一个或两个数字：和一个或两个数字。 你可以用

图书馆长 unstriststr\u extract\u allstring，\\d{1,2}\\\\\\d{1,2}\\\\\\d{4}？：\\s+\\d{1,2}:\\d{1,2}？ => [1] 25.1.2018 26.1.2018 28.8.2019 8:15 30.6.2018 20:30 看

细节

\d{1,2}-一位或两位数字 \-一个点 \d{1,2}\.\d{4}-一个或两个数字，一个点和四个数字 ？：\s+\d{1,2}:\d{1,2}-可选择的事件 \s+-一个或多个空格 \d{1,2}:\d{1,2}-一个或两个数字：和一个或两个数字。 使用sapply：

使用sapply：

dates <- gsub("([0-9]+).*$", "\\1", string)

sapply(str_extract_all(string, "[0-9.:]+"), paste0, collapse = " ")
[1] "25.1.2018 26.1.2018" "28.8.2019 8:15"      "30.6.2018 20:30"