複数区切り文字で区切られた文字列の複数の変数への分割R

Question

Rを使用して情報を抽出するのに必要なファイル名のリストが多数あります。情報は複数のダッシュとアンダースコアで区切ります。区切り文字間の文字数が一貫していないという事実（情報の順序は、区切り文字が使用されている（希望通り）と同じように）が変わらないという事実に対応する方法を見つけ出すのに問題があります。例えば

：

f <- data.frame(c("EI-SM4-AMW11_20160614_082800.wav", "PA-RF-A50_20160614_082800.wav"), stringsAsFactors = FALSE) 
colnames(f)<-"filename" 
f$area <- str_sub(f$filename, 1, 2) 
f$rec <- str_sub(f$filename, 4, 6) 
f$site <- str_sub(f$filename, 8, 12) 

これは、最初のファイルの正しい結果が、2番目のために誤った結果を生成します。

私は「stringr」と「stringi」のパッケージを使用してみました、そしてハードに値をコーディングすることは動作しませんので、私のような両方のパッケージを使用して厄介なソリューションを作ってみたことを知っていました：

f$site <- str_sub(f$filename, 
        stri_locate_last(f$filename, fixed="-")[,1]+1, 
        stri_locate_first(f$filename, fixed="_")[,1]-1) 

おそらくregex（これは私が痛感している）を含むよりエレガントな（そして堅牢な）方法が必要であるように感じます。

私は他の例（Extract part of string (till the first semicolon) in R、R: Find the last dot in a string、Split string using regular expressions and store it into data frame）を見てきました。

ご意見/ご要望があれば幸いです。

Answer 1

`tidyr」パッケージから、これを試してみてください：

library(tidyr) 

f %>% separate(filename, c('area', 'rec', 'site'), sep = '-') 

そうようにあなたはまた、複数の差区切り文字に沿って分割することができます

f %>% separate(filename, c('area', 'rec', 'site', 'date', 'don_know_what_this_is', 'file_extension'), sep = '-|_|\\.') 

、その後はdplyrを使用して、必要な列のみを保ちますさんselect機能：このような

library(dplyr) 
library(tidyr) 

f %>% 
    separate(filename, 
      c('area', 'rec', 'site', 'date', 
       'don_know_what_this_is', 'file_extension'), 
      sep = '-|_|\\.') %>% 
    select(area, rec, site) 

Answer 2

は何か：

library(stringr) 
library(dplyr) 

f$area <- word(f$filename, 1, sep = "-") 
f$rec <- word(f$filename, 2, sep = "-") 
f$site <- word(f$filename, 3, sep = "-") %>% 
     word(1,sep = "_")   

dplyrは必要ではないが、連結クリーナーになります。 関数wordはstringrに属します。