Zeichenketten in R - Leerzeichen zwischen ausgewählten Buchstaben und Ziffern einfügen

Question

Ich habe Krankenhausdaten, die konsistent sein müssen. Das erste numerische Zeichen ist die Etagennummer, die folgenden alphabetischen Zeichen sind das Akronym der Station und die letzten beiden numerischen Zeichen sind die Bettennummer.

So 2EA 28 wäre Etage 2, Ward Osten und Bett 28.

Die Standorte wurden mit inkonsistenten Räumen, so dass ich habe folgendes eingetragen in:

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

ich möchte es wie folgt aussehen

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

Wenn es keine numerische an der Front war, würde ich gerade aus dem numerischen sub und die Zeichen einer nach dem anderen, sondern weil es nummerisch, Zeichen numerisch ist es ein Problem. Es gibt 1462 Zeilen.

Weitere Komplikationen, Bodenstationen wie die Intensivstation haben keine vorhergehende Nummer.

Zugegeben als pro Anfrage - für Menschen lesbaren Namen

Menschen lesbaren Namen:

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

Sie gsub() dafür verwenden können:

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

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

Hier ist die regex ich verwendet:

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

Regex101