字串符操作

簡單運算

字串符操作中有較多的函數以及不同的回傳資料型態要特別注意。

字串相黏

普遍程式語言能以 + 作為字串相黏運算子，如：Python、JavaScript等..。 R 需依賴 paste() 或 paste0() 函數

無間隔相黏

paste0(x,y)

[1] "sealchangpopplio"

間隔一空白字元相黏

paste(x,y)

[1] "sealchang popplio"

間隔一逗號字元相黏

paste(x,y,sep = ',')

[1] "sealchang,popplio"

間隔自定義字串相黏

paste(x,y,sep = '以及')

[1] "sealchang以及popplio"

多字串相黏

paste0(x,' ','own',' ',y)

[1] "sealchang own popplio"

字串分割

strsplit() 回傳為 list 型別，unlist(recursive = F) 後再做後續處理。 %>%為管線運算子，在dplyr套件中可取得，功能即是把%>%前的運算結果交往後方函數繼續運算，在後方函數中以.代表之，可連續使用。執行require(dplyr)後即可使用，建議熟悉使用以提高程式易讀性。

逐一分割

[[1]]
[1] "p" "o" "p" "p" "l" "i" "o"

strsplit(y,split = '') %>% unlist(.,recursive = F)

[1] "p" "o" "p" "p" "l" "i" "o"

以指定字串分割

 ""          "rpubs.com" "sealchang" "ch1"      

strsplit(z,split = '/') %>% unlist(.,recursive = F)

[1] "https:"    ""          "rpubs.com" "sealchang" "ch1"      

z %>% strsplit(.,split = '/') %>% unlist(.,recursive = F)

[1] "https:"    ""          "rpubs.com" "sealchang" "ch1"      

已指定字串作分隔並合併成一字串

z <- 'https://rpubs.com/sealchang/ch1'
z %>% strsplit(.,split = '/') %>% unlist(.,recursive = F) %>% paste(.,collapse = '/')

[1] "https://rpubs.com/sealchang/ch1"

P.S. paste(x,collapse = '/') 與 strsplit(x,split = '/') %>% unlist 可視為反函數關係

字元取代

取代字串中首個符合條件的字元

w <- 'popplio'

# replacement = '' 可達到刪除字元的功效
sub(pattern = 'p',replacement = '',x = w)

[1] "opplio"

sub(pattern = 'p',replacement = 'k',x = w)

[1] "kopplio"

取代字串中所有符合條件的字元

w <- 'popplio'

# replacement = '' 可達到刪除字元的功效
gsub(pattern = 'p',replacement = '',x = w)

[1] "olio"

gsub(pattern = 'p',replacement = 'k',x = w)

[1] "kokklio"

擷取字串片段

與其他程式語言不同之處，R 語言中的 index 皆從 1 開始。

v <- 'popplio'

# replacement = '' 可達到刪除字元的功效
substr(x = v,start = 1,stop = 5)

[1] "poppl"

substr(x = v,start = 2,stop = 3)

[1] "op"

字串字元數

length() 與 nchar() 別混淆。 nchar() => 計算字串長度 length() => 計算向量或清單的長度

v <- 'popplio'

v %>% length(.)

[1] 1

v %>% nchar(.)

[1] 7