我有一個很長的 R 腳本，我需要從中提取許多日期。我將腳本視為文本檔案，并嘗試使用正則運算式環視函式查找日期。
下面是一段包含日期的代碼示例：
Chamber1_3 <- subset(Chamber1Exp, Chamber1Exp$RealTime>=as.POSIXct("2019-05-21 06:01:45") &
Chamber1Exp$RealTime<= as.POSIXct("2019-05-21 06:23:58"))
plot(Chamber1_3$RealTime[Chamber1_3$Status=="PRE"],Chamber1_3$N2O_ppm[Chamber1_3$Status=="PRE"],
xlim=as.POSIXct(c("2019-05-21 06:01:45", "2019-05-21 06:23:58")),
ylim=c(.34,.35))
我想恢復“2019-05-21 06:01:45”和“2019-05-21 06:23:58”。它們在代碼中重復了兩次，我只想要它們一次。
我正在 RStudio 的 RegExplain 加載項中測驗 RegEx 片段。我試圖使用環視功能來捕獲常見文本之后的日期'as.POSIXct('
我認為這應該可行，但我什么也沒得到。
(?<=Xct\(\")(?=\")
建議？
uj5u.com熱心網友回復：
我們可以提取所有 4 個數字 - 2 個數字 - 2 個數字一個或多個空格 2 個數字：2 個數字：2 個數字，然后取消列出并僅取唯一值。
your_vec <- c('Chamber1_3 <- subset(Chamber1Exp, Chamber1Exp$RealTime>=as.POSIXct("2019-05-21 06:01:45") &
Chamber1Exp$RealTime<= as.POSIXct("2019-05-21 06:23:58"))
plot(Chamber1_3$RealTime[Chamber1_3$Status=="PRE"],Chamber1_3$N2O_ppm[Chamber1_3$Status=="PRE"],
xlim=as.POSIXct(c("2019-05-21 06:01:45", "2019-05-21 06:23:58")),
ylim=c(.34,.35))')
unique(unlist(str_extract_all(your_vec, '[0-9]{4}-[0-9]{2}-[0-9]{2}\\s [0-9]{2}:[0-9]{2}:[0-9]{2}')))
leaving:
[1] "2019-05-21 06:01:45"
[2] "2019-05-21 06:23:58"
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/496830.html
上一篇：如何在顫動的時間段內獲得作業日