Условная фильтрация фрейма данных в R

Интересно, как dplyr::filter() моему DATA уловить строки для ID, значение которых Language когда 'Type!=5F' и когда 'Type==5F' меняется с других языков на "English"?

Например, ID==1 имеет испанский, когда 'Type!=5F', и английский, когда 'Type==5F'. Итак, фильтруем.

Desired_output ниже.

DATA <- read.table(header=TRUE,text = "
ID Type Year Language
1  1A   1718 spansih
1  1A   1819 spanish
1  5F   1920 English
2  1B   1718 spanish
2  1B   1819 spanish
2  1B   1920 spanish
2  5F   2021 spanish
3  1B   1920 English
3  5F   2021 English")

Desired_output <- read.table(header=TRUE,text = "
ID Type Year Language
1  1A   1718 spansih
1  1A   1819 spanish
1  5F   1920 English")

r dataframe dplyr filter tidyverse

27.06.2024 01:53

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

По идентификатору вы можете проверить строки, в которых Type == "5F" & Language == "English" и строка выше не использует lag(), сохраняя всю группу, когда какое-либо значение соответствует условиям, например.

library(dplyr)

DATA |> 
  filter(any(Type == "5F" & Language == "English" & !lag(Type == "5F" | Language == "English")),
         .by = ID)

  ID Type Year Language
1  1   1A 1718  spansih
2  1   1A 1819  spanish
3  1   5F 1920  English

Спасибо! Существует проблема. Я обновил свой DATA, чтобы показать вам проблему. Ваше решение фиксирует случаи, когда язык всегда остается английским. Пожалуйста, запустите мой обновленный DATA, чтобы убедиться, что он не создает Desired_output.

— 27.06.2024 03:32

27.06.2024 02:07