Заполнить данные групповыми данными
У меня есть data.table следующим образом: -
k <- data.table(name = rep(letters[1:4], each = 5),
year = rep(2015:2019, times = 4),
values = c(19, 19, 18, NA, 19, 44, NA, NA, NA, NA, 33, 32, NA, NA, NA, NA, NA, NA, NA, NA))
k
# name year values
# 1: a 2015 19
# 2: a 2016 19
# 3: a 2017 18
# 4: a 2018 NA
# 5: a 2019 19
# 6: b 2015 44
# 7: b 2016 NA
# 8: b 2017 NA
# 9: b 2018 NA
# 10: b 2019 NA
# 11: c 2015 33
# 12: c 2016 32
# 13: c 2017 NA
# 14: c 2018 NA
# 15: c 2019 NA
# 16: d 2015 NA
# 17: d 2016 NA
# 18: d 2017 NA
# 19: d 2018 NA
# 20: d 2019 NA
Каждая группа определяется столбцом name, и каждое имя имеет 5 значений year.
Я хочу заполнить каждое значение NA в группе первым уникальным значением в группе. Следовательно, мой результат data.table будет следующим: -
# name year values
# 1: a 2015 19
# 2: a 2016 19
# 3: a 2017 18
# 4: a 2018 19
# 5: a 2019 19
# 6: b 2015 44
# 7: b 2016 44
# 8: b 2017 44
# 9: b 2018 44
# 10: b 2019 44
# 11: c 2015 33
# 12: c 2016 32
# 13: c 2017 33
# 14: c 2018 33
# 15: c 2019 33
# 16: d 2015 NA
# 17: d 2016 NA
# 18: d 2017 NA
# 19: d 2018 NA
# 20: d 2019 NA
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
0
39
4
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 4
Вы можете использовать replace -
library(data.table)
k[, values := replace(values, is.na(values), first(values)), name]
k
# name year values
# 1: a 2015 19
# 2: a 2016 19
# 3: a 2017 18
# 4: a 2018 19
# 5: a 2019 19
# 6: b 2015 44
# 7: b 2016 44
# 8: b 2017 44
# 9: b 2018 44
#10: b 2019 44
#11: c 2015 33
#12: c 2016 32
#13: c 2017 33
#14: c 2018 33
#15: c 2019 33
#16: d 2015 NA
#17: d 2016 NA
#18: d 2017 NA
#19: d 2018 NA
#20: d 2019 NA
Ответ принят как подходящий
Возможное решение с использованием tidyverse:
library(data.table)
library(tidyverse)
k %>%
group_by(name) %>%
mutate(values = if_else(is.na(values), first(values), values)) %>%
ungroup() %>% as.data.table
#> name year values
#> 1: a 2015 19
#> 2: a 2016 19
#> 3: a 2017 18
#> 4: a 2018 19
#> 5: a 2019 19
#> 6: b 2015 44
#> 7: b 2016 44
#> 8: b 2017 44
#> 9: b 2018 44
#> 10: b 2019 44
#> 11: c 2015 33
#> 12: c 2016 32
#> 13: c 2017 33
#> 14: c 2018 33
#> 15: c 2019 33
#> 16: d 2015 NA
#> 17: d 2016 NA
#> 18: d 2017 NA
#> 19: d 2018 NA
#> 20: d 2019 NA
Или используя только data.table:
library(data.table)
k[, values := fifelse(is.na(values), first(values), values), by = name][]
#> name year values
#> 1: a 2015 19
#> 2: a 2016 19
#> 3: a 2017 18
#> 4: a 2018 19
#> 5: a 2019 19
#> 6: b 2015 44
#> 7: b 2016 44
#> 8: b 2017 44
#> 9: b 2018 44
#> 10: b 2019 44
#> 11: c 2015 33
#> 12: c 2016 32
#> 13: c 2017 33
#> 14: c 2018 33
#> 15: c 2019 33
#> 16: d 2015 NA
#> 17: d 2016 NA
#> 18: d 2017 NA
#> 19: d 2018 NA
#> 20: d 2019 NA
Или с nafill:
k[,values:=nafill(values,fill=first(values,na.rm=T)),by=name][]
name year values
<char> <int> <num>
1: a 2015 19
2: a 2016 19
3: a 2017 18
4: a 2018 18
5: a 2019 19
6: b 2015 44
7: b 2016 44
8: b 2017 44
k %>%
group_by(name) %>%
mutate(values = replace_na(values, first(values))) %>%
ungroup
name year values
<chr> <int> <dbl>
1 a 2015 19
2 a 2016 19
3 a 2017 18
4 a 2018 19
5 a 2019 19
6 b 2015 44
7 b 2016 44
8 b 2017 44
9 b 2018 44
10 b 2019 44
11 c 2015 33
12 c 2016 32
13 c 2017 33
14 c 2018 33
15 c 2019 33
16 d 2015 NA
17 d 2016 NA
18 d 2017 NA
19 d 2018 NA
20 d 2019 NA
Другие вопросы по теме
Как изменить этот код data.table, чтобы отображались переходы баланса вместо переходов частоты событий?
Как преобразовать выбранные строки в один столбец в R
R data.table разбить векторный столбец на строки
Как создать таблицу, измеряющую переходы элементов за календарные периоды?
Найти ближайшую точку во втором наборе данных для каждой точки в первом наборе данных
Применение функции к каждой строке для каждого n количества столбцов в R
Как рассчитать сумму различных наблюдений в R dplyr
Как агрегировать фрейм данных на основе максимального значения группы в R
Как сгруппировать взаимосвязанные элементы в R dplyr
Кластеризация похожих строк на основе другого столбца в R
Похожие вопросы
Как объединить и отфильтровать фрейм данных на основе нескольких условий?
Как выбрать символ из столбца во фрейме данных в R?
Градиент масштаба графика с дискретной отсечкой в geom_tile()
Получить первый элемент записей массива 2d в postgreSQL
Генерировать случайную дату после даты
Изменение повторяющихся значений в субъектах: R
Как объединить несколько столбцов этнической принадлежности в один в R?
Как объединить два кадра данных, указав определенные столбцы? (Р)
Суммируйте все способы выиграть X из последних N игр в R или Python
Вытягивайте элементы из списка списков в R, используя аккуратные принципы