R语言 | 向量化操作purrr包

Python网络爬虫与文本数据分析

在不少实际问题中有许多具有规律性的重复操作,因此在程序中就需要重复执行某些语句。

问题

比如有一个序列ns,现在想得到res,让ns中每一个数字变为平方数,代码如下

ns <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

res <- c()
for (n in ns) {
    res <- c(res, n*n)
}

res
##  [1]   1   4   9  16  25  36  49  64  81 100

R语言tidyverse中的purrr包含三个向量化操作函数,如果熟悉Python的map会很容易理解R语言的purrr;求平方用purrr解决代码如下

library(purrr)

# map(数据, 操作函数)
res <- map(ns, function(x)x*x) 
unlist(res)
##  [1]   1   4   9  16  25  36  49  64  81 100

purrr包

purrr包是R语言中提高代码效率的包,常见的函数有

R语言 | 向量化操作purrr包_第1张图片


  • purrr::map(.x, .f) 对x实行f操作

  • purrr::map2(.x, y, .f) 对x和y实行f操作

  • purrr::pmap(.l, .f) 对多维列表l实行f操作

参数 含义
.x 数组(类似于Python中的列表)
y 数组(类似于Python中的列表)
.f 应用到数组上的操作(函数)
.l 列表(列表中一般含有多个数组)

map计算年龄

library(tibble)

infos <- tibble(
    family=c("张", "李", "王", "赵"),
    name=c("三", "四", "五", "六"),
    born=c(1990, 1992, 2000, 1985)
)

infos

R语言 | 向量化操作purrr包_第2张图片

计算年龄

age <- purrr::map(infos$born, function(x, y){2020-x}) %>% unlist()
infos$age <- age
infos

R语言 | 向量化操作purrr包_第3张图片


map2拼接姓名

fullname <- purrr::map2(infos$family, infos$name, function(x, y)paste0(x,y)) %>% unlist()
infos$fullname <- fullname
infos

R语言 | 向量化操作purrr包_第4张图片


pmap拼接姓名

上面所有的操作都使用的map和map2,现在使用pmap操作拼接姓名

infos <- tibble(
    family=c("张", "李", "王", "赵"),
    name=c("三", "四", "五", "六"),
    born=c(1990, 1992, 2000, 1985)
)

infos

R语言 | 向量化操作purrr包_第5张图片


fullname <- purrr::pmap(list(x=infos$family, 
                             y=infos$name), 
                        function(x, y)paste0(x, y)) %>% unlist()
infos$fullname <- fullname
infos

R语言 | 向量化操作purrr包_第6张图片

R语言相关

R语言 | 读写txt、csv、excel文件 
R语言 | 数据操作tidyr包

R语言 | 数据操作dplyr包  
R语言 | jiebaR中文分词包
R语言 | 词频统计 

R语言 | 制作词云图  



后台回复关键词【purrr】获取本文代码和数据

    分享”和“在看”是更好的支持!

你可能感兴趣的:(列表,编程语言,python,人工智能,数据挖掘)