代码之家 › 专栏 › 技术社区 › Maël

获取一个元素和上一个相同元素之间的元素子集

lapply subset duplicates vector r

Maël · 技术社区 · 4 年前

考虑一个矢量:

vec <- c(1, 3, 4, 3, 3, 1, 1)

对于向量的每个元素,我想得到第n个元素与其前一次出现之间的值的子集。

预期输出为:

f(vec)

# [[1]]
# [1] 1
# 
# [[2]]
# [1] 3
# 
# [[3]]
# [1] 4
# 
# [[4]]
# [1] 3 4 3
# 
# [[5]]
# [1] 3 3
# 
# [[6]]
# [1] 1 3 4 3 3 1
# 
# [[7]]
# [1] 1 1

0 回复 | 直到 4 年前

akrun 4 年前

我们可以在向量的序列上循环,从向量的前几个元素中得到同一元素('i1')的最后一个匹配的索引,然后得到序列( : )对向量进行子集运算

lapply(seq_along(vec), function(i)  {
  i1 <- tail(which(vec[1:(i-1)] == vec[i]), 1)[1]
  i1[is.na(i1)] <- i
  vec[i1:i]
 })

-输出

[[1]]
[1] 1

[[2]]
[1] 3

[[3]]
[1] 4

[[4]]
[1] 3 4 3

[[5]]
[1] 3 3

[[6]]
[1] 1 3 4 3 3 1

[[7]]
[1] 1 1

推荐文章

user4567794374545 · 如何将函数应用于R中的多个列?

3 年前

maycca · R: 使用lappy在两个列表上同时迭代函数?

8 年前

Jack Dean · 使用biomart的Lappy问题

8 年前

xeyetopewu · 将列传递到lappy中的“with”

8 年前

Denisse Kowaleski · 为散点图合并两个不匹配的数据帧

8 年前

M. Stargardter · R: 结合lapply和left\u join以有条件地合并数据帧

8 年前

delcast · 批量打印ggmaps

8 年前

undergrad · lapply在R中,无法打开连接?

8 年前

HnCetin · 使用自定义函数时Lappy出现意外结果

8 年前

Wang · 在我的函数中加入lapply。递归?

8 年前