需要先安装并加载dplyr包,然后用以下代码编写一个能够计算倒数的自定义函数:
library(dplyr)
reciprocal <- function(x) {
return(1/x)
}
这个函数将一个数作为其参数,返回该数的倒数。如下面的示例所示:
data_frame(value = c(2, 3, 4)) %>%
mutate(reciprocal = reciprocal(value))
这将产生以下输出:
# A tibble: 3 x 2
value reciprocal
1 2 0.5
2 3 0.333
3 4 0.25