arrays - 如何在R中制作和排序元组数组

Question

我有几个元组，我需要根据第二项对它们进行排序。
这是一个伪代码:

events <- vector(mode = "list", length = 5)
events[[1]] <- c(3,1.4)
events[[2]] <- c(2,1.8)
events[[3]] <- c(8,5.3)
events[[4]] <- c(6,1.4)
events[[5]] <- c(6,5.4)

#sort according to second item in tuple
sort(events)
events

我想得到这样的结果:

[c(3,1.4),c(6,1.4),c(2,1.8),c(8,5.3),c(6,5.4)]

Answer 1

一种方法是使用 [ 提取列表每个组件的第二个元素。然后对它们进行排序并使用该排序对 events 进行排序.

首先，创建您似乎拥有的数据对象:

events <- vector(mode = "list", length = 5)
events[[1]] <- c(3,1.4)
events[[2]] <- c(2,1.8)
events[[3]] <- c(8,5.3)
events[[4]] <- c(6,1.4)
events[[5]] <- c(6,5.4)

下一步是提取每个列表组件的第二个元素。我们可以使用 sapply() 来做到这一点申请 [功能。 2下面指的是第二个元素。

> sapply(events, `[`, 2)
[1] 1.4 1.8 5.3 1.4 5.4

然后我们可以使用 order() 获得这些第二个元素的顺序。

> ord <- order(sapply(events, `[`, 2))
> ord
[1] 1 4 2 3 5

然后我们可以使用它来排序 events 的列表

> events[ord]
[[1]]
[1] 3.0 1.4

[[2]]
[1] 6.0 1.4

[[3]]
[1] 2.0 1.8

[[4]]
[1] 8.0 5.3

[[5]]
[1] 6.0 5.4