考虑这个例子:
library(tidyverse)
# function my.sum(v)
# arguments:
# v - numeric vector
# returns:
# numeric value
#
# accepts the vector as single argument,
# returns sum of the vector elements.
my.sum <- function (v) {
return(sum(v))
}
# function my.inverse(val)
# arguments:
# val - numeric value
# returns:
# numeric value
#
# changes sign of the argument and returns it
my.inverse <- function (val) {
return(- val)
}
data.frame(x = rnorm(10, mean = 0, sd = 1),
y = rnorm(10, mean = 5, sd = 3)) %>%
mutate(my_sum = my.sum(c(x,y)),
my_inverse = my.inverse(x))
执行的结果是:
x y my_sum my_inverse
1 -1.3299817 3.359306 49.23083 1.3299817
2 1.3657651 4.636359 49.23083 -1.3657651
3 -0.2122119 1.760494 49.23083 0.2122119
4 0.7002765 7.396804 49.23083 -0.7002765
5 -0.5828975 4.811493 49.23083 0.5828975
6 1.1202625 4.294421 49.23083 -1.1202625
7 1.2512032 4.907165 49.23083 -1.2512032
8 0.9228939 5.215929 49.23083 -0.9228939
9 0.1800447 0.666941 49.23083 -0.1800447
10 -0.8906996 9.657261 49.23083 0.8906996
可以看到,my.inverse(val)
从x
列获取值的函数的返回值是my_inverse
列,它执行求反操作并按预期写入结果。
my.sum(v)
函数的返回值my_sum
列包含每一行中的常量。此常量是两个整向量x
和y
的连接元素之和
sum(c(x, y))
我期望function my.sum()
inside mutate()
指令将接收单行的x
和y
值,并在c(x, y)
中连接它们,但正如我所看到的,c()
的行为就像一个闭包。
如何避免这种R行为?
https://stackoverflow.com/questions/56243281
复制相似问题