Question

我在谷歌上看过几个例子，但仍然不太清楚它是如何运作的

这就是我想要做的事情。

我有一个文本数组

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

我希望作为输出长度为（V）-2（= 4）的数组

组成

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

是具有3个连续元素V

的连接的向量

我正在考虑使用像mapply这样的东西

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

但那不是正确的语法

感谢

Answer 1

你不需要任何幻想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（并且你可以将它与函数一起使用）如果你有几个不同的向量和你想要一个连接的每个向量一个不同的元素。

Answer 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"

Answer 3

这是使用apply()和embed()

的另一种选择

rev(apply(embed(rev(V),3), 1, paste, collapse=""))
# [1] "aabbcc" "bbccdd" "ccddee" "ddeeff"

在R中的矢量MAPPLY

3 个答案: