Выбор группы строк, если одна из них имеет нужный атрибут
У меня есть такой фрейм данных:
data <- data.frame(family.id=rep(1:6, each=5),
member.id=rep(1:5, times=6),
attribute=c(1, 1, 2, 3, 4, 1, 2, 2, 3, 5, 1, 1, 3, 5, 5, 2,
3, 3, 4, 5, 1, 1, 4, 4, 5, 3, 3, 4, 5, 5))
Я хочу выбрать всех членов домохозяйства, если хотя бы один из них имеет атрибут, равный 4. скажите пожалуйста, что мне делать?
Я предпочитаю использовать команду «group_by» из dplyr.
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
0
61
4
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 4
Ответ принят как подходящий
library(tidyverse)
data %>%
filter(any(attribute == 4), .by = family.id)
или
data %>%
group_by(family.id) %>%
filter(any(attribute == 4)) %>%
ungroup()
family.id member.id attribute
1 1 1 1
2 1 2 1
3 1 3 2
4 1 4 3
5 1 5 4
6 4 1 2
7 4 2 3
8 4 3 3
9 4 4 4
10 4 5 5
11 5 1 1
12 5 2 1
13 5 3 4
14 5 4 4
15 5 5 5
16 6 1 3
17 6 2 3
18 6 3 4
19 6 4 5
20 6 5 5
Вы можете использовать subset + ave, если используете основание R.
> subset(data, ave(attribute == 4, family.id) > 0)
family.id member.id attribute
1 1 1 1
2 1 2 1
3 1 3 2
4 1 4 3
5 1 5 4
16 4 1 2
17 4 2 3
18 4 3 3
19 4 4 4
20 4 5 5
21 5 1 1
22 5 2 1
23 5 3 4
24 5 4 4
25 5 5 5
26 6 1 3
27 6 2 3
28 6 3 4
29 6 4 5
30 6 5 5
ave или subset:
data[as.logical(with(data, ave(attribute, family.id, FUN = \(x) any(x==4L)))), ]
# or
subset(data, family.id %in% unique(family.id[attribute==4L]))
В базе должен быть более лаконичный вариант, пока не вспомнил.
Я думаю, что вариант subset лучший. Не уверен, почему это должна быть операция group/ave/by, поскольку вы можете напрямую выбрать family.id и избавиться от необходимости явного выполнения цикла.
—
01.07.2024 23:53
Используя any в subset,
> subset(data, ave(attribute == 4, family.id, FUN=any))
family.id member.id attribute
1 1 1 1
2 1 2 1
3 1 3 2
4 1 4 3
5 1 5 4
16 4 1 2
17 4 2 3
18 4 3 3
19 4 4 4
20 4 5 5
21 5 1 1
22 5 2 1
23 5 3 4
24 5 4 4
25 5 5 5
26 6 1 3
27 6 2 3
28 6 3 4
29 6 4 5
30 6 5 5
кронштейны,
> data[with(data, family.id %in% family.id[attribute == 4]), ]
family.id member.id attribute
1 1 1 1
2 1 2 1
3 1 3 2
4 1 4 3
5 1 5 4
16 4 1 2
17 4 2 3
18 4 3 3
19 4 4 4
20 4 5 5
21 5 1 1
22 5 2 1
23 5 3 4
24 5 4 4
25 5 5 5
26 6 1 3
27 6 2 3
28 6 3 4
29 6 4 5
30 6 5 5
Таблица данных,
> library(data.table)
> setDT(data)[family.id %in% family.id[attribute == 4], ]
family.id member.id attribute
<int> <int> <num>
1: 1 1 1
2: 1 2 1
3: 1 3 2
4: 1 4 3
5: 1 5 4
6: 4 1 2
7: 4 2 3
8: 4 3 3
9: 4 4 4
10: 4 5 5
11: 5 1 1
12: 5 2 1
13: 5 3 4
14: 5 4 4
15: 5 5 5
16: 6 1 3
17: 6 2 3
18: 6 3 4
19: 6 4 5
20: 6 5 5
family.id member.id attribute
или
> setDT(data)[, if (4 %in% attribute) .SD, by = family.id]
family.id member.id attribute
<int> <int> <num>
1: 1 1 1
2: 1 2 1
3: 1 3 2
4: 1 4 3
5: 1 5 4
6: 4 1 2
7: 4 2 3
8: 4 3 3
9: 4 4 4
10: 4 5 5
11: 5 1 1
12: 5 2 1
13: 5 3 4
14: 5 4 4
15: 5 5 5
16: 6 1 3
17: 6 2 3
18: 6 3 4
19: 6 4 5
20: 6 5 5
family.id member.id attribute
Другие вопросы по теме
R разница в каждом наблюдении в пределах Id
Что происходит, когда вы используете присваивание внутри функции dplyr R
Условная фильтрация фрейма данных в R
Использование сквозной функции в R
R и dplyr не распознают переменную и не реализуют условие
Как удалить все строки, где хотя бы один столбец не имеет значения 1?
R фильтровать строки на основе значения в другой строке
Как преобразовать два суммированных столбца в два столбца с двоичным ответом в R?
Группировка спортивных данных в фрейме данных и объединение их в новую таблицу в R
Как я могу сохранить только самые полные информационные строки для каждой группы в операторе канала dplyr?
Похожие вопросы
Как получить имя встроенной функции в R
Wes_palettes: Как получить шестнадцатеричные коды цветов из палитры Весандерсона, если для нее установлено непрерывное количество цветов, превышающее предопределенные
Динамическое использование фильтра sqldf и группировки в r
Как искать несколько строк с помощью AND, используя JS-фильтр в реакции?
Посчитать пустые строки?
Как я могу отобразить свой текстовый вывод на всех вкладках TabPanel?
R разница в каждом наблюдении в пределах Id
Написание функции Javascript в R
Создание столбца часов из данных ЧЧ: ММ: СС в R
Что происходит, когда вы используете присваивание внутри функции dplyr R
Огромное спасибо, Юрий, за ответ. Буду признателен, если вы скажете, как я могу это сделать с помощью "group_by".