R从管道中的列表中选择项目
R从管道中的列表中选择项目
提问于 2019-05-08 01:38:39
在使用purrr:map向其应用另一个函数之前，我希望按索引从列表中选择项。我试过以下几种方法，但找不到有效的方法。
require(dplyr)
require(purrr)
dat <- list(1:3,
4:6,
letters[1:3])
# I can select one item
dat[1]
# I can select two items
dat[c(1,2)]
# But how can I do this in a pipeline by index?
dat %>% map(mean)
dat %>%
filter(c(1,2)) %>%
map(mean)
dat %>%
keep(1,2) %>%
map(mean)
dat %>%
select(1,2) %>%
map(mean)回答 2
Stack Overflow用户
回答已采纳
发布于 2019-05-08 02:11:27
我们可以使用`[`
dat %>%
.[c(1, 2)] %>%
map(., mean)
#[[1]]
#[1] 2
#[[2]]
#[1] 5或者用magrittr包的方式定义别名
extract <- `[` # literally the same as magrittr::extract
dat %>%
extract(c(1, 2)) %>%
map(., mean)也可以写成
dat %>% `[`(c(1,2))多亏了@Moody_Mudskipper
Stack Overflow用户
发布于 2019-05-08 01:41:43
一种选择是
library(tidyverse)
keep(dat, seq_along(dat) %in% 1:2) %>%
map(mean)
#[[1]]
#[1] 2
#[[2]]
#[1] 5或map与pluck
map(1:2, ~ pluck(dat, .x) %>%
mean)或使用assign_in
assign_in(dat, 3, NULL) %>%
map(mean)或者另一个选择是map_if
map_if(dat, is.numeric, mean, .else = ~ NULL) %>%
discard(is.null)或使用discard
discard(dat, is.character) %>%
map(mean)或者使用Filter和map
Filter(is.numeric, dat) %>%
map(mean)注意:它们都得到了预期的输出。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56037679
复制相关文章
相似问题
twilio_view装潢师总是在生产中给403个
用户:给403页
阿帕奇给403禁用
装饰器不将对象返回给get方法
Laravel + NGINX给403被禁
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
