sapply(c("pipeR", "dplyr", "purrr"), require, character.only = TRUE)
要求されたパッケージ pipeR をロード中です
要求されたパッケージ dplyr をロード中です
次のパッケージを付け加えます: ‘dplyr’
以下のオブジェクトは ‘package:stats’ からマスクされています:
filter, lag
以下のオブジェクトは ‘package:base’ からマスクされています:
intersect, setdiff, setequal, union
要求されたパッケージ purrr をロード中です
次のパッケージを付け加えます: ‘purrr’
以下のオブジェクトは ‘package:dplyr’ からマスクされています:
contains, order_by
pipeR dplyr purrr
TRUE TRUE TRUE
l <- list(
d1 = data_frame(v1 = month.abb, v2 = runif(12, min = 0, max = 100)),
d2 = data_frame(v1 = month.abb, v2 = runif(12, min = 0, max = 1000))
)
l
$d1
v1 <chr> | v2 <dbl> | |||
---|---|---|---|---|
Jan | 67.336886 | |||
Feb | 99.786500 | |||
Mar | 5.085841 | |||
Apr | 79.687544 | |||
May | 32.645636 | |||
Jun | 7.440409 | |||
Jul | 58.217419 | |||
Aug | 30.428674 | |||
Sep | 59.376327 | |||
Oct | 94.023012 |
$d2
v1 <chr> | v2 <dbl> | |||
---|---|---|---|---|
Jan | 305.20161 | |||
Feb | 133.19709 | |||
Mar | 707.18102 | |||
Apr | 349.30171 | |||
May | 135.29703 | |||
Jun | 623.26416 | |||
Jul | 925.39341 | |||
Aug | 378.83637 | |||
Sep | 141.74380 | |||
Oct | 47.84006 |
NA
names(l)
[1] "d1" "d2"
Access list names
in lapply function
lapply
over names(l)
names(l) %>>% lapply(function(x){
l[[x]] %>>% dplyr::mutate(dname = x)
})
[[1]]
v1 <chr> | v2 <dbl> | dname <chr> | ||
---|---|---|---|---|
Jan | 67.336886 | d1 | ||
Feb | 99.786500 | d1 | ||
Mar | 5.085841 | d1 | ||
Apr | 79.687544 | d1 | ||
May | 32.645636 | d1 | ||
Jun | 7.440409 | d1 | ||
Jul | 58.217419 | d1 | ||
Aug | 30.428674 | d1 | ||
Sep | 59.376327 | d1 | ||
Oct | 94.023012 | d1 |
[[2]]
v1 <chr> | v2 <dbl> | dname <chr> | ||
---|---|---|---|---|
Jan | 305.20161 | d2 | ||
Feb | 133.19709 | d2 | ||
Mar | 707.18102 | d2 | ||
Apr | 349.30171 | d2 | ||
May | 135.29703 | d2 | ||
Jun | 623.26416 | d2 | ||
Jul | 925.39341 | d2 | ||
Aug | 378.83637 | d2 | ||
Sep | 141.74380 | d2 | ||
Oct | 47.84006 | d2 |
NA
purrr::map2()
purrr::map2(l, names(l), function(x, y){
x %>>% dplyr::mutate(dname = y)
})
$d1
v1 <chr> | v2 <dbl> | dname <chr> | ||
---|---|---|---|---|
Jan | 67.336886 | d1 | ||
Feb | 99.786500 | d1 | ||
Mar | 5.085841 | d1 | ||
Apr | 79.687544 | d1 | ||
May | 32.645636 | d1 | ||
Jun | 7.440409 | d1 | ||
Jul | 58.217419 | d1 | ||
Aug | 30.428674 | d1 | ||
Sep | 59.376327 | d1 | ||
Oct | 94.023012 | d1 |
$d2
v1 <chr> | v2 <dbl> | dname <chr> | ||
---|---|---|---|---|
Jan | 305.20161 | d2 | ||
Feb | 133.19709 | d2 | ||
Mar | 707.18102 | d2 | ||
Apr | 349.30171 | d2 | ||
May | 135.29703 | d2 | ||
Jun | 623.26416 | d2 | ||
Jul | 925.39341 | d2 | ||
Aug | 378.83637 | d2 | ||
Sep | 141.74380 | d2 | ||
Oct | 47.84006 | d2 |
NA
devtools::session_info()
Session info -----------------------------------------------------------
setting value
version R version 3.3.2 (2016-10-31)
system x86_64, mingw32
ui RStudio (1.0.44)
language (EN)
collate Japanese_Japan.932
tz Asia/Tokyo
date 2016-11-29
Packages ---------------------------------------------------------------
package * version date source
assertthat 0.1 2013-12-06 CRAN (R 3.2.1)
DBI 0.5-1 2016-09-10 CRAN (R 3.2.5)
devtools 1.12.0 2016-06-24 CRAN (R 3.3.1)
digest 0.6.10 2016-08-02 CRAN (R 3.3.1)
dplyr * 0.5.0 2016-06-24 CRAN (R 3.2.5)
knitr 1.15 2016-11-09 CRAN (R 3.3.2)
lazyeval 0.2.0 2016-06-12 CRAN (R 3.2.5)
magrittr 1.5 2014-11-22 CRAN (R 3.2.1)
memoise 1.0.0 2016-01-29 CRAN (R 3.2.3)
pipeR * 0.6.1.3 2016-04-04 CRAN (R 3.3.1)
purrr * 0.2.2 2016-06-18 CRAN (R 3.2.5)
R6 2.2.0 2016-10-05 CRAN (R 3.3.2)
Rcpp 0.12.7 2016-09-05 CRAN (R 3.2.5)
tibble 1.2 2016-08-26 CRAN (R 3.2.5)
withr 1.0.2 2016-06-20 CRAN (R 3.2.5)