Как найти вектор строки в другом векторе строки в R
Предположим, у меня есть два вектора строк:
s1<-c("ab", "cd-e", "hij")
s2<-c("0ab12345", "xyzcd-e", "uvwxyz132", "13216469", "%qrst012")
я хотел найти элементы в s1, которые появляются в s2, поэтому приведенный выше пример даст результат
"ab", "cd-e"
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
2
1
38
3
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 3
Мы можем grepl над s1 для каждого значения в s2 и выбрать, является ли какое-либо из них TRUE.
s1[colSums(sapply(s1, grepl, s2)) > 0]
#[1] "ab" "cd-e"
Ответ принят как подходящий
Используйте Filter с указанной функцией. Пакеты не используются.
Filter(function(x) any(grepl(x, s2)), s1)
## [1] "ab" "cd-e"
Или с keep от purrrkeep(s1, ~ any(grepl(.x, s2)))
—
08.04.2019 16:56
Вот один из способов
s1[sapply(s1,function(x) any(grepl(x,s2)))]
[1] "ab" "cd-e
Другие вопросы по теме
Альтернатива scan() в R (стиль здесь-документа)
Получение текста после Word--R Webscraping
Удаление данных с закрашенными точками в блестящих / Понимание реактивных переменных
R суммировать последовательный дублирующий нечетный список и удалить все, кроме первого списка
Как вернуться обратно к первому сюжету в R-Shiny?
Создайте новый фрейм данных из списка фреймов данных, используя lapply
Цвет ячеек в зависимости от их значения для каждой строки фрейма данных
R суммировать последовательные повторяющиеся нечетные строки и удалять все, кроме первого
Преобразование файлов png в файлы txt
Вставьте последующие значения (строки) между текущими значениями в df
Похожие вопросы
Переформатировать фрейм данных с уникальными значениями строк в виде столбцов
Поиск недостающих парных комбинаций
Функция предсказания() возвращает неожиданный результат
Вставьте изображение в заголовок и отрегулируйте его размер до размера шрифта
Параметр поиска R с данными не поддерживает экзотическую кодировку (latin1)
Добавление идентификаторов на основе групп
Как объединить R ifelse() и kable()
Ошибка при импутации дневных временных рядов с пакетом зоопарка
Объединить элементы списка в date.frame в R
Создание карты на основе адреса или координат xy - преобразовать в широту и долготу?
Попробуйте
unlist(lapply(s1, function(x) s1[grep(x, s2)]))