预填充函数

使用 purrr 的函数式编程进阶

Colin Fay

Data Scientist & R Hacker at ThinkR

使用 partial()

预填充函数：

mean_na_rm <- partial(mean, na.rm = TRUE)
mean_na_rm( c(1,2,3,NA) )

2

lm_iris <- partial(lm, data = iris)
lm_iris(Sepal.Length ~ Sepal.Width)

Call:
lm(formula = ..1, data = iris)
Coefficients:
(Intercept)  Sepal.Width  
     6.5262      -0.2234
使用 purrr 的函数式编程进阶

预填充 mean() 函数

mean(airquality$Ozone, na.rm = TRUE)
mean(mtcars$mpg, na.rm = TRUE)
mean(iris$Petal.Width, na.rm = TRUE)

mean_na_rm <- partial(mean, na.rm = TRUE)
mean_na_rm(airquality$Ozone)
mean_na_rm(mtcars$mpg)
mean_na_rm(iris$Sepal.Length)
使用 purrr 的函数式编程进阶

使用 partial() 和 compose()

partial() 与 compose()

rounded_mean <- compose(
  partial(round, digits = 2), 
  partial(mean, na.rm = TRUE)
)
rounded_mean(airquality$Ozone)

42.13
使用 purrr 的函数式编程进阶

rvest

  • read_html()

  • html_nodes()

  • html_text()

  • html_attr()

rvest 六边形贴纸

使用 purrr 的函数式编程进阶

让我们来练习！

使用 purrr 的函数式编程进阶

Preparing Video For Download...