De vele smaken van map()

Basis van functioneel programmeren met purrr

Auriel Fournier

Instructor

Niet-lijstresultaten

# Map over survey_data en bepaal het aantal rijen
map(survey_data, ~nrow(.x))

$`LakeErieS`
[1] 14

$`LakeErieN`
[1] 14

$`LakeErieW`
[1] 14

$`LakeErieE`
[1] 15

purrr::map_variants

Lijstresultaat

# Bepaal rijnummer
map(survey_data, ~nrow(.x))

Double, een numeriek type

# Bepaal rijnummer
map_dbl(survey_data, ~nrow(.x))

$`LakeErieS`
[1] 14

$`LakeErieN`
[1] 14

$`LakeErieW`
[1] 14

$`LakeErieE`
[1] 15

14 14 14 15

map_lgl()

Lijst

# Bepaal rijnummer
map(survey_data, ~nrow(.x))

Logisch

# Bepaal of elementen 14 rijen hebben
map_lgl(survey_data, ~nrow(.x)==14)

$`LakeErieS`
[1] 14

$`LakeErieN`
[1] 14

$`LakeErieW`
[1] 14

$`LakeErieE`
[1] 15

TRUE TRUE TRUE FALSE

map_chr()

Lijstresultaat

# Map over species_names-lijst
map(species_names, ~.x)

Character

# Map over species_names-lijst
map_chr(species_names, ~.x)

$`LakeErieS`
[1] "Green Frog"

$`LakeErieN`
[1] "American Bullfrog"

$`LakeErieW`
[1] "Gray Treefrog"

$`LakeErieE`
[1] "Mudpuppy"

LakeErieS       LakeErieN 
"Green Frog"    "American Bullfrog" 
LakeErieW       LakeErieE 
"Gray Treefrog" "Mudpuppy"

Voorbeeldtijd!

# Maak een data frame genaamd survey_rows
survey_rows <- data.frame(names = names(survey_data),
                       rows = NA)

# Map over survey_data om rijen per element te bepalen
survey_rows$rows <- map_dbl(survey_data, ~nrow(.x))

# Print het data frame survey_rows
survey_rows

    names       rows
1   LakeErieS   14
2   LakeErieN   14
3   LakeErieW   14
4   LakeErieE   15

Let's purrr-actice!

Basis van functioneel programmeren met purrr