Объединение одноэлементных букв?
У меня есть следующий вектор символов:
vec1 <- c("D R JOHNSON", "NICE W E A T H E R")
Этот вектор содержит последовательные серии одиночных букв, таких как «DR», и я НЕ хочу, чтобы между ними были пробелы. Например, мне нужен этот вектор:
vec2 <- c("DR JOHNSON", "NICE WEATHER")
Есть ли способ, чтобы при наличии последовательной серии отдельных букв, например "W E A T H E R", я мог удалить пробелы между ними, чтобы получить "WEATHER"?
Стоит ли изучать PHP в 2026-2027 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
3
1
86
2
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 2
Ответ принят как подходящий
Вы можете использовать взгляд вперед (?=) и взгляд назад (?<=) с границами (\\b):
gsub("(?<=\\b[a-zA-Z]\\b)\\s(?=\\b[a-zA-Z]\\b)", "", vec1, perl=TRUE)
"DR JOHNSON" "NICE WEATHER"
короче, может быть "(?<=\\b\\S\\b)\\s(?=\\b\\S\\b)"?
—
25.06.2024 07:38
Да, но я сосредоточился на "последовательной серии одиночных букв"
—
25.06.2024 08:16
Разделите пространство, создайте идентификатор группы на основе последовательного количества символов, затем вставьте со свертыванием, если количество символов равно 1:
f <- function(x){
s <- unlist(strsplit(x, split = " "))
paste(sapply(split(s, data.table::rleid(nchar(s))),
function(i) {
if (nchar(i)[1] == 1) paste(i, collapse = "") else i
}),
collapse = " ")
}
sapply(vec1, f, USE.NAMES = FALSE)
# [1] "DR JOHNSON" "NICE WEATHER"
Другие вопросы по теме
Форматирование JSON для Python — нужно удалить \"
Рекурсивные функции в R для применения регулярных выражений внутри вложенных круглых скобок
Как исправить столбец с числовыми значениями, который воспринимается как строковое поле из-за пустых строк в фрейме данных Pandas?
Байты XOR в C#
Преамбула Matplotlib LaTeX интерпретируется неправильно
Как распечатать фрагмент Python в виде строки, разделенной знаком «:»?
Разделить массив javascript с помощью регулярных выражений
Как вставить строку (или символ) в другую строку в указанной позиции индекса в bash?
Преобразование «const char*» в «const unsigned char*» (Protobuf и ActiveMQ-cpp)
Как извлечь подстроку из значения метки в promql?
Похожие вопросы
Удаление карт с белой рамкой с помощью geom_sf
Почему мне нужно жестко запрограммировать формулу в emmeans() вместо динамического извлечения формулы из динамической линейной модели?
Отображение вероятности выживания в % по оси Y для разных моментов времени
Рекурсивные функции в R для применения регулярных выражений внутри вложенных круглых скобок
ИСТИНА/ЛОЖЬ — все члены группы сидят на последовательных местах
Как я могу скрыть одну серию в легенде Echarts с помощью R?
R и dplyr не распознают переменную и не реализуют условие
Повторное использование соединения DuckDB в Windows с помощью `DBI::dbSendQuery()`
Как отобразить динамическую сумму отфильтрованных оценок в реагирующем нижнем колонтитуле?
Как создать возрастную пирамиду, используя график в R?
Это не совсем правильно. Обратите внимание, что некоторые слова нельзя объединять, поскольку они состоят из отдельных букв. например
I A M G O OD.и т. д. Не существует общего кода, который правильно объединил бы ваши слова.