r - R:获取错误(as.character(FUN),mode =“function”,envir = envir):
问题描述
我正在与 R 合作。我正在尝试在此处复制此 stackoverflow 帖子提供的答案:如何在 r 中绘制 3D 函数?
使用 R 中的“lattice”库,我正在尝试创建“input_1”、“input_2”、“input_3”的 3D 曲面图 - 并根据“final_value”的值对曲面着色。
我为这个问题创建了一个函数:
my_function_b <- function(input_1, input_2, input_3, input_4) {
final_value = sin(input_1) + cos(input_2) + input_3 + input_4
}
然后,我为这个函数的每个“输入”分配了一系列值:
input_1 <- seq(-10, 10, length= 30)
input_2 <- input_1
input_3 <- input_1
input_4 <- input_1
接下来,我尝试使用“外部”功能:
z <- outer(input_1, input_2, input_3, my_function_b)
但这会返回以下错误:
Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'input_3' of mode 'function' was not found
有人可以告诉我我做错了什么吗?
谢谢
其他参考:
解决方案
outer
只接受两个参数。我们可能需要pmap
library(purrr)
pmap_dbl(list(input_1, input_2, input_3, input_4), my_function_b)
或者Map/mapply
mapply(my_function_b, input_1, input_2, input_3, input_4)
如果我们需要所有组合,请创建组合expand.grid
并应用于行
tmp <- expand.grid(input_1 = input_1, input_2 = input_2,
input_3 = input_3, input_4 = input_4)
out <- apply(tmp, 1,
FUN = function(x) do.call(my_function_b, as.list(x)))
或者可以加快dapply
fromcollapse
library(collapse)
out1 <- dapply(tmp, MARGIN = 1, FUN = function(x)
my_function_b(x[1], x[2], x[3], x[4]))
也许,我们在两个向量上创建组合,然后添加?
my_function_b <- function(input_1, input_2) sin(input_1) + cos(input_2)
tmp1 <- outer(input_1, input_2, my_function_b)
z <- tmp1 + input_3[col(tmp1)] + input_4[col(tmp1)]
library(lattice)
wireframe(z, drape=TRUE, col.regions=rainbow(100))
-输出
推荐阅读
- javascript - 在特定 div 上打开页面
- powershell - Powershell 查询以显示 AD 组或 OU 中的所有帐户
- python - 将 Python 中的变量保存为不带括号的列
- python - Xpath 表达式选择相对于当前节点的元素
- autodesk-forge - 如何使用“Autodesk.Geolocation”为模型设置地理位置
- reactjs - getDerivedStateFromProps() 覆盖 reactjs 中的 setstate 值
- sql - 从另一个表中插入唯一值
- angular - 如何在 karma Angular8 中对 StripeJs 进行单元测试
- python-3.x - Pytorch autograd.grad如何写多个输出的参数?
- c++ - 错误:无法将 'const char**' 转换为 'const char (*)[64]'