Слияние данных таблицы данных в R на основе условий

Я пытался понять это в течение некоторого времени без успеха. Я пробовал использовать data.table, merge и apply, но я новичок и, возможно, что-то пропустил. В основном я хочу использовать информацию datetime («dt») и уникальный идентификатор события («uid») из одного набора данных, чтобы создать столбец, сообщающий мне, были ли выполнены условия или были ли выполнены условия «sid». Сложно то, что для заданных «dt» и «uid» могло возникнуть появление более чем на одном «sid», и я хочу это знать. Мои наборы данные выглядят следующим образом ...Слияние данных таблицы данных в R на основе условий

 > head(D1) 
     X     dt  tid  rid  sid uid nutm  eutm 
    1 1 2013-09-06 08:55:00 A69-1601-27 VR2W-11 BUIS_09 1 1932024 389346.7 
    2 2 2013-09-06 08:55:00 A69-1601-27 VR2W-12 BUIS_08 1 1932024 389346.7 
    3 3 2013-09-06 08:56:00 A69-1601-27 VR2W-11 BUIS_09 1 1932024 389346.7 
    4 4 2013-09-06 08:57:00 A69-1601-27 VR2W-11 BUIS_09 1 1932024 389346.7 
    5 5 2013-09-06 08:57:00 A69-1601-27 VR2W-12 BUIS_08 1 1932024 389346.7 
    6 6 2013-09-06 08:57:00 A69-1601-27 VR2W-11 BUIS_09 1 1932024 389346.7 

> head(D2) 
    X     dt uid 
1 1 09/06/2013 08:57:00 1 
2 2 09/06/2013 08:58:00 1 
3 3 09/06/2013 08:59:00 1 
4 4 09/06/2013 09:00:00 1 
5 5 09/06/2013 09:01:00 1 
6 6 09/06/2013 09:02:00 1

Я хочу, чтобы запустить функцию, которая, начиная с первой строкой D2 смотрит на «UID» и «дт» каждую строку D1 и создает колонку о том, является ли теми были выполнены условия и связанный с ними «сид», для которого эти условия были выполнены. Так что мой результат будет выглядеть примерно так ...

head(stimes) 
    X     dt uid freq sid  tid   rid  nutm eutm 
1 1 09/06/2013 08:57:00 1 T BUIS_09 A69-1601-27 VR2W-11 1932024 389346.7 
1 2 09/06/2013 08:57:00 1 T BUIS_08 A69-1601-27 VR2W-12 1967024 389346.7

Новые данные: dput (головка (D1)) выглядит следующим образом. Это немного сложно, потому что есть огромное количество уникальных времен даты, но в целом ...

 "2014-05-03 09:12:00", "2014-05-03 09:13:00", "2014-05-03 09:14:00", 
     "2014-05-03 09:15:00", "2014-05-03 09:16:00", "2014-05-03 09:17:00", 
     "2014-05-03 09:18:00", "2014-05-03 09:19:00", "2014-05-03 09:20:00", 
     "2014-05-03 09:21:00", "2014-05-03 09:22:00"), class = "factor"),  
    tid = structure(c(2L, 2L, 3L, 2L, 2L, 2L), .Label = c("A69-1303-54", 
     "A69-1601-27", "A69-1601-275", "A69-1601-31"), class = "factor"), 
     rid = structure(c(30L, 30L, 30L, 30L, 30L, 30L), .Label = c("VR2W-102913", 
     "VR2W-914", "VR2W-916", "VR2W-102917", "VR2W-210", 
     "VR2W-710", "VR2W-711", "VR2W-103821", "VR2W-088", 
     "VR2W-620", "VR2W-621", "VR2W-104622", "VR2W-938", 
     "VR2W-320", "VR2W-145", "VR2W-110204", "VR2W-205", 
     "VR2W-207", "VR2W-208", "VR2W-110210", "VR2W-634", 
     "VR2W-118", "VR2W-119", "VR2W-114120", "VR2W-121", 
     "VR2W-122", "VR2W-123", "VR2W-114124", "VR2W-125", 
     "VR2W-498", "VR2W-499", "VR2W-115500", "VR2W-501", 
     "VR2W-502", "VR2W-503", "VR2W-115504", "VR2W-925", 
     "VR2W-272", "VR2W-273", "VR2W-120967", "VR2W-585" 
     ), class = "factor"), sid = structure(c(9L, 9L, 9L, 9L, 9L, 
     9L), .Label = c("BUIS_01", "BUIS_02", "BUIS_03", "BUIS_04", 
     "BUIS_05", "BUIS_06", "BUIS_07", "BUIS_08", "BUIS_09", "BUIS_10", 
     "BUIS_11", "BUIS_12", "BUIS_13", "BUIS_14", "BUIS_15", "BUIS_16", 
     "BUIS_17", "BUIS_18", "BUIS_19", "BUIS_20", "BUIS_22", "BUIS_26", 
     "BUIS_27", "BUIS_31", "BUIS_33", "BUIS_34", "BUIS_35", "BUIS_36", 
     "BUIS_37", "BUIS_38", "BUIS_41", "BUIS_42", "BUIS_43", "BUIS_46" 
     ), class = "factor"), uid = c(NA, NA, NA, 1L, 1L, 1L), nutm = c(NA, 
     NA, NA, 1967024.456, 1967024.456, 1967024.456), eutm = c(NA, 
     NA, NA, 328346.6957, 328346.6957, 328346.6957)), .Names = c("X", 
    "dt", "tid", "rid", "sid", "uid", "nutm", "eutm"), row.names = c(NA, 
    6L), class = "data.frame")

источник

2015-05-08 Espenshade

Вместо или в дополнение к 'head (D1)' вы могли бы предоставить 'dput (head (D1))', чтобы мы могли лучше смотреть на данные? – Frank

Кроме того, вы не знаете, что такое ваше состояние, и поэтому не можете создать столбец 'freq'. – Frank

Наконец, ваш выход не связан с вашим входом (например, вводят новые значения 'nutm'). Ваш вопрос должен быть самодостаточным: http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example – Frank

Если бы они были data.tables (они не являются),

setkey(D1,dt,uid) 
setkey(D2,dt,uid) 

D1[D2,nomatch=0]

может это сделать ,

источник

2015-05-08 18:31:39 Frank

Слияние данных таблицы данных в R на основе условий

ответ

Смежные вопросы