r - 根据 R 中的逻辑向量过滤嵌套的数据帧列表
问题描述
我有一个嵌套的坐标列表:
coords <- list(`41` = structure(list(lon = c(11.9170235974052, 11.9890348226944,11.9266305690725),
lat = c(48.0539406017157, 48.0618200883643,48.0734094557987)),
class = "data.frame", row.names = c(NA, -3L )),
`51` = structure(list(lon = c(11.9700157009047, 11.9661664366154,11.9111812165745),
lat = c(48.0524843177559, 48.0645786453912, 48.0623193233537)),
class = "data.frame", row.names = c(NA, -3L)),
`61` = structure(list(lon = c(11.9464237941416, 11.9536554768081,11.9112311461624),
lat = c(48.040970408282, 48.0408864989903, 48.0284615642167)),
class = "data.frame", row.names = c(NA, -3L )),
`71` = structure(list(lon = c(11.9274864543974, 11.8733675039864,11.933264512569),
lat = c(48.0135478382282, 48.0216452485664, 48.0289752363299)),
class = "data.frame", row.names = c(NA, -3L)),
`81` = structure(list(lon = c(11.8837173493491, 11.9072450330566,11.8943898749275),
lat = c(48.0266639859759, 48.0132853717376, 48.0327326995006)),
class = "data.frame", row.names = c(NA, -3L )),
`91` = structure(list(lon = c(11.882538477087, 11.8377742591454,11.8817027393128),
lat = c(48.0284081468982, 48.022864811514, 48.0229810559649)),
class = "data.frame", row.names = c(NA, -3L )))
我想根据嵌套的逻辑值列表过滤这个列表。
index <- list(`41` = c(TRUE, TRUE, FALSE), `51` = c(FALSE, FALSE, TRUE
), `61` = c(FALSE, FALSE, FALSE), `71` = c(FALSE, FALSE, FALSE
), `81` = c(FALSE, FALSE, FALSE), `91` = c(FALSE, FALSE, FALSE))
这样做的最佳方法是什么?我试图取消列出嵌套列表或创建一个 data.frame 但没有成功。谢谢!
解决方案
你可以Map
这样使用:
Map(function(x, y) x[y, ], coords, index)
#$`41`
# lon lat
#1 11.91702 48.05394
#2 11.98903 48.06182
#$`51`
# lon lat
#3 11.91118 48.06232
#$`61`
#[1] lon lat
#<0 rows> (or 0-length row.names)
#...
#...
在tidyverse
:
library(purrr)
library(dplyr)
map2(coords, index, ~.x %>% filter(.y))
推荐阅读
- ios - 如何在 swifty iOS 客户端和 RABBIT MQ 之间建立连接
- r - 如何像普通列表中的组件一样选择 s4 类中的组件?
- python - 在python中将TIF文件从特定页面拆分到特定页面
- elasticsearch - 过滤具有多个值的字段
- ios - 使用 swift 上传 Firebase 图像
- sapui5 - 如何在 sap.m.TileContent 的内容中添加多个控件?
- c# - TPL 数据流,块故障处理程序中的异常不会传播
- c# - 当通过嵌入式 ETW 提供程序跟踪 WPF 操作时,操作 ID 是可变的
- angular - 如何在 if 语句中评估承诺
- firebase - 如果不允许用户在 firestore 中更新文档,那么它也不允许设置合并?