如何在 R 中编写一个带有 2 个参数并返回百分比的函数？答案

【问题标题】：How do I write a function in R with 2 parameters with a return of a percent?如何在 R 中编写一个带有 2 个参数并返回百分比的函数？
【发布时间】：2018-10-30 03:13:55
【问题描述】：

我对在 R 中编写函数并没有真正的经验，我正在尝试编写一个带有 2 个参数的函数——第一个是向量，第二个是数字。该函数将返回向量中小于相同元素的百分比（即低于所提供值的累积分布）。例如，如果向量有 5 个元素 (1,2,3,4,5)，其中 2 是传递给函数的数字，则函数将返回 0.2（因为 20% 的数字低于 2）。这是我目前所拥有的：

testfunction <- function(myVector, x)
{
uniqueCounts(myVector > x)/x
}

【问题讨论】：

只需使用sum(x < 2) / length(x) ...您甚至不需要为此使用函数。
@TimBiegeleisen - “2”应该是您可以更改的阈值，因此您确实需要一个函数。
@Marius 这取决于它在更大的 R 脚本中的使用方式。如果他只需要调用这个函数一次或两次，它可以被内联，然后不，你不需要一个函数。
function(vec,b) sum(vec<b)/length(vec) 似乎是将 Tim 的代码改编为函数。 SLG333，uniqueCounts是什么？我从来没有听说过这个功能，据我所知，它在 R 中不是默认的。
无论是否需要，OP 都在尝试学习如何编写函数。显然是有用的东西。 OP，你在这里有正确的语法，你只需要一个满足你想要的表达式。 @TimBiegeleisen 为您提供了一个。

标签： r function vector

【解决方案1】：

这里的语法正确

your_function <- function(arg1, arg2){
    do_something
}

在这里，您还需要一个表达式，该表达式将按照您的描述进行计算。 @TimBiegeleisen 为您提供了一个，sum(a > b) 给出了向量 a 中大于 b 的值的出现次数。 sum(a > b)/ length(a) 的比例将为您提供 a 中大于 b 的值的比例，并且应该介于 0（对于没有大于 b 的值的向量）和 1（对于具有所有值的向量）之间大于b，如果a 是NULL，则给出NaN，NA，如果a 是NA。如果您想强制 a 和/或 b 具有某些属性，您可以添加错误检查。

testfunction <- function(myVector, x){
    sum(myVector > x)/length(myVector)
}
tesfunction(1:10, 2)
# [1] 0.8

在 R 中，如果没有明确的 return，则函数返回最后一个计算的表达式。如果你想强制执行某些属性，你可以调用stop()，例如

testfunction <- function(myVector, x){
  if(length(x) != 1) stop("x must have length == 1")
  sum(myVector > x)/length(myVector)
}
testfunction(1:10, 2:3)
# Error in testfunction(1:10, 2:3) : x must have length == 1

【讨论】：

感谢您对表达式的帮助！只需使用我的向量运行该函数，它就可以工作了！
你可以感谢@TimBiegeleisen 的表达。我只是将其放入答案中并将其包装在解释中:)