2

我有以下框架数据集：

master <- data.frame (namest = c("A","B", "C","D", "E", "F"), 
 position =c( 0, 10, 20, 25, 30, 35))
master
      namest position
    1      A        0
    2      B       10
    3      C       20
    4      D       25
    5      E       30
    6      F       35

这是更大的地图（比如路线图），其中有地点和位置的名称。现在在第二次调查中，我们有更小的子集（很多，这里只有 3 个）。

subset1 <- data.frame (namest = c("I", "A", "ii", "iii", "B"), 
 position = c(0, 10, 12, 14, 20))  
subset1
  namest position
1      I        0
2      A       10
3     ii       12
4    iii       14
5      B       20

subset2 <- data.frame (namest = c("E", "vii", "F"), position = c(0, 3,5))
 subset2
  namest position
1      E        0
2    vii        3
3      F        5

subset3 <- data.frame (namest = c("D", "vi", "v", "C", "iv"), 
   position = c(0, 2, 3, 5, 8))
subset3
  namest position
1      D        0
2     vi        2
3      v        3
4      C        5
5     iv        8

您可以看到每个子集都有两个对 master 通用的名称，例如 subset3 中的 D 和 C。

现在我想把这些子集结合起来做更详细的掌握。意味着新的名字将被定位在新的地图中。看到一些子集（参见subset3）与master相比具有相反的顺序。

因此预期的输出是：

subsetalign <- data.frame(subsett = c(rep ("A-B", nrow(subset1)),
rep("C-D", nrow(subset3)), 
rep("E-F", nrow(subset2))), namest =  c(c("I", "A", "ii", "iii", "B"), 
rev (c("D", "vi", "v", "C", "iv")),c("E", "vii", "F")), 
position = c(subset1$position, rev (subset3$position), subset2$position))

 subsetalign
   subsett namest position
1      A-B      I        0
2      A-B      A       10
3      A-B     ii       12
4      A-B    iii       14
5      A-B      B       20
6      C-D     iv        8
7      C-D      C        5
8      C-D      v        3
9      C-D     vi        2
10     C-D      D        0
11     E-F      E        0
12     E-F    vii        3
13     E-F      F        5

输出过程可以可视化为（我不是要创建这样的图，在这一点上，只是为了更好地解释）：

在此处输入图像描述

编辑：由于两件事，它不是简单的 rbind：

(a) 子集根据它们的命令名称在主文件中的排列方式进行排序。例如子集1（AB）+子集3（CD）+子集2（EF），因为master中的顺序是ABCDEF

(b) 此外，如果子集的顺序与主节点相反，则应将它们颠倒。在子集 3 中，namest 的顺序是“D”-“vi”-“v”-“C”-“iv”，但在 master D 中，在 C 之后，所以这个 sustet 3 应该在绑定之前反转。

4

1 回答 1

2

假设子集在列表中

subsets <- list(subset1, subset2, subset3)

主节点中锚点的位置是

idx <- lapply(subsets, function(x, y) match(x$namest, y$namest), master)

每个子集的方向是

orientation <- sapply(idx, function(elt) unique(diff(elt[!is.na(elt)])))

而在master中的位置是

position <- sapply(idx, function(elt) min(elt, na.rm=TRUE))

子集可以排序subsets[order(position)]，必要时可以颠倒

updt <- Map(function(elt, dir) {
    if (dir == -1)
        elt[rev(seq_len(nrow(elt))),] 
   else elt
}, subsets[order(position)], orientation[order(position)])

和rbind编辑在一起，do.call(rbind, updt)。这是假设所有区间都只master表示一次。

于 2012-06-03T16:42:33.310 回答