Нужна помощь в замене «[какое-то слово] [пробел] [больше слов]» на [какое-то слово] в R

Question

У меня есть данные ниже.

    Company
1   Progressive Corp.
2   Travelers Companies Inc.
3   Progressive Finance  Corp.
4   Zurich Insurance Group (3)
5   Zurich Financial Services Ltd
6   Zurich  Ltd
7   Berkshire Hathaway Inc.
8   Auto-Owners Insurance Co.
9   Berkshire Finance Inc.
10  AmTrust Financial Services

Например: мне нужно заменить всю строку, содержащую "Цюрих" (4,5,6) на "Цюрих [какое-то слово]"

Answer 1

Вопрос немного расплывчат, поскольку нам не сообщают структуру, в которой хранятся данные. Однако при условии, что данные хранятся во фрейме данных , должен работать следующий код:

company.data = data.frame(
c("Progressive Corp.",
"Travelers Companies Inc.",
"Progressive Finance  Corp.",
"Zurich Insurance Group (3)",
"Zurich Financial Services Ltd",
"Zurich  Ltd",
"Berkshire Hathaway Inc.",
"Auto-Owners Insurance Co.",
"Berkshire Finance Inc.",
"AmTrust Financial Services"), stringsAsFactors = F)

names(company.data) = "company"

change.index = which(grepl("Zurich", company.data$company))

company.data$company[change.index] = "Zurich"

> company.data
                      company
1           Progressive Corp.
2    Travelers Companies Inc.
3  Progressive Finance  Corp.
4                      Zurich
5                      Zurich
6                      Zurich
7     Berkshire Hathaway Inc.
8   Auto-Owners Insurance Co.
9      Berkshire Finance Inc.
10 AmTrust Financial Services