Add a new column based on string values in R

Question

Consider the dataset :

activity <- c("play football", "basketball player", "guitar sono","cinema", "piano")
country_and_type <- c("uk", "uk", "spain", "uk", "uk")
dataset <- data.frame(activity, country_and_type)

|activity         |country_and_type   |
|play football    |uk                 |
|basketball playe |uk                 |
|guitar sono      |spain              |
|cinema           |uk                 |
|piano            |uk                 |

and these lists:

sport <- ("football", "basketball", "handball", "baseball")
music <- ("guitar", "piano", "microphone")

If the initial dataset$country_and_type value is "uk", my goal is to add the name of the lists in parentheses in dataset$country_and_type column based on the string match. If there is no value that match, the type should be "other".

To be clearer, here is the expected output:

|activity         |country_and_type   |
|play football    |uk (sport)         |
|basketball playe |uk (sport)         |
|guitar sono      |spain              |
|cinema           |uk  (other)        |
|piano            |uk (music)         |

Do you have an idea on how to make it?

Answer 1

dataset$type=NA
> dataset$type[grepl(paste(sport,collapse = "|"),a)]="sport"
> dataset$type[grepl(paste(music,collapse = "|"),a)]="music"
> dataset
                      a  type
1         play football sport
2     basketball player sport
3           guitar sono music
4          french piano music
5           ok handball sport
6         baseball game sport
7 microphone for singer music
>

After the edition:

> sp=grepl(paste(sport,".*uk",collapse = "|"),do.call(paste,dataset))
> ms=grepl(paste(music,".*uk",collapse = "|"),do.call(paste,dataset))
> uk=grepl("uk",do.call(paste,dataset))
> dataset$type=""
> dataset$type[sp]="(sport)"
> dataset$type[ms]="(music)"
> dataset$type[!(ms|sp)&uk]="(other)"
> transform(dataset,country_and_type=paste(country_and_type,type))[-3]
           activity country_and_type
1     play football       uk (sport)
2 basketball player       uk (sport)
3       guitar sono           spain 
4            cinema       uk (other)
5             piano       uk (music)