Rの文字列 - 選択されたアルファベット文字と数字の間のスペースを挿入します。

Question

私は一貫している必要がある病院ワードデータを持っています。最初の数字は階数、続くアルファベット文字はワード頭字語、最後の2文字はベッド番号です。

ので2EA 28は28

場所は、私は、次のしていることを、このような矛盾した空間で入力されている床面2、区東とベッドのようになります。私はそれをしたいと思い

toyraw<-data.table(incident_no = c(1:6), location =c("2EA17","2EA 17", "1ED1", "1ED23", "1ED 34","ICU24")) 

何の前で数値私はちょうど時の数字と文字の1からサブだろうが、それが数値であるので、文字がなかった場合は、次の

toyideal<-data.table(incident_no = c(1:5), location =c("2EA 17","2EA 17", "1ED 1", "1ED 23", "1ED 34", "ICU 24")) 

のように見えます数値では問題が発生しています。 1462行あります。

さらに複雑で、ICUなどの地上階区には先行番号がありません。要求ごととして

を追加しました - 人間が読める名前

人間が読める名前：

additional<-data.table(incident_no = c(1:5), location =c("2EA 17","2EA 17", "1ED 1", "1ED 23", "1ED 34"), 
        human_Readable = c("Ward 2 East Bed 17","Ward 2 East Bed 17", "Ward 1 Emergency Department 
             Bed 1", "Ward 1 Emergency Department Bed 23", "Ward 1 Emergency Department Bed 24", 
             "Ward ICU Bed 24")) 

Answer 1

あなたはこのためにgsub()を使用することができます。ここでは

> gsub("(\\d*)(\\D*)\\s*(\\d*)", 
     "Floor \\1 Ward \\2 and Bed \\3.", 
     gsub(" ", "", "1ED 34")) 

[1] "Floor 1 Ward ED and Bed 34." 

は、私が使用した正規表現です：

(\\d*)(\\D*)\\s*(\\d*) 

Regex101