如果字符串符合模式，则编辑R

Question

I have a large list of data. I want to edit it according to some pattern recognition. For example:

if I have a letter then I want to print that letter and some additional characters after.

If I have some numbers I want to print the numbers and some additional characters after.

If I have a unique character like "@" "#" "/" and/or ":" Then I want to subsitute it with a space.

If I have n (n being a number like 9) numbers then n (n being a number) characters then I want to print what I have and add some letters or characters to the end of the string.

So let a data set be
data  output
F       F State
M       M State
R       R State
55      55 Object
53      53 Object
993M@L  99M L Object
93283M  93283M State0

I think it would be similar to a ifelse(if there are 5 numbers followed 1 letter, original space State0,NA)

I would also like the NA,so that way I can see in my data what does not match the rules that I make.

This is my first time working on this and I am researching but most of the resources are not for R. Any additional help is great!

Answer 1

You can use the following function with grepl and gsub :

test<-function(str){
    if(grepl("^[A-Z]$", str, perl=TRUE)){
        gsub("^([A-Z])$", "\\1 State", str)
    }
    else if(grepl("^\\d+$", str, perl=TRUE)){
        gsub("^(\\d+)$", "\\1 Object", str)
    }
    else if(grepl("[@#/:]", str, perl=TRUE)){
        str<-gsub("[@#/:]", " ", str)
        paste(str," Object")
    }
    else if(grepl("^\\d+[A-Z]+$", str, perl=TRUE)){
        gsub("^(\\d+[A-Z]+)$", "\\1 State0", str)
    }
}

x<-"F"
x<-test(x)
print(x)        //output: "F State"

x<-"55"
x<-test(x)
print(x)        //output: "55 Object"

x<-"993M@L"
x<-test(x)
print(x)        //output: "993M L  Object"

x<-"93283M"
x<-test(x)
print(x)        //output: "93283M State0"