在每個大寫字母后加小寫字母后加小寫字母

Question

我試圖在每個大寫字母后加小寫字母后加小寫字母。這裏是例子：

cases <- c("XrefAcctnoAcctID", "NewXref1AcctID", "NewXref2AcctID", "ClientNo") 

我有這樣的：

[1] "XrefAcctnoAcctID" "NewXref1AcctID" 
[3] "NewXref2AcctID" "ClientNo"  

，我想有這樣的：

"xref_acctno_acct_id" 
"new_xref1_acct_id" 
"new_xref2_acct_id"  
"client_no" 

我能夠走這麼遠：

> tolower(gsub("([a-z])([A-Z])", "\\1_\\2", cases)) 
[1] "xref_acctno_acct_id" "new_xref1acct_id" 
[3] "new_xref2acct_id" "client_no" 

但是"new_xref1acct_id""new_xref2acct_id" doe不反映我想要的。

Answer 1

我們可以使用正則表達式lookarounds以匹配顯示小寫字母或數字後面的大寫字母模式，取而代之的是_

tolower(gsub("(?<=[a-z0-9])(?=[A-Z])", "_", cases, perl = TRUE)) 
#[1] "xref_acctno_acct_id" "new_xref1_acct_id" "new_xref2_acct_id" 
#[4] "client_no" 

或者沒有lookarounds，我們可以捕捉到小寫或數字爲一組，然後大寫字母爲另一組，後向引用替換該組由_

tolower(gsub("([a-z1-9])([A-Z])", "\\1_\\2", cases)) 
#[1] "xref_acctno_acct_id" "new_xref1_acct_id" "new_xref2_acct_id" 
#[4] "client_no"