命名向量的组合

Question

我已经命名了我想组合的向量，如下所示：

v1 <- c(0,1,2,3)
v2 <- c(0,1,2,3)
v3 <- c(0,1,2,3)
names(v1) <- c("This","is","an","example")
names(v2) <- c("This","great","value","random")
names(v3) <- c("This","This","and","This")

v1 和 v2 的预期结果：

This is an example great value random
0    1  2  3       1     2     3

对于 v1 和 v3：

This is an example This and This
0    1  2  3       1    2   3

如您所见，如果名称不同，向量只是绑定在一起。如果在结果向量中出现多次该名称，则如果对应的值相同，则保留一次，但如果每次出现的值不同，则保留多次。 我不知道我是否明确了我想要实现的目标。

有办法实现这样的目标吗？ 谢谢

Answer 1

我会做一个辅助函数，像这样：

Combiner <- function(vec1, vec2, vecOut = TRUE) {
  temp <- unique(rbind(data.frame(as.table(vec1)),
                       data.frame(as.table(vec2))))
  if (isTRUE(vecOut)) setNames(temp$Freq, temp$Var1)
  else temp
}

重点是比较名称和值，我发现将其放入data.frame 的形式中最简单。

然后用法是：

Combiner(v1, v2)
#    This      is      an example   great   value  random 
#       0       1       2       3       1       2       3 
Combiner(v1, v3)
#    This      is      an example    This     and    This 
#       0       1       2       3       1       2       3 

---

对于任意数量的向量，您可以将函数修改为：

Combiner <- function(..., vecOut = TRUE) {
  dots <- list(...)
  if (any(is.null(sapply(dots, names)))) stop("All vectors must be named")
  temp <- unique(do.call(rbind, lapply(dots, function(x) {
    data.frame(Name = names(x), Value = unname(x), stringsAsFactors = FALSE)
  })))
  if (isTRUE(vecOut)) setNames(temp$Value, temp$Name)
  else temp
}

虽然第一个版本仅适用于数字命名向量（因为它使用as.table），但第二个版本也应该适用于命名字符向量。