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

用位置列表中的索引替换向量

apply list r

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

我有一个值向量:

y=c(2,3,4,4,3,2,1,1)

和位置向量列表:

l=list(c(1,2),c(2,3),c(3,4),c(4,5),c(5,6),c(6,7),c(7,8),c(8,1))

y 由NAs(或其他)为列表中的每个元素 l .

预期输出是一个长度列表 length(l) :

[[1]]
[1] NA NA  4  4  3  2  1  1

[[2]]
[1]  2 NA NA  4  3  2  1  1

[[3]]
[1]  2  3 NA NA  3  2  1  1

[[4]]
[1]  2  3  4 NA NA  2  1  1

[[5]]
[1]  2  3  4  4 NA NA  1  1

[[6]]
[1]  2  3  4  4  3 NA NA  1

[[7]]
[1]  2  3  4  4  3  2 NA NA

[[8]]
[1] NA  3  4  4  3  2  1 NA

首选碱性R溶液。

2 回复 | 直到 3 年前

akrun 3 年前

我们可以绕着地球转一圈 list replace NA

lapply(l, \(x) replace(y, x, NA))
[[1]]
[1] NA NA  4  4  3  2  1  1

[[2]]
[1]  2 NA NA  4  3  2  1  1

[[3]]
[1]  2  3 NA NA  3  2  1  1

[[4]]
[1]  2  3  4 NA NA  2  1  1

[[5]]
[1]  2  3  4  4 NA NA  1  1

[[6]]
[1]  2  3  4  4  3 NA NA  1

[[7]]
[1]  2  3  4  4  3  2 NA NA

[[8]]
[1] NA  3  4  4  3  2  1 NA

is.na<-

lapply(l, `is.na<-`, x = y)
[[1]]
[1] NA NA  4  4  3  2  1  1

[[2]]
[1]  2 NA NA  4  3  2  1  1

[[3]]
[1]  2  3 NA NA  3  2  1  1

[[4]]
[1]  2  3  4 NA NA  2  1  1

[[5]]
[1]  2  3  4  4 NA NA  1  1

[[6]]
[1]  2  3  4  4  3 NA NA  1

[[7]]
[1]  2  3  4  4  3  2 NA NA

[[8]]
[1] NA  3  4  4  3  2  1 NA

Rui Barradas 3 年前

下面是一个基本的R解决方案,其中包含 lapply

lapply(l, \(x) {is.na(y) <- x; y})
#[[1]]
#[1] NA NA  4  4  3  2  1  1
#
#[[2]]
#[1]  2 NA NA  4  3  2  1  1
#
#[[3]]
#[1]  2  3 NA NA  3  2  1  1
#
#[[4]]
#[1]  2  3  4 NA NA  2  1  1
#
#[[5]]
#[1]  2  3  4  4 NA NA  1  1
#
#[[6]]
#[1]  2  3  4  4  3 NA NA  1
#
#[[7]]
#[1]  2  3  4  4  3  2 NA NA
#
#[[8]]
#[1] NA  3  4  4  3  2  1 NA

推荐文章

Dave · 如何在for循环中修改列表值

5 月前

geoscience123 · 如何计算R中一个表列与另一个数据帧的匹配数?

5 月前

matteo panaro · 向列表中添加项目

6 月前

Bioinfotec · 如何在R中将两个嵌套列表合并为一个列表?

6 月前

Jeffrey Van Laethem · 获取两个列表之间的所有元组排列

6 月前

Pernoctador · Python映射可以复制吗?我需要参考地图

6 月前

Bogaso · 从列表中返回与模式匹配的元素

7 月前

Daniel · 我有一组要排除的单词,我想检查输入的每个新单词是否完全包含在另一个单词中。我该怎么做?

7 月前

Tom Hunter · Excel验证列表中的条目

7 月前

Estrobelai · Python:数组中价格高于平均值的所有项目

10 月前