Подмножество моих данных для временной сети, как показано ниже: edge <- data.frame(onset = c(1968, 1968, 2007), terminus = c(1968, 1968, 2007), id_from = c(1, 1, 2), id_to = c(3, 2, 4),...