Сортировка списка фреймов по дате

Question

У меня есть список данных в структуре, похожей на эту:

`ID1_01/05/10` <- data.frame(c(1,1))
`ID1_21/02/10` <- data.frame(c(2,1))
`ID2_01/05/10` <- data.frame(c(3,1))
`ID2_21/02/10` <- data.frame(c(4,1))
lst <- list(mget ( ls ( pattern = 'ID\\d+')))

Я хотел бы заказать их в списке сначала по личности, а затем по дате. То есть:

`ID1_21/02/10`
`ID1_01/05/10`
`ID2_21/02/10`
`ID2_01/05/10`

Есть ли способ сделать это легко?

Answer 1

Мы извлекаем namesполучить числовую часть ('v1') и Date часть, и order основываясь на этом

nm1 <-  sapply(lst, names)[,1]
v1 <- as.numeric(sub(".*(\\d+)_.*", "\\1", nm1))
d1 <- as.Date(sub(".*_", "", nm1), "%d/%m/%y")
nm1[order(v1, d1)]
#[1] "ID1_21/02/10" "ID1_01/05/10" "ID2_21/02/10" "ID2_01/05/10"

lapply(lst, function(x) x[order(v1, d1)])
#[[1]]
#[[1]]$`ID1_21/02/10`
# c.2..1.
#1       2
#2       1

#[[1]]$`ID1_01/05/10`
#  c.1..1.
#1       1
#2       1

#[[1]]$`ID2_21/02/10`
#  c.4..1.
#1       4
#2       1

#[[1]]$`ID2_01/05/10`
#  c.3..1.
#1       3
#2       1

Обновить

В примере ОП mget был завернут с list и это создаст list из lists, Вместо этого было бы

lst <- mget ( ls ( pattern = 'ID\\d+'))

и если это так, то

nm1 <- names(lst)
lst[order(v1, d1)]