R部分字符串匹配 - 排除

Question

我有一個基本上我想清理的電子郵件列表。我想說明的是，如果'@'字符不在特定的電子郵件中，我想刪除該電子郵件 - 這樣一個輸入如'mywebsite.com'將被刪除。

我的代碼如下：

email_clean <- function(email, invalid = NA){ 
    email <- trimws(email)               # Removes whitespace 
    email[(nchar(email) %in% c(1,2)) ] <- invalid         # Removes emails with 1 or 2 character length 
    bad_email <- c("\\@no.com", "\\@na.com","\\@none.com","\\@email.com",   # List of bad emails - modify to the 
        "\\@noemail.com", "\\@test.com",         # specifications of the request 

    pattern = paste0("(?i)\\b",paste0(bad_email,collapse="\\b|\\b"),"\\b")   # Deletes names matching bad email 
    email <-gsub(pattern, invalid, sapply(email,as.character)) 
    unname(email) 
    } 

    ## Define vector of SSN from origianl csv column 
    Cleaned_Email <- email_clean(my_data$Email) 


    ## Binds cleaned phone to csv 
    my_data<-cbind(my_data,Cleaned_Email) 

謝謝！

Answer 1

email_clean <- function(email, invalid = NA){ 
    email <- trimws(email)               # Removes whitespace 
    email[(nchar(email) %in% c(1,2)) ] <- invalid         # Removes emails with 1 or 2 character length 
    email[!grepl("@", email)] <- invalid # <------------------ New line added here ------------ 
    bad_email <- c("\\@no.com", "\\@na.com","\\@none.com","\\@email.com",   # List of bad emails - modify to the 
        "\\@noemail.com", "\\@test.com",         # specifications of the request 

    pattern = paste0("(?i)\\b",paste0(bad_email,collapse="\\b|\\b"),"\\b")   # Deletes names matching bad email 
    email <-gsub(pattern, invalid, sapply(email,as.character)) 
    unname(email) 
    } 

Answer 2

電子郵件列中嘗試使用此方法排除my_data沒有任何行「@」符號：

my_data <- my_data[grep('@', my_data$Email), ]