R 更快的替代 str_contains

Question

我有一個表格和一個字符向量：

ACT_Suburbs_Names <- data.table(DivisionNm = c('ACTON', 'AINSLIE', 'AMAROO', 'ARANDA', 'BANKS'))

temp1 <- c('U1 336 DOORING ST ACTON', '65/78 ACHELON DR MOORONG')

下面的腳本檢查 temp1 中的地址是否在 ACT_Suburbs_Names 的地址列表中。

future_sapply(temp1, function(x) str_contains(ACT_Suburbs_Names, x, ignore.case = TRUE)) 

處理我擁有的所有數據需要大量時間。 有更快的嗎？ 即使在 python 中也可以。

Answer 1

創建一個模式並使用正則表達式：

> library(tidyverse)
> 
> ACT_Suburbs_Names <-  c('ACTON', 'AINSLIE', 'AMAROO', 'ARANDA', 'BANKS')
> 
> pat <- paste(ACT_Suburbs_Names, collapse = '|')
> 
> temp1 <- c('U1 336 DOORING ST ACTON', 
+  '65/78 ACHELON DR MOORONG',
+  'asdf ARANDA asdfsadf',
+           ' asdfasfd   BANK asdf',
+           ' sdafasdf  BANKS  asdf',
+           ' just junk') 
> 
> # find out which entries match - return the index of a match
> 
> grep(pat, temp1)
[1] 1 3 5
>