dplyr：使用NA逐行变异时出错

Question

我在dplyr中dplyr按行mutate奇怪错误。 这是一个例子：

set.seed(1)
df <- data.frame(a = rnorm(5), b = rnorm(5))
df[2,'b'] <- NA

sum没什么问题，但摘要功能有问题：

mutate(rowwise(df), sum(a, b, na.rm = T)) # works

mutate(rowwise(df), mean(a, b, na.rm = T))
#! Error: missing value where TRUE/FALSE needed
mutate(rowwise(df), median(a, b, na.rm = T))
#! Error: unused argument (-0.820468384118015)

现在，我们可以尝试NA在第一列：

df <- data.frame(a = rnorm(5), b = rnorm(5))
df[2,'a'] <- NA

mutate(rowwise(df), sum(a, b, na.rm = T)) # works

mutate(rowwise(df), mean(a, b, na.rm = T))
#! no error, but returns `NaN`
mutate(rowwise(df), median(a, b, na.rm = T))
#! Error: unused argument (-0.820468384118015)

我不确定在这里是否做错了什么。 我认为预期的行为应与以下内容相同：

as.data.frame(apply(df, 1, mean, na.rm = T)

谢谢！

Answer 1

您的错误是您错误地调用了mean和median 。

尽管sum可以采用任意数量的参数，并且只会将它们全部相加，但mean和median仅采用一个x参数来取其平均值/中位数。

就像a和b是向量，并且您想要组合向量的均值一样，您将使用mean(c(a, b))而不是mean(a,b) ，您可以在此处执行以下操作：

mutate(rowwise(df), mean=mean(c(a, b), na.rm = T), med=median(c(a, b), na.rm=T))

（注意：您一次只计算两个值的平均值和中位数，因此无论如何平均值等于中位数...）