Найдите условие соответствия следующей строки
df = data.frame(group_id = c(rep("a",5), rep("b",5)),
prod_id = 1:10,
prod_type = rep(c("a","a", "b", "c","d"),2),
start = lubridate::dmy(c("01/01/2001", "02/02/2002", "03/03/2003", "04/04/2004", "05/05/2005")),
fin = lubridate::dmy(c(NA,NA,NA,NA,NA)))
df
group_id prod_id prod_type start fin
1 a 1 a 2001-01-01 <NA>
2 a 2 a 2002-02-02 <NA>
3 a 3 b 2003-03-03 <NA>
4 a 4 c 2004-04-04 <NA>
5 a 5 d 2005-05-05 <NA>
6 b 6 a 2001-01-01 <NA>
7 b 7 a 2002-02-02 <NA>
8 b 8 b 2003-03-03 <NA>
9 b 9 c 2004-04-04 <NA>
10 b 10 d 2005-05-05 <NA>
Данные будут сгруппированы по group_id. Мне нужен способ определить для каждой группы prod_id следующий prod_id, то есть, например, prod_type "a", "c" или "d".
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
0
25
1
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 1
Ответ принят как подходящий
Попробуй это:
library(dplyr)
# library(tidyr) # fill
df %>%
group_by(group_id) %>%
mutate(next_acd = if_else(lead(prod_type) %in% c("a","c","d"), lead(prod_id), prod_id[NA])) %>%
tidyr::fill(next_acd, .direction = "up") %>%
ungroup()
# # A tibble: 10 x 6
# group_id prod_id prod_type start fin next_acd
# <chr> <int> <chr> <date> <date> <int>
# 1 a 1 a 2001-01-01 NA 2
# 2 a 2 a 2002-02-02 NA 4
# 3 a 3 b 2003-03-03 NA 4
# 4 a 4 c 2004-04-04 NA 5
# 5 a 5 d 2005-05-05 NA NA
# 6 b 6 a 2001-01-01 NA 7
# 7 b 7 a 2002-02-02 NA 9
# 8 b 8 b 2003-03-03 NA 9
# 9 b 9 c 2004-04-04 NA 10
# 10 b 10 d 2005-05-05 NA NA
Другие вопросы по теме
Преобразование определенных значений в столбце в метку времени UNIX
В R, как я могу сгруппировать по одному столбцу и условно суммировать другой?
Как изменить ячейку на основе сравнения ячейки в той же строке со следующей ячейкой в столбце фрейма данных с помощью dplyr
Разделите строки более чем на один столбец, содержащий запятые
Фильтрация вектора по значениям с помощью filter()
Переименуйте и перекодируйте диапазон новых переменных в фрейме данных в R
Изменение нескольких столбцов с помощью фреймворка dplyr
Свернуть строки с одинаковым идентификатором и столбцами и сохранить все значения в r
Скользящие показатели R Dataframe по группам
Добавить столбец рекурсивно в R
Похожие вопросы
Преобразование определенных значений в столбце в метку времени UNIX
Создать переменные присутствия/отсутствия из строки символов для длинных данных
Оценить html-скрипт, хранящийся в объекте R, в R-markdown
В R, как я могу сгруппировать по одному столбцу и условно суммировать другой?
Как отфильтровать список моделей на основе Pr(>F)
Преобразование символьного столбца в дату со смешанными числами и датой в R
Как изменить ячейку на основе сравнения ячейки в той же строке со следующей ячейкой в столбце фрейма данных с помощью dplyr
Разделите строки более чем на один столбец, содержащий запятые
R Plotly Bar Chart — добавить маркеры горизонтальных линий
Считайте повторы в списке и сохраняйте их как кратные