Разделение строки на основе букв

Question

Я хочу разбить следующую строку

"ATextIWantToDisplayWithSpaces"

вот так

A Text I Want To Display With Spaces.

Я пробовал этот код в R

strsplit(x="ATextIWantToDisplayWithSpaces", split=[:upper:])

, который производит этоошибка

Error: unexpected '[' in "strsplit(x="ATextIWantToDisplayWithSpaces", split=["

Любая помощь будет высоко оценена.Спасибо

Answer 1

Просто сделай это. Он работает, (а) находя заглавную букву, (б) захватывая ее в группе и (в) заменяя ее той же самой пробелом перед ней.

gsub('([[:upper:]])', ' \\1', x)

Answer 2

Ответ на ваш конкретный вопрос («как разделить на заглавные буквы»?):

strsplit(x="ATextIWantToDisplayWithSpaces", split="[[:upper:]]")

но ответ @ Рамнатха - это то, что вы на самом деле хотите. strsplit выбрасывает символы, на которые он расщепляется. Функция splitByPattern из R.utils ближе, но она все равно не вернет результаты в наиболее удобной для вас форме.

Answer 3

Я знаю, что это старое решение, но я адаптировал приведенное выше решение к тому, которое было у меня, когда мне нужно было разделить значения столбца в фрейме данных на верхний регистр, а затем оставить только второй элемент. Это решение использует dplyr и purrr:

df %>% mutate(stringvar= map(strsplit(stringvar, "(?!^)(?=[[:upper:]])", perl=T),~.x[2]) %>% unlist())