修改函数输入变量，实现x.99的输出答案

【问题标题】：Modify function input variable to achieve output of x.99修改函数输入变量，实现x.99的输出
【发布时间】：2017-03-09 01:27:09
【问题描述】：

我的数据如下所示：

library(tidyverse)
df <- tibble(
    x_val = c(10.3, 14.3, 18.7)
)

将每个x_val 传递给my_fun 之后...

my_fun <- function(x) {
    x * pi
}

df %>% rowwise() %>% mutate(y_val = my_fun(x_val))

...我得到以下信息：

# A tibble: 3 × 2
x_val    y_val
<dbl>    <dbl>
1  10.3 32.35840
2  14.3 44.92477
3  18.7 58.74778

我如何反转函数（不只是除以 pi！因为我的实际函数要复杂得多）以找到 x_val 的适当值以获得最接近 integer - 0.01 的 y_val ..实现x.99:

32.99
44.99
58.99

【问题讨论】：

试试df %>% mutate(y_val = trunc(my_fun(x_val)) + 0.99)
您也可以将ceiling(x) - .01 添加到您的函数中。
对不起，我应该更清楚...我需要知道 x_val 的正确值才能得到 32.99 .... (10.501) .... 而不是简单地除以 pi (因为我的实际功能要复杂得多

标签： r dplyr tidyverse

【解决方案1】：

据我了解，您有一个复杂的函数 f(x_val)，并且您想要 f 的反函数。您想通过知道 y_val 来找到 x_val。通过检查Solving for the inverse of a function in R你可以尝试（调整上下部分我不知道你的功能的限制）：

inverse = function (f, lower = -100, upper = 100) {
  function (y) uniroot((function (x) f(x) - y), lower = lower, upper = upper)[1]
}

yourfunction_inverse = inverse(my_fun, 0.1, 100)

结果会是

results <- sapply(c(32.99, 44.99, 58.99), yourfunction_inverse)

【讨论】：