1

我在谷歌上看过几个例子，但还是不太明白它是如何工作的

这就是我想要做的。

我有一个文本数组

> V <- c("aa","bb","cc","dd","ee","ff")
> V
[1] "aa" "bb" "cc" "dd" "ee" "ff"

我想要一个长度为length(V)-2 (=4)的数组作为输出，由

[1] "aabbcc" "bbccdd" "ccddee" "ddeeff"

这是一个由 V 的 3 个连续元素串联而成的向量

我正在考虑使用类似 mapply 的东西

mapply(function(x,i){paste(x[i:i+2],sep="",collapse="")},V,1:(length(V)-2))

但这不是正确的语法

谢谢

4

3 回答 3

2

你不需要任何幻想mapply：

n = length(V)
paste0(V[1:(n - 2)], V[2:(n - 1)], V[3:n])

这是一个参数解决方案，您仍然不需要mapply：

i = 3
apply(matrix(V, nrow = length(V) + 1, ncol = i)[1:(length(V) - i + 1), ],
      MARGIN = 1, FUN = paste, collapse = "")

您可以对此进行功能化：

f = function(V, i) {
  apply(matrix(V, nrow = length(V) + 1, ncol = i)[1:(length(V) - i + 1), ],      
        MARGIN = 1, FUN = paste, collapse = "")
}

然后，您可以将其应用于向量列表，如下所示：

lapply(list(c("a", "b", "c", "d"), letters), f, i = 3)

# [[1]]
# [1] "abc" "bcd"
#
# [[2]]
#  [1] "abc" "bcd" "cde" "def" "efg" "fgh" "ghi" "hij" "ijk" "jkl" "klm" "lmn" "mno" "nop" "opq"
# [16] "pqr" "qrs" "rst" "stu" "tuv" "uvw" "vwx" "wxy" "xyz"

如果您有几个不同的向量并且对于每个向量您想要不同数量的元素的串联，您将需要mapply（并且您可以将它与函数一起使用） 。

于 2015-10-10T03:56:59.300 回答
2

如果您的项目需要许多连续的元素，这是一个解决方案。还有其他方法，mapply只是其中一种：

mapply(function(x,y) paste(V[x:y], collapse=""), 1:(length(V)-2), 3:length(V))
#[1] "aabbcc" "bbccdd" "ccddee" "ddeeff"

根据您的评论，您可以创建一个函数并lapply用于列表：

paste2 <- function(vec, n=3) {
  mapply(function(x,y) paste(vec[x:y], collapse=""), 1:(length(vec)-(n-1)), n:length(vec))
}

## single vector still works
paste2(V)
#[1] "aabbcc" "bbccdd" "ccddee" "ddeeff"

## with list
lst <- rep(list(V), 2)
lapply(lst, paste2)
#[[1]]
#[1] "aabbcc" "bbccdd" "ccddee" "ddeeff"
#
#[[2]]
#[1] "aabbcc" "bbccdd" "ccddee" "ddeeff"
于 2015-10-10T04:00:18.203 回答
1

这是另一种使用apply()andembed()

rev(apply(embed(rev(V),3), 1, paste, collapse=""))
# [1] "aabbcc" "bbccdd" "ccddee" "ddeeff"
于 2015-10-10T04:13:05.040 回答