Существует ли простой способ сравнить совпадающие элементы фрейма данных из списка и заменить его на фрейм данных?

Question

У меня есть следующий фрейм данных различных наблюдений:

    df <- data.frame('Time' = c(1058,672,1153,1321,1408), 'Event' = c('LU6/LU12','LU48','LU12','LU6/LU12','LU6'), 'Name' = NA)

А также этот список ссылок, в котором первый элемент каждого вектора - это Время, а остальные - События, совершенные:

ReferenceList <- list('A' = c('500','LU24','LU12','LU6'),
                      'B' = c('1000','LU48','LU24','LU12','LU6'),
                      'C' = c('1500','LU48','LU24','LU12','LU6'))

Я хотел бы заменить значения NA столбца Name на имя каждого вектора в списке, учитывая наименьшую разницу между наблюдаемым временем и эталоном, и в каком векторе из списка появляется событие. Для этого случая я бы получил этот фрейм данных:

Time    Event     Name
1058    LU6/LU12  B
672     LU48      B
1153    LU12      B
1321    LU6/LU12  C
1408    Lu6       C

Есть ли функция R для этого или прямой способ избежать циклов?

Заранее спасибо!

Answer 1

Попробуйте этот, казалось бы, запутанный подход, используя dplyr и tidyr.

library(dplyr)
library(tidyr)

Во-первых, я думаю, что ваше текущее хранилище ReferenceList - плохая идея. Гораздо лучше хранить числа в виде чисел.

ref2 <- stack(ReferenceList) %>%
  transmute(Name = as.character(ind), values) %>%
  group_by(Name) %>%
  summarize(
    Time2 = as.integer(grep("^\\d+$", values, value = TRUE)),
    Event = list(grep("\\D", values, value = TRUE))
  ) %>%
  unnest(Event)
ref2
# # A tibble: 11 x 3
#    Name  Time2 Event
#    <chr> <int> <chr>
#  1 A       500 LU24 
#  2 A       500 LU12 
#  3 A       500 LU6  
#  4 B      1000 LU48 
#  5 B      1000 LU24 
#  6 B      1000 LU12 
#  7 B      1000 LU6  
#  8 C      1500 LU48 
#  9 C      1500 LU24 
# 10 C      1500 LU12 
# 11 C      1500 LU6  

Этот формат намного удобнее в использовании (ИМХО) и значительно позже сливается.

Отсюда,

df %>%
  select(-Name) %>%
  mutate(
    rn = row_number(),
    Event = as.character(Event),
    Event_list = strsplit(Event, "/")
  ) %>%
  unnest(Event_list) %>%
  left_join(ref2, by = c("Event_list" = "Event")) %>%
  group_by(rn) %>%
  slice(which.min(abs(Time - Time2))) %>%
  select(Time, Event, Name) %>%
  ungroup()
# Adding missing grouping variables: `rn`
# # A tibble: 5 x 4
#      rn  Time Event    Name 
#   <int> <dbl> <chr>    <chr>
# 1     1  1058 LU6/LU12 B    
# 2     2   672 LU48     B    
# 3     3  1153 LU12     B    
# 4     4  1321 LU6/LU12 C    
# 5     5  1408 LU6      C