从R中的文本字符串创建新类别

Question

I have a column with the Following rows:

Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access
Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access
Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access

I want to create a new column based on the values found: ie

if Telephone line rental is found, then in the new column, I want to code as V
if Fixed broadband, then code as B
if Mobile phone = M
if Paid for TV service / TV and/or sport code as T

So if we take the first rows example:

Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access

The category will be: V, B, M The NET: XXX|NET: XXXX parts of the string needs to be ignored.

the full portfolio can be any combination of those 4 but they must be in the following order V, B, M, T

I have been googling and reading through library(stringr)

Tried splitting up the string with sep = "\\\\|" but it is not working.

Any other ideas?

Regards,

DPUT:

c("Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: No internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: No internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: No internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Fixed broadband|Mobile phone|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Mobile phone|NET: No home phone calls|NET: No internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access", 
"Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Mobile phone|NET: No home phone calls|NET: No internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access", 
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access"
)

Answer 1

You could use grepl like this:

df <- read.table(text='"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|NET: No home phone calls|NET: Internet access"
"Telephone line rental|Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: Internet access"
"Fixed broadband|Mobile phone|Paid for TV service|NET: No home phone calls|NET: No home phone calls or line rental|NET: Internet access"',
header=FALSE,stringsAsFactors=FALSE)

tv <- c("Paid for TV service","TV","sport code")

df$new_col <- paste(ifelse(grepl("Telephone line rental",df$V1),"V",""),
ifelse(grepl("Fixed broadband",df$V1),"B",""),
ifelse(grepl("Mobile phone",df$V1),"M",""),
ifelse(grepl(paste(tv,collapse = "|"), df$V1),"T","")
)