[英]`magrittr` pipe into apply
您如何將對象通過管道傳輸到apply
調用中的特定位置,這不是第一個輸入? magrittr
點占位符似乎不適用於此。
dat <- 1:10
locs <- list(c(1, 2),
c(3, 4),
c(5, 6))
foo <- function(x, y, z) {
out <- mean(c(x[y], x[z]))
return(out)
}
# works
lapply(locs, function(z) foo(dat, z[1], z[2]))
# none of these work
dat %>%
lapply(locs, function(z) foo(., z[1], z[2]))
dat %>%
lapply(locs, function(z) foo((.), z[1], z[2]))
dat %>%
lapply(locs, function(z) {. %>% foo(z[1], z[2])})
# New native pipe and placeholder also do not work
dat |>
lapply(locs, function(z) foo(_, z[1], z[2]))
您可以像下面這樣使用{}
> dat %>%
+ {lapply(locs, function(z) foo(., z[1], z[2]))}
[[1]]
[1] 1.5
[[2]]
[1] 3.5
[[3]]
[1] 5.5
這里有兩種方法,使用magrittr
和本地管道。
suppressPackageStartupMessages(library(magrittr))
dat <- 1:10
locs <- list(c(1, 2),
c(3, 4),
c(5, 6))
foo <- function(x, y, z) {
out <- mean(c(x[y], x[z]))
return(out)
}
# wrap the function around parenthesis
dat %>%
(\(d) lapply(locs, \(z) foo(., z[1], z[2])))()
#> [[1]]
#> [1] 1.5
#>
#> [[2]]
#> [1] 3.5
#>
#> [[3]]
#> [1] 5.5
# New native pipe with anonymous function
dat |>
{\(d) lapply(locs, \(z) foo(x = d, z[1], z[2]))}()
#> [[1]]
#> [1] 1.5
#>
#> [[2]]
#> [1] 3.5
#>
#> [[3]]
#> [1] 5.5
由reprex 包於 2022-05-18 創建 (v2.0.1)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.