первые буквы после специальных символов в R

Question

Я хочу, чтобы удалить лишние пробелы, добавить пробелы при необходимости и первой буквы каждого слова после того, как специальный символ, используя R

string <- "apple,banana, cat, doll and donkey;  fish,goat" 

Я хочу выход как

Apple, Banana, Cat, Doll and donkey; Fish, Goat 

Я попытался

gsub("(^.|,.|;.)", "\\U\\1", string, perl=T, useBytes = F) 

Это не сработало. Пожалуйста, помогите

Answer 1

Вы можете использовать

string <- "apple,banana, cat, doll and donkey;  fish,goat" 
trimws(gsub("(^|\\p{P})\\s*(.)", "\\1 \\U\\2", string, perl=T)) 
## => [1] "Apple, Banana, Cat, Doll and donkey; Fish, Goat" 

См this IDEONE demo

PCRE, регулярные выражения матчи:

• (^|\\p{P}) - (группа 1) начало строки или любой пунктуации
• \\s* - 0 или более символов пробелов
• (.) - (группа 2) любой символ, но символ новой строка

Замена:

• \\1 - обратные_связь Группа 1
• - вставляет пробел между пунктуацией и следующим символом или на начало строки
• \\U\\2 - поворачивает символ второй группы

И trimws удаляет исходное пространство, которое мы добавили с помощью регулярного выражения.