列が不均一/不等な文字列と区切り文字なしで区切る

Question

データに区切り文字が含まれていても残りの文字列がどのように区切られますか？

入力： ID

142 TM500A2013PISA8/22/17BG
143 TM500CAGE2012QUDO8/1720分の22 +

出力：

カテゴリサイト菜園年の種日部分 142 TM 500 A 2013 PISA 8/22/17 BG 143 TM 500 CAGE 2012 QUDO 8/22/17 20+

私は他の質問の周りつつい、それはつまり、同じ文字列であれば動作するかもしれ何かを試してみました：

>df <- avgmass %>% separate(id, c("site", "garden", "plot", "year", 
    "species", "sampledate", "portion"),sep=cumsum(c(2,3,3,4,4,5))) 

しかし、プロットIDはどちらかであるAなど、BまたはCAGE;日付は "/"です - 私はそれにどのように接近するか分かりません。

私はRに比較的新しいので、sep引数を使用する方法の詳細については検索してみましたが、役に立たなかった...助けてくれてありがとう。

Answer 1

"site"、 "garden"、 "species"の列の幅が固定されていると仮定すると、以下のコードが役に立ちます。

df <- df %>% 
     mutate(site = substr(id, 1, 2), 
      garden = substr(id, 3, 5), 
      plot = ifelse(substr(id, 6, 9) == "CAGE", substr(id, 6, 9), substr(id, 6, 6)), 
      year = ifelse(substr(id, 6, 9) == "CAGE", substr(id, 10, 13), substr(id, 7, 10)), 
      species = ifelse(substr(id, 6, 9) == "CAGE", substr(id, 14, 17), substr(id, 11, 14)), 
      sampledate = ifelse(substr(id, 6, 9) == "CAGE", substr(id, 18, nchar(id)), substr(id, 15, nchar(id)))) %>% 
      separate(sampledate, into = c("m","d","y"), sep = "/") %>% 
      mutate(portion = substr(y, 3, nchar(y)), 
        sampledate = as.Date(paste(m, d, substr(y, 1, 2), sep = "-"), format = "%m-%d-%y"), 
        m = NULL, 
        d = NULL, 
        y = NULL)