Question

对于我的一份uni报告，我必须分析change of base identity中的一些数据，并且已经进入了描述性部分，但是当我输入以下代码时，我会收到一条提示：

错误：尝试应用非功能

我不知道如何解决它。任何帮助将不胜感激：）

age_desc <- data %>%
  mutate(AGE_YEARS = all(duplicated(AGE_YEARS)[-1L])(AGE_YEARS)) %>%
  summarise(mean = mean(AGE_YEARS, na.rm = T),
            sd = sd(AGE_YEARS),
            min = min(AGE_YEARS),
            max = max(AGE_YEARS)) %>%
  modify(round, 2)

Answer 1

您能用语言描述一下您的代码中all(duplicated(AGE_YEARS)[-1L])(AGE_YEARS)部分要完成的工作吗？

您的错误来自代码的那部分，在那儿您似乎试图将逻辑类的对象（all(duplicated(AGE_YEARS)[-1L])的结果）乘以{大概是）数字向量AGE_YEARS

我不确定这是否是您要完成的工作，但是如果出于某种原因需要将单个逻辑值与数字矢量相乘，则需要在两个之间添加一个乘号（*）。元素。

例如

all(duplicated(iris$Sepal.Length)[-1L])
# [1] FALSE
all(duplicated(iris$Sepal.Length)[-1L])(iris$Sepal.Length)
# Error: attempt to apply non-function
all(duplicated(iris$Sepal.Length)[-1L])*(iris$Sepal.Length)
#  [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
# [40] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
# [79] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
# [118] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

祝你好运！

以后的PS，在您的问题中包含可重现的示例代码（How to make a great R reproducible example）将很有帮助！

尝试描述数据时显示“错误：尝试应用非功能”

1 个答案: