R 如何子集列表的多个元素
我试图从列表中的元素中删除不需要的值。下面的例子是我试图解决这个问题的浓缩版本。这个系统将被制作成一个闪亮的应用程序,因此它需要对任何大小或基数的输入向量做出反应(如下所示为a:B,‘group…’,remove),因为这些将是用户选择的间接结果R 如何子集列表的多个元素,r,R,我试图从列表中的元素中删除不需要的值。下面的例子是我试图解决这个问题的浓缩版本。这个系统将被制作成一个闪亮的应用程序,因此它需要对任何大小或基数的输入向量做出反应(如下所示为a:B,‘group…’,remove),因为这些将是用户选择的间接结果 A <- c(35,35,2609,917,0) B <- c(8,6,9,24,27,35) C <- c(1,45,91,24) D <- c(927,38,22,9) E <- c(6361,7,43) my.li
A <- c(35,35,2609,917,0)
B <- c(8,6,9,24,27,35)
C <- c(1,45,91,24)
D <- c(927,38,22,9)
E <- c(6361,7,43)
my.list <- list(A, B, C, D, E)
group1 <- c(1,2)
group2 <- c(3,5)
remove <- c(35, 24, 6361)
my.list[group1] <- my.list[group1] %>% subset(., !.%in% remove)
my.list
###final expected output
my.list
[[1]]
[1] 2609 917 0
[[2]]
[1] 8 6 9 27
[[3]]
[1] 1 45 91 24
[[4]]
[1] 927 38 22 9
[[5]]
[1] 6361 7 43
Amy.list[group1]%lappy(函数(x)setdiff(x,删除))
group1
和group2
代表什么?您的最终预期输出是什么?请参见编辑,我有一个来自sindri belowyeah boi的解决方案,只需一个输入错误:%>%*,谢谢@Jose_harkhan这不是打字错误:。哦,对不起,这是什么意思\0wo/my.list[group1]%lappy(…
是my.list[group1]%lappy(…
my.list[group1] %<>% lapply(function(x) setdiff(x, remove))